Project1, Unit1:
unità Unit1;
interfaccia
usi
Windows, messaggi, SysUtils, varianti, codici categoria, grafici, comandi, forme,
Dialoghi, StdCtrls;
tipo
TForm1 = codice categoria (TForm)
Button1: TButton;
procedura Button1Click (mittente: TObject);
riservato
{Dichiarazioni riservate}
pubblico
{Dichiarazioni pubbliche}
estremità;
varietà
Form1: TForm1;
esecuzione
{$R *.dfm}
myDLLFunction di funzione (szText: PChar): Booleano; stdcall; external “project2.dll„;
procedura TForm1.Button1Click (mittente: TObject);
varietà
szText: PChar;
cominciare
szText: = “un certo testo„;
se myDLLFunction (szText) allora
showmessage (“GIUSTO ");
estremità;
estremità.
=======================
Progetto 2, singolo dpr:
biblioteca Project2;
{Nota importante circa l'amministrazione di memoria del DLL: ShareMem deve essere
prima unità nella clausola di USI delle vostre biblioteche E nel vostro progetto (prescelti
La fonte di Progetto-Vista) USA la clausola se il vostro DLL esporta qualunque procedure o
funzioni che passano le stringhe come i parametri o risultati di funzione. Ciò
si applica a tutte le stringhe passate a e da il vostro DLL--persino quelli quello
sono annidati nelle annotazioni e nei codici categoria. ShareMem è l'unità di interfaccia a
il responsabile di memoria comune di BORLNDMM.DLL, che deve essere schierato avanti
con il vostro DLL. Per evit diare usando BORLNDMM.DLL, comunicare le informazioni della stringa
using i parametri di ShortString o di PChar. }
usi
SysUtils,
Codici categoria;
{$R *.res}
myDLLFunction di funzione (szText: PChar): Booleano; stdcall;
cominciare
Risultato: = allineare;
estremità;
esportazioni
myDLLFunction;
cominciare
estremità.
|