dcom 连接问题。。。。。。。。

[moyue]

procedure Tfmclient.FormCreate(Sender: TObject);
var
vtbllist:variant;
iCount:integer;
begin
dcomconnection.Connected:=true;
dcomconnection.AppServer.getalltables(vtbllist);
if (varisarray(vtbllist)) then
begin
for icount:=vararraylowbound(vtbllist,1) to
vararrayhighbound(vtbllist,1) do
begin
cmbBoxTable.Items.Add(vtbllist[icount]);
end;
end;
end;

这段程序在编译时为什么总是报如下错误呀！！！！

Project client.exe (我的客户端）raised exception class Eaccessviolation with message'access violation at address 004ada62 in module'client.ext'.
Read of address 0000005c'.

[moyue]

好的 谢谢
我试试。

[moyue]

好了，谢谢！！！

[pilicat]

将上述代码写到Form的OnShow事件中看看.