INDY的IdUDPServer长时间运行后不能接收到数据？

[laowang2]

服务端开启某一端口，有很多客户端往服务端发送数据，运行一段时间后（时间不定，有时长有时短）不能接收到任何数据，重启服务端程序就可以了，怎么回事？

[laowang2]

loveshell
我的问题和这个帖子一样才来问的，IDUDPServer本身就是多线程的吧？
谢谢 僵哥（重要的不是为之付出了多少，误导才是最大的失败）
我再用你办法试试。

[TripH0101]

帮顶一下

[laowang2]

to 僵哥
我改了一下，c++代码如下：

BOOL AllowUdpConnReset(TSocket Sd, BOOL bNewBehavior)
{
  DWORD dwBytesReturned ;
  Integer status;
  DWORD dwErr ;

  dwBytesReturned = 0;
  // disable  new behavior using
  // IOCTL: SIO_UDP_CONNRESET

  status = WSAIoctl(Sd, SIO_UDP_CONNRESET,
  &bNewBehavior, sizeof(bNewBehavior),
                     NULL, 0, &dwBytesReturned,
                     NULL, NULL);

  if (SOCKET_ERROR == status)
  {
    DWORD dwErr = WSAGetLastError();
    if (WSAEWOULDBLOCK == dwErr)
    {
      // nothing to do
      return(FALSE);
    }
    else
    {
      return(FALSE);
    }
  }
}

请问我这样在服务器端调用一下就可以了吗？

[僵哥]

看一下那个Microsoft当中的说明文字。

[loveshell]

19 楼lzf1010（深宇）回复于 2005-03-25 10:22:34 得分 100我是这样处理的，每接收一次数据即开启一个服务线程
procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
begin
TServiceThread.Create(AData,ADOConnection1,ABinding);
end;

[僵哥]

不能接收数据有几种情况,先用日志记录一下WSARecvFrom产生的错误是什么.比较大的可能是由于WSASendTo连续往一个不存在的地址发送之后,造成的系统错误.
MSDN注释:
Windows XP: Controls whether UDP PORT_UNREACHABLE messages are reported. Set to TRUE to enable reporting. Set to FALSE to disable reporting

解决的办法:

function AllowUdpConnReset(Sd:TSocket;bNewBehavior:BOOL):BOOL;
var
  dwBytesReturned:DWORD ;
  status:Integer;
  dwErr:DWORD ;
begin
  Result := False;
  dwBytesReturned := 0;
  // disable  new behavior using
  // IOCTL: SIO_UDP_CONNRESET
  status := WSAIoctl( sd, SIO_UDP_CONNRESET,
  @bNewBehavior, sizeof(bNewBehavior),
                   Nil, 0, @dwBytesReturned,
                   Nil, Nil);

  if (SOCKET_ERROR = status) then
    begin
      dwErr := WSAGetLastError();
      if (WSAEWOULDBLOCK = dwErr) then
        begin
          // nothing to do
          Exit;
        end
      else
        begin
          Exit;
        end;
    end;
  Result := True;

end;

[僵哥]

晕,又写的Delphi代码...

http://support.microsoft.com/kb/q263823/

[sunyuchuan86]

帮忙顶的话会有辛苦分儿吗?