初涉三层，出现 not supported by...........

Question

D7
DCOM
写一涵数获得数据表名称。
procedure TRdm_Login.GetAllTables(var TableList : olevariant);
var
  tmp : tstringlist;
  i : integer;
begin
  try
    tmp := TStringList.Create;
    AdoCon_Login.GetTableNames(tmp,true);
    TableList := VarArrayCreate([0 , tmp.Count - 1],varVariant);
    for i := 0 to tmp.Count - 1 do
    begin
      TableList[i] := tmp.Strings[i];
    end;
  finally
    tmp.Free;
  end;
end;客户端
var
  vtblList : variant;
begin
  DCCon_Client.AppServer.GetAllTables(vtblList);   //到这里就说不支持GetAllTables1

Answer 1

在服务器端配置DCOM。
运行DCOMCNFG

Answer 2

在服务器端配置DCOM？？
客户端
  with ClientDateSet1 do
  begin
    close;
    CommandText := 'select * from .....';
    open;
  end;
这个在客户端运行没问题，
书上好象没说要在服务器中配置什么嘛