这个东西不怎么明白嘛.
有a.dll,b.dll
a.dll
function GetData : olevariant;
begin
adoquery.select....select code,name from tableA
DataSetProvider.dataset = adoquery
result := DataSetProvider.data;
end
b.dll
function GetAData : olevariant;
begin
result = getdata
end
测试 a.dll 通过
clientdataSet.Data := getData
while not clientdataSet.Eof do
begin
Memo1.Lines.Add(clientdataSet.Fields[0].asstring);
clientdataSet.Next;
end;
测试 b.dll 失败 提示 无效的包
clientdataSet.Data := getAData
while not clientdataSet.Eof do
begin
Memo1.Lines.Add(clientdataSet.Fields[0].asstring);
clientdataSet.Next;
end;