用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的值,什么方法呢?
服务端我写一个方法有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的值,什么方法呢?
解决方案 »
- c++语句转delphi~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- 已知密文文件和公钥文件,如何用Libeay32.dll中的RSA_public_decrypt()函数进行解密?
- IDHTTP 提交表单
- 一程序员的的迷茫-关乎代码生涯生死
- Dll中如何打开Form
- 想了解一下武汉的Delphi程序员的工资状况 散分!!!!!!!在线!!!!!!!!!!
- 如何开发网络数据库系统?
- 这是怎么 回事,来看看!
- 我想从0开始学习Delphi,我没有任何语言基础!该怎么学?
- 动态创建组件怎样标识它唯一的名字?
- dbcombobox 如何删除相同的项?
- 两台xp专业版能否用三层物资管理系统
var
z,o : Variant;socket.AppServer.logined(trim(0),trim(y), z, o);另外说你这个不是 clientsocket, 是SocketConnection