Project1, Unit1:
Maßeinheit Unit1;
Schnittstelle
Gebrauch
Windows, Mitteilungen, SysUtils, Varianten, Kategorien, Grafiken, Kontrollen, Formen,
Dialoge, StdCtrls;
Art
TForm1 = Kategorie (TForm)
Button1: TButton;
Verfahren Button1Click (Absender: TObject);
privat
{Private Erklärungen}
Öffentlichkeit
{Allgemeine Erklärungen}
Ende;
var
Form1: TForm1;
Implementierung
{$R *.dfm}
Funktion myDLLFunction (szText: PChar): Boolesch; stdcall; External „project2.dll“;
Verfahren TForm1.Button1Click (Absender: TObject);
var
szText: PChar;
anfangen
szText: = „etwas Text“;
wenn myDLLFunction (szText) dann
showmessage („OKAY ");
Ende;
Ende.
=======================
Projekt 2, einzelnes dpr:
Bibliothek Project2;
{Wichtige Anmerkung über DLL-Gedächtnismanagement: ShareMem muss sein
erste Maßeinheit in der GEBRAUCH-Klausel Ihrer Bibliothek UND in Ihrem Projekt (auserwählt
Projekt-Ansicht Quelle) VERWENDET Klausel, wenn Ihr DLL irgendwelche Verfahren exportiert oder
Funktionen, die Schnüre als Parameter oder Funktionsresultate führen. Dieses
zutrifft auf alle Schnüre , die nach und von Ihrem DLL geführt--sogar die das
genistet in den Aufzeichnungen und in den Kategorien. ShareMem ist die Schnittstellenmaßeinheit zu
der BORLNDMM.DLL Manager des geteilten Gedächtnisses, der entlang entfaltet werden muss
mit Ihrem DLL. Um BORLNDMM.DLL zu verwenden zu vermeiden, Schnurinformationen vermitteln
using PChar oder ShortString Parameter. }
Gebrauch
SysUtils,
Kategorien;
{$R *.res}
Funktion myDLLFunction (szText: PChar): Boolesch; stdcall;
anfangen
Resultat: = ausrichten;
Ende;
Exporte
myDLLFunction;
anfangen
Ende.
|