S
sxqsxq
Unregistered / Unconfirmed
GUEST, unregistred user!
把serversocket加到dll中，当把serversocket.active设为true时，调用只可调用一次
function senddz(shandle:thandle;sml:string;shostip:string):integer;stdcall;
begin
Application.CreateForm(tdll,dll);
try
// dll.serversocket.Active:=true; //此句打开调用只可调用一次
dll.ShowModal;
finally
dll.Free;
end;
result:=0;
end;
function senddz(shandle:thandle;sml:string;shostip:string):integer;stdcall;
begin
Application.CreateForm(tdll,dll);
try
// dll.serversocket.Active:=true; //此句打开调用只可调用一次
dll.ShowModal;
finally
dll.Free;
end;
result:=0;
end;
