exe + dll: In the different versions of TUniQuery use 'Assign', there will be problems?
________
FORD EX HISTORY
In the different versions of TUniQuery use 'Assign'
In the different versions of TUniQuery use 'Assign'
Last edited by cxg417 on Tue 15 Feb 2011 14:59, edited 1 time in total.
In ccc.dll: (unidac3.0.0.3)
function GetUniQ: TUniQuery; stdcall;
function GetUniQ: TUniQuery;
begin
UniQuery1.Close;
UniQuery1.SQL.Text:= 'select * from table1';
UniQuery1.Open;
Result:= UniQuery1;
end;
In exe: (unidac4.0.0.1 in the Future)
TGetUniQ=function TUniQuery;stdcall;
function GetUniQuery: TUniQuery;
var HDll: THandle;
PDll: TFarProc;
begin
HDll:= LoadLibrary(pChar('d:\ccc.dll'));
PDll:=GetProcAddress(HDll, 'GetUniQ');
Result:= TGetUniQ(PDll);
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
VirtualTable1.Assign(GetUniQuery);
end;
UniDAC in different versions, 'VirtualTable1.Assign (GetUniQuery);', there is the problem?
________
SUZUKI KATANA SPECIFICATIONS
function GetUniQ: TUniQuery; stdcall;
function GetUniQ: TUniQuery;
begin
UniQuery1.Close;
UniQuery1.SQL.Text:= 'select * from table1';
UniQuery1.Open;
Result:= UniQuery1;
end;
In exe: (unidac4.0.0.1 in the Future)
TGetUniQ=function TUniQuery;stdcall;
function GetUniQuery: TUniQuery;
var HDll: THandle;
PDll: TFarProc;
begin
HDll:= LoadLibrary(pChar('d:\ccc.dll'));
PDll:=GetProcAddress(HDll, 'GetUniQ');
Result:= TGetUniQ(PDll);
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
VirtualTable1.Assign(GetUniQuery);
end;
UniDAC in different versions, 'VirtualTable1.Assign (GetUniQuery);', there is the problem?
________
SUZUKI KATANA SPECIFICATIONS
Last edited by cxg417 on Tue 15 Feb 2011 15:00, edited 1 time in total.
Why can not I use? Can you tell me the reason? Because I have now used this way.
________
Dodge tomahawk specifications
________
Dodge tomahawk specifications
Last edited by cxg417 on Tue 15 Feb 2011 15:00, edited 1 time in total.