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

[Cnet_BT110]

我用DP7自带的组件TServerSocket和TClientSocket
开发了一个小的应用系统
但是一当二个客户端同时访问数据量大时就会出错(好比如二个用户同时点查询就会报错)不知道是什么问题?

[2004v2004]

你最好详细点 ，你这么说谁知道是那里出的问题

[zzq4823]

这两个组件在哪个Palette都没找到

[comanche]

有可能出现一个 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;

代码不太适用, 看着改吧

[翰墨书缘]

一次传输的数据量不要太大，我也遇到过街收不完全的情况。
我的程序在局域网内，我定的是每次发送/接收512个字节，或者稍大一点

[huanzhugege]

TServerSocket和TClientSocket进行网络开发有很多需要注意的地方，一言难尽。我去年用他们做过一个呼叫中心，十个坐席同时登录情况下从没出现过问题，可以加我QQ：57077490，请注明：Delphi 交流