DP7自带的组件TServerSocket和TClientSocket问题(急)!

Cnet_BT110 2005-11-03 09:12:20
我用DP7自带的组件TServerSocket和TClientSocket
开发了一个小的应用系统
但是一当二个客户端同时访问数据量大时就会出错(好比如二个用户同时点查询就会报错)不知道是什么问题?
...全文
252 5 打赏 收藏 转发到动态 举报
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
  • 打赏
  • 举报
回复
你最好详细点 ,你这么说谁知道是那里出的问题

1,594

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧