改个问法:怎样从服务器端传一个参数给客户端呢。(简单问题) 请直接从红色的字开始看。 (200分)

  • 主题发起人 主题发起人 free_knight
  • 开始时间 开始时间
>>[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;
 
后退
顶部