Delphi Indy Ping错误10040

发布时间：2020-12-15 10:11:37 所属栏目：大数据来源：网络整理

导读：我有一小段代码通过ping它来检查计算机是否存活.我们用一个有40台电脑的房间,我想通过我的程序远程检查哪个还活着. 因此我用indy写了一个小ping函数 function TMainForm.Ping(const AHost : string) : Boolean;var MyIdIcmpClient : TIdIcmpClient;begin Res

我有一小段代码通过ping它来检查计算机是否存活.我们用一个有40台电脑的房间,我想通过我的程序远程检查哪个还活着.

因此我用indy写了一个小ping函数

function TMainForm.Ping(const AHost : string) : Boolean;
var
  MyIdIcmpClient : TIdIcmpClient;
begin
  Result := True;

  MyIdIcmpClient := TIdIcmpClient.Create(nil);
  MyIdIcmpClient.ReceiveTimeout := 200;
  MyIdIcmpClient.Host := AHost;

  try
    MyIdIcmpClient.Ping;
    Application.ProcessMessages;
  except
    Result := False;
    MyIdIcmpClient.Free;
    Exit;
  end;
  if MyIdIcmpClient.ReplyStatus.ReplyStatusType <> rsEcho Then result := False;

  MyIdIcmpClient.Free;
end;

所以我已经在家里开发了我的wifi网络,并且工作正常.

当我重新开始工作时,我进行了测试,并且收到错误消息

Socket Errod # 10040 Message too long

在工作中我们有固定的IP和所有的计算机,我在同一个子网中.

我试图断开与固定IP的连接并连接到wifi当然是DHCP而不是在同一个子网中,它只是工作正常.

我试过在互联网上搜索此错误以及如何解决它但没有找到太多信息.

当然我试图将默认缓冲区大小更改为更大的值,但它没有改变任何东西,我仍然得到同一子网内的固定IP上的错误.

此外,我不知道这是否有助于找到解决方案,但我的代码处理异常,但在这种情况下,提高错误大约需要3-4秒,而Timeout设置为200毫秒.而且我不能等待每一次ping.

顺便说一句,我使用delphi 2010,我认为它是indy 10.我也测试了XE2但是同样的错误.

任何想法

—–编辑—–

这个问题得到了解答,现在我尝试在多线程中运行这个问题并且我已经问了另一个问题
Delphi (XE2) Indy (10) Multithread Ping

解决方法

将PacketSize属性设置为24：

function TMainForm.Ping(const AHost : string) : Boolean;
var
  MyIdIcmpClient : TIdIcmpClient;
begin
  Result := True;

  MyIdIcmpClient := TIdIcmpClient.Create(self);
  MyIdIcmpClient.ReceiveTimeout := 200;
  MyIdIcmpClient.Host := AHost;
  MyIdIcmpClient.PacketSize := 24;
  MyIdIcmpClient.Protocol := 1;
  MyIdIcmpClient.IPVersion := Id_IPv4;

  try
    MyIdIcmpClient.Ping;
    // Application.ProcessMessages; // There's no need to call this!
  except
    Result := False;
    Exit;
  end;
  if MyIdIcmpClient.ReplyStatus.ReplyStatusType <> rsEcho Then result := False;

  MyIdIcmpClient.Free;
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!