三层结构为什么不能返回数据?
wshuo 2003-10-15 11:38:02 在服务器添加了一个方法,可是客户端调用是没有任何反映,也不报错。
procedure TTempDCOMServer.GetAllTables(vTables: OleVariant);
var
TlbList:TStringList;
iCount:Integer;
begin
try
TlbList:=TStringList.Create;
ADOConnection.GetTableNames(TlbList);
vTables:=VarArrayCreate([0,TlbList.Count-1],varVariant);
For iCount:=0 to TlbList.Count-1 do
begin
vTables[iCount]:=TlbList.Strings[iCount];
end;
finally
TlbList.Free;
end;
end;