Project1, Unit1:
unidade Unit1;
relação
usos
Windows, mensagens, SysUtils, variações, classes, gráficos, controles, formulários,
Diálogos, StdCtrls;
tipo
TForm1 = classe (TForm)
Button1: TButton;
procedimento Button1Click (remetente: TObject);
confidencial
{Declarações confidenciais}
público
{Declarações públicas}
extremidade;
var
Form1: TForm1;
execução
{$R *.dfm}
myDLLFunction da função (szText: PChar): Bôoleano; stdcall; external “project2.dll”;
procedimento TForm1.Button1Click (remetente: TObject);
var
szText: PChar;
começar
szText: = “algum texto”;
se myDLLFunction (szText) então
showmessage (“APROVADO ");
extremidade;
extremidade.
=======================
Projeto 2, único dpr:
biblioteca Project2;
{Nota importante sobre a gerência de memória do DLL: ShareMem deve ser
primeira unidade na cláusula dos USOS da sua biblioteca E no seu projeto (seletos
A fonte da Projeto-Vista) USA a cláusula se seu DLL exporta quaisquer procedimentos ou
funções que passam cordas como parâmetros ou resultados da função. Isto
aplica-se a todas as cordas passadas a e de seu DLL--mesmo aqueles isso
são aninhados nos registros e nas classes. ShareMem é a unidade de relação a
o gerente da memória compartilhada de BORLNDMM.DLL, que deve ser desdobrado longitudinalmente
com seu DLL. Para evitar usar BORLNDMM.DLL, passar a informação da corda
using parâmetros de PChar ou de ShortString. }
usos
SysUtils,
Classes;
{$R *.res}
myDLLFunction da função (szText: PChar): Bôoleano; stdcall;
começar
Resultado: = retificar;
extremidade;
exportações
myDLLFunction;
começar
extremidade.
|