在Delphi 6.0中如何使用TServerSocket及TClientSocket实现远程监控及数据交互？请大侠出招！在线等待.....

[luckychr]

在Delphi 6.0中使用TServerSocket及TClientSocket实现一个远程监控，大概设计如下：该程序分为服务器端(使用TServerSocket控件)和客户端(使TClientSocket控件)，服务器端由数据库(如:Oracle)，该数据库内储供客户端查询的数据及客户端用户的认证信息，客户端无任数据库支持(也不可直接访问服务器数据库),其处理流程如下：

流程1:客户端登记请求----->服务器端验证及返回----->客户端
流程2:客户端查询请求----->服务器端按要求查询并返回数据记录----->客户端

我在该程序定义了请求信息如下：
1、客户端请求信息
cltReqInfo = packed record // 客户端请求信息
strUserNo: string; // 用户id
// strUserName: string;
strUserPsw: String; // 用户密码
strReqType:string; // 请求类型：0:请求身份验证;
strClientIP:string; // 用户IP
end;
2、服务器端响应信息
srvResInfo = packed record // 服务器端响应信息
strResContent: string; // 响应内容
strResType:string; // 响应类型：0:请求身份验证;
end;

问题1、如何以最简单的方式将"客户端请求信息"提交给服务器端？
2、服务器端如何接收"客户端请求信息"信息？
3、服务器端如何以简单将查询到的数据库记录批量返回给客户端？
客户端怎样接收?
在线等待，请大侠们出招，希望有程序指导，谢谢！

[luckychr]

问题基本已解决，
现又遇到一个新问题
如我从服务器端返回一动态数组(其类型为以上自定义记录)，
而在客户端接收时，总是无法接收到，查看其数据仍为初始
状态。请大虾出手治治。。。

• 打赏
• 举报

回复 赞

[leilu]

用PCHAR()可以吗？现在解决了没有啊。我也在做。

• 打赏
• 举报

回复 赞

[yingshis]

up

• 打赏
• 举报

回复 赞

[SocketCLS]

如果 客户段发送同时发送数据比较多,服务器返回值没有或都连接到一起(即单个返回值连接在一起比如返回值为:1860,则实际返回值为:1860186018601860)如何解决

• 打赏
• 举报

回复 赞