社区
网络通信/分布式开发
帖子详情
DP7自带的组件TServerSocket和TClientSocket问题(急)!
Cnet_BT110
2005-11-03 09:12:20
我用DP7自带的组件TServerSocket和TClientSocket
开发了一个小的应用系统
但是一当二个客户端同时访问数据量大时就会出错(好比如二个用户同时点查询就会报错)不知道是什么问题?
...全文
252
5
打赏
收藏
DP7自带的组件TServerSocket和TClientSocket问题(急)!
我用DP7自带的组件TServerSocket和TClientSocket 开发了一个小的应用系统 但是一当二个客户端同时访问数据量大时就会出错(好比如二个用户同时点查询就会报错)不知道是什么问题?
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
huanzhugege
2005-11-04
打赏
举报
回复
TServerSocket和TClientSocket进行网络开发有很多需要注意的地方,一言难尽。我去年用他们做过一个呼叫中心,十个坐席同时登录情况下从没出现过问题,可以加我QQ:57077490,请注明:Delphi 交流
翰墨书缘
2005-11-04
打赏
举报
回复
一次传输的数据量不要太大,我也遇到过街收不完全的情况。
我的程序在局域网内,我定的是每次发送/接收512个字节,或者稍大一点
comanche
2005-11-04
打赏
举报
回复
有可能出现一个 recv 收不全数据吧
var
BytesReceived: Integer;
Rx: Boolean;
begin
while BufferSize > 0 do
begin
if not (Socket.Select(@Rx, nil, nil, 30000) and Rx) then
raise ECollector.CreateRes(@SReceiveTimeout);
BytesReceived := Socket.ReceiveBuf(Buffer^, BufferSize);
if BytesReceived = 0 then
raise ECollector.CreateRes(@SInvalidDataPacket);
if BytesReceived > 0 then
begin
Dec(BufferSize, BytesReceived);
Inc(Integer(Buffer), BytesReceived);
end;
end;
if BufferSize <> 0 then
raise ECollector.CreateRes(@SInvalidDataPacket);
end;
代码不太适用, 看着改吧
zzq4823
2005-11-04
打赏
举报
回复
这两个组件在哪个Palette都没找到
2004v2004
2005-11-03
打赏
举报
回复
你最好详细点 ,你这么说谁知道是那里出的问题
delphi源码T
Server
Socket
和
TCl
ient
Socket
文件传输
delphi源码T
Server
Socket
和
TCl
ient
Socket
文件传输
Delphi T
Server
Socket
和
TCl
ient
Socket
两个
组件
的基本用法
笔者在工作中遇到对局域网中各工作站与服务器之间进行
Socket
通信的
问题
。现在将本人总结出来的T
Server
Socket
和
TCl
ient
Socket
两个
组件
的基本用法写出来,希望与您分享。 Cl
ient
Socket
组件
为客户端
组件
。它是通信的请求方,也就是说,它是主动地与服务器端建立连接。
Server
Socket
组件
为服务器端
组件
。它是通信的响应方,也就是说,它的动作是监听以及被动接受客户端的连接请求,并对请求进行回复。
Server
Socket
组件
可以同时接受一个或多个Cl
ient
Socket
组件
的连接请求,并与每个Cl
ient
Socket
组件
建立单独的连接,进行单独的通信。因此,一个服务器端可以为多个客户端服务。 设计思路
Delphi之T
Server
Socket
和
TCl
ient
Socket
多线程传输
Delphi之T
Server
Socket
和
TCl
ient
Socket
多线程传输文字例子
Delphi中T
Server
Socket
和
TCl
ient
Socket
两个
组件
的示例源码
Delphi中T
Server
Socket
和
TCl
ient
Socket
两个
组件
的示例源码
delphi源码基础的T
Server
Socket
和
TCl
ient
Socket
文件传输
delphi源码基础的T
Server
Socket
和
TCl
ient
Socket
文件传输
网络通信/分布式开发
1,594
社区成员
32,958
社区内容
发帖
与我相关
我的任务
网络通信/分布式开发
Delphi 网络通信/分布式开发
复制链接
扫一扫
分享
社区描述
Delphi 网络通信/分布式开发
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章