吴
吴剑明
Unregistered / Unconfirmed
GUEST, unregistred user!
用DCOM连接。
APPSERVER中有一个方法：
procedure Tmycom.showmsg(var vtable: OleVariant);
begin
DefaultInterface.showmsg(vtable);
vtable := 'aaaaaaaaaaaa';
end;
客户端调用该方法：
procedure TForm1.Button1Click(Sender: TObject);
var
v : variant;
begin
DCOMConnection1.AppServer.showmsg(v);
showmessage(v);
end;
为何SHOW出来的总是空的？请教。
APPSERVER中有一个方法：
procedure Tmycom.showmsg(var vtable: OleVariant);
begin
DefaultInterface.showmsg(vtable);
vtable := 'aaaaaaaaaaaa';
end;
客户端调用该方法：
procedure TForm1.Button1Click(Sender: TObject);
var
v : variant;
begin
DCOMConnection1.AppServer.showmsg(v);
showmessage(v);
end;
为何SHOW出来的总是空的？请教。