定义个全局的ADOConnection: var Connection:TADOConnection;function SetConnection(var aConnection:TADOConnection):Boolean;stdcall; begin try Connection:=aConnection; result:=True; except result:=False; end; end;
载入你的DLL 再 var Connection:TADOConnection; function SetConnection(var aConnection:TADOConnection):Boolean;stdcall; begin try Connection:=aConnection; result:=True; except result:=False; end; end;
var
Connection:TADOConnection;function SetConnection(var aConnection:TADOConnection):Boolean;stdcall;
begin
try
Connection:=aConnection;
result:=True;
except
result:=False;
end;
end;
再
var
Connection:TADOConnection;
function SetConnection(var aConnection:TADOConnection):Boolean;stdcall;
begin
try
Connection:=aConnection;
result:=True;
except
result:=False;
end;
end;