L
lin315
Unregistered / Unconfirmed
GUEST, unregistred user!
我的dll文件：library Project2;uses ShareMem, SysUtils, Forms, Windows, Messages, Classes; Function read(b1:Longint;d1:Longint;a1
char):Longint; stdcall ; begin if (b1=1)and (d1=3) and (a1='123456789')then begin Result:=0; a1:='987654321' end else Result:=1; end ;{$R *.res}end; exports read name 'Read';beginend.调用程序的函数：Function Read b1:Longint;d1:Longint;a1char):Longint;stdcall;external 'Project2.dll'; var ttchar;begin tt:='000000'; Label1.Caption:=inttostr(read(6,80,tt)); Label2.Caption:=tt; // 想这里的值变为：'987654321'end我想在调用这个dll把调用程序中的tt值变为：'987654321'，如何才能实现呢？
char):Longint; stdcall ; begin if (b1=1)and (d1=3) and (a1='123456789')then begin Result:=0; a1:='987654321' end else Result:=1; end ;{$R *.res}end; exports read name 'Read';beginend.调用程序的函数：Function Read b1:Longint;d1:Longint;a1char):Longint;stdcall;external 'Project2.dll'; var ttchar;begin tt:='000000'; Label1.Caption:=inttostr(read(6,80,tt)); Label2.Caption:=tt; // 想这里的值变为：'987654321'end我想在调用这个dll把调用程序中的tt值变为：'987654321'，如何才能实现呢？