q请教一个三层结构问题，用clintsocket连接服务端程序，并想取得函数

Question

用clintsocket连接服务端程序，并想取得函数：
服务端我写一个方法有4个参数分别为两个输入一个输出，分别为：x varint in,
                                                     y varint in,
                                                     z varint* in ,out
方法大概为：                                                 o varint* in ,out
procedure THRRDM.Logined(y: OleVariant; var z: OleVariant;
  x: OleVariant; var o: OleVariant);
begin
0:=True;
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from table where x='''+trim(x)+''' and y='''+trim(y)+'''');
try
   Q_General.Open;
   except
   0 := false;
   exit;
   end;
   if query1.recordcount=0 then
   begin
   user_name:='多少分多少';
   0 := false;
   exit;
   end;
   z:= Q_General.fieldbyname('z').asstring;
end客户端在使用socket.AppServer.logined(trim(0),trim(y)),如何得到z的值，什么方法呢？

Answer 1

不要都定义成 variant类型嘛,这样就只能用variant取得返回值
var
  z,o : Variant;socket.AppServer.logined(trim(0),trim(y), z, o);另外说你这个不是 clientsocket, 是SocketConnection