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

luckychr 2004-04-29 03:44:52
在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、服务器端如何以简单将查询到的数据库记录批量返回给客户端?
客户端怎样接收?
在线等待,请大侠们出招,希望有程序指导,谢谢!



...全文
121 4 点赞 打赏 收藏 举报
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
SocketCLS 2004-09-13
如果 客户段发送同时发送数据比较多,服务器返回值没有或都连接到一起(即单个返回值连接在一起比如返回值为:1860,则实际返回值为:1860186018601860)如何解决
  • 打赏
  • 举报
回复
yingshis 2004-09-10
up
  • 打赏
  • 举报
回复
leilu 2004-09-10
用PCHAR()可以吗?现在解决了没有啊。我也在做。
  • 打赏
  • 举报
回复
luckychr 2004-04-29
问题基本已解决,
现又遇到一个新问题
如我从服务器端返回一动态数组(其类型为以上自定义记录),
而在客户端接收时,总是无法接收到,查看其数据仍为初始
状态。请大虾出手治治。。。
  • 打赏
  • 举报
回复
相关推荐
发帖
网络通信/分布式开发
加入

1579

社区成员

Delphi 网络通信/分布式开发
申请成为版主
帖子事件
创建了帖子
2004-04-29 03:44
社区公告
暂无公告