G
GanQuan
Unregistered / Unconfirmed
GUEST, unregistred user!
>>[red]怎样从服务器端传一个参数给客户端呢,如字符型,答者150分。[/red]
服务器方法参数使用in&out类型传出就行了。
如果选择Type选择VARIANT *
在代码中的表现是
procedure TcoServer.GetInfo(var vInfo: OleVariant);//var表示可传出
begin
vInfo := 'hello';
end;
客户端调用就用
var
StrInfo: OleVariant;
s: String;
....
ServerObj := coServerObj.CreateRemote('yourMachineName');
ServerObj.GetInfo(StrInfo);
//在服务器端赋值
S := StrInfo;
服务器方法参数使用in&out类型传出就行了。
如果选择Type选择VARIANT *
在代码中的表现是
procedure TcoServer.GetInfo(var vInfo: OleVariant);//var表示可传出
begin
vInfo := 'hello';
end;
客户端调用就用
var
StrInfo: OleVariant;
s: String;
....
ServerObj := coServerObj.CreateRemote('yourMachineName');
ServerObj.GetInfo(StrInfo);
//在服务器端赋值
S := StrInfo;