socket高难问题之完成端口1

[chenayuan]

关于网络程序设计-delphi

我的服务器使用的完成端口-工作线程两个，客户端socket2连接，

当一个客户端发消息频率高的时候，部分消息丢失，

如；客户端循环100次发消息，服务器端一般能接到第1，2，63，条，其他的都丢失

敬请教我，不盛感激1

[chenayuan]

up

[chenayuan]

下面是工作现成的代码（delphi）
procedure TWorkerThread.Execute;
var
Block: PBlock;
Transfered: DWORD;
ClientSocket: TServerClientSocket;
begin
while FServer.Active do
begin
Block := nil;
Transfered := 0;
ClientSocket := nil;

if not GetQueuedCompletionStatus(FServer.CompletionPort, Transfered,
DWORD(ClientSocket), POverlapped(Block), INFINITE) then
begin

end;

case ClientSocket.WorkBlock(Block, Transfered) of
//WorkBlock读取数据,调用WSARecv
//（WSARecv(FSocket, @wsaBuffer, 1, Transfer, Flags, @Overlapped, nil);）
RESPONSE_UNKNOWN:
{ 操作未知的话，应该返回给客户端：...不应该Close....保留 }
//FreeAndNil(ClientSocket);
;
RESPONSE_FAIL:
begin
end;
end;
end;
end;

[zhouhaijun2]

用什么控件了，还是SOCKET API？

[zhouhaijun2]

不好意思，没看到上面代码

[potee]

贴点代码看看～

[millercq]

关注
up

[zhouhaijun2]

好象TCP-IP协议不支持多播，我使用过SOCKET API实现文件传输，在服务器空闲时每侦测到一个client的连接并与之连接，完成单位量数据的传输后就断开SOCKET，然后重新侦测下一个client，周而复始。与多个client同时传送文件测试通过！

[wsstar]

Study

[longtusoft]

顶

[beyondtkl]

把你一些 创建，使用完成端口的重要代码贴出来

还有接收。。的代码

[DarkRiver]

我的程序也有这个问题，只是我好一点，只丢失三次，不管循环多少发送都是三次，很固定，不知道是什么原因

[zwm09]

既然使用线程，干吗还使用轮询，为什么不使用事件机制。

[S.F.]

gz

[halfdream]

完成端口主要是在多连接情况下减少线程切换，从而提高处理效率。。
在两个连接情况下反而不如其它SOCKET I/O方式。。。

当然，消息丢失感觉还是你程序问题。。IOCP那几种组合状态条件都需要处理好。。

[buhuidelphi]

有没有人知道，delphi7 的 socketconnection 在 client端的时候，怎样捕捉由于 scksrv 的 inactive timeout 产生的错误？我想错误显示改为自己定义的提示？