Project1, Unit1:
eenheid Unit1;
interface
gebruik
Vensters, Berichten, SysUtils, Varianten, Klassen, Grafiek, Controles, Vormen,
Dialogen, StdCtrls;
type
TForm1 = klasse (TForm)
Button1: TButton;
procedure Button1Click (Afzender: TObject);
privé
{Privé verklaringen}
openbaar
{Openbare verklaringen}
eind;
var
Form1: TForm1;
implementatie
{$R *.dfm}
functie myDLLFunction (szText: PChar): Van Boole; stdcall; externe „project2.dll“;
procedure TForm1.Button1Click (Afzender: TObject);
var
szText: PChar;
begin
szText: = „Één of andere tekst“;
als myDLLFunction (szText) toen
showmessage („O.K.“);
eind;
eind.
=======================
Project 2, enige dpr:
bibliotheek Project2;
{Belangrijke nota over DLL geheugenbeheer: ShareMem moet zijn
eerste eenheid in de uitgezochte clausule van het GEBRUIK van uw bibliotheek EN uw project (
De project-mening Bron) GEBRUIKT clausule als uw DLL om het even welke procedures uitvoert of
functies dat de paskoorden als parameters of functie voortvloeit. Dit
is op alle die koorden van toepassing tot en van uw DLL worden overgegaan--die zelfs dat
worden genesteld in verslagen en klassen. ShareMem is de interfaceeenheid aan
BORLNDMM.DLL deelde geheugenmanager, wat moet worden opgesteld
met uw DLL. Vermijden gebruikend BORLNDMM.DLL, ga koordinformatie over
gebruikend parameters PChar of ShortString. }
gebruik
SysUtils,
Klassen;
{$R *.res}
functie myDLLFunction (szText: PChar): Van Boole; stdcall;
begin
Resultaat: = Waar;
eind;
de uitvoer
myDLLFunction;
begin
eind.
|