Question

我创建了一个检查端口是打开还是关闭的线程。运行753次后，我得到＆＃34;线程错误：句柄无效（6）＆＃34;。我究竟做错了什么？我已经对50个端口进行了测试，并且没有出现问题。现在我尝试检查本地IP上的65536端口，我在731端口后收到此错误。谢谢！

这是线程代码：

   {==============================START THREAD VERIFICARE PORT PRIN EXTRAGERE NUME HOST,IP,PORT============================================}



function elimina_toate_spatiile_goale(const s: string): string;
var
  i, j: Integer;
begin
  SetLength(Result, Length(s));
  j := 0;
  for i := 1 to Length(s) do begin
    if not TCharacter.IsWhiteSpace(s[i]) then begin
      inc(j);
      Result[j] := s[i];
    end;
  end;
  SetLength(Result, j);
end;


function Parse2(str: String; delimiter: Char; param_num: Integer): String;
var
  c, x, y : LongInt;
begin
  x := 1;   // param number that we're currently 'in'
  y := 0;   // position of previous delimiter
  for c := 1 to Length(str) do
    if str[c] = delimiter then  // this char is a delimiter
    begin
      if x = param_num then
        Break;
      inc(x);
      y := c;
    end;
  if x = param_num then
    Result := Copy(str, y + 1, c - y - 1)
  else
    Result := '';
end;





    type
      TThread_extrage_hostname_ip_si_port = class(TThread)
      private
        fStringul_ce_trebuie_parsat: string;
        fHostname,fIP_de_verificat,fPort_de_verificat,fIP_si_port:string;
        REZULTAT_verificare_port:BOOLEAN;
        flistbox_porturi_online,flistbox_porturi_offline:Tlistbox;
        fmemo_loguri:Tmemo;
       procedure semnalizare_port_online_sau_offline;

      protected
        procedure Execute; override;
      public

        constructor Create(aStringul_ce_trebuie_parsat: string;alistbox_porturi_online,alistbox_porturi_offline:Tlistbox;amemo_loguri:Tmemo);
      end;



    constructor TThread_extrage_hostname_ip_si_port.Create(aStringul_ce_trebuie_parsat: string;alistbox_porturi_online,alistbox_porturi_offline:Tlistbox;amemo_loguri:Tmemo);
    begin
    inherited Create(False);
      freeonterminate:=true;
      fStringul_ce_trebuie_parsat:=aStringul_ce_trebuie_parsat;
      flistbox_porturi_online:= alistbox_porturi_online;
      flistbox_porturi_offline:= alistbox_porturi_offline;
      fmemo_loguri:= amemo_loguri;
    end;

    procedure TThread_extrage_hostname_ip_si_port.Execute;
    var
      IdTCPClient : TIdTCPClient;
    begin

      // use fURL, fMethod, and fParam as needed...
    REZULTAT_verificare_port := False;


    fhostname:=(Parse2(fStringul_ce_trebuie_parsat,'=', 1));


    fIP_si_port:=elimina_toate_spatiile_goale(Parse2(fStringul_ce_trebuie_parsat,'=', 2));



    fIP_de_verificat:=elimina_toate_spatiile_goale(Parse2(fIP_si_port,':', 1));



    fPort_de_verificat:=elimina_toate_spatiile_goale(Parse2(fStringul_ce_trebuie_parsat,':', 2)) ;



    if (fIP_de_verificat<>'') and (fport_de_verificat<>'') then begin

      try
        IdTCPClient := TIdTCPClient.Create(nil);
        try
          IdTCPClient.Host := fIP_de_verificat;
          IdTCPClient.Port := strtoint(fPORT_de_verificat);
          IdTCPClient.ConnectTimeout:=5000;
          IdTCPClient.Connect;
          REZULTAT_verificare_port := True;
        finally
          IdTCPClient.Free;

        end;
      except
        //Ignore exceptions
      end;
     Synchronize(semnalizare_port_online_sau_offline);
    end;
    end;



    procedure TThread_extrage_hostname_ip_si_port.semnalizare_port_online_sau_offline;
    begin
    if REZULTAT_verificare_port=true then
    begin
    {verific daca in listbox-ul pentru porturi online exista deja elementul testat.
    Daca elementul nu exista, il adaug.
    Daca exista deja, nu il mai adaug.
    }
    if fListBox_porturi_online.Items.IndexOf(fStringul_ce_trebuie_parsat) = -1 then
    begin
    fmemo_loguri.lines.add(datetimetostr(now)+' - '+fStringul_ce_trebuie_parsat +' => ACTIV');
    fListBox_porturi_online.Items.Add(fStringul_ce_trebuie_parsat);
    end;
    Form2.GroupBox_porturi_online.Caption:='PORTURI ONLINE: '+inttostr(fListBox_porturi_online.Items.Count);
    end
    else
    begin
    {verific daca in listbox-ul pentru porturi online exista deja elementul testat.
    Daca elementul nu exista, il adaug.
    Daca exista deja, nu il mai adaug.
    }
    if fListBox_porturi_offline.Items.IndexOf(fStringul_ce_trebuie_parsat) = -1 then
    begin
    fmemo_loguri.lines.add(datetimetostr(now)+' - '+fStringul_ce_trebuie_parsat +' => OPRIT');
    fListBox_porturi_offline.Items.Add(fStringul_ce_trebuie_parsat);
    end;
    end;
    Form2.GroupBox_porturi_offline.Caption:='PORTURI OFFLINE: '+inttostr(fListBox_porturi_offline.Items.Count);
    end;


            {==============================STOP THREAD EXTRAGERE NUME HOST,IP,PORT============================================}

Answer 1

疯狂猜测。

      // ........ CODE ABOVE REMOVED
      IdTCPClient.Connect;
      REZULTAT_verificare_port := True;
    finally
      if IdTCPClient.connected then  // ADD SOMETHING LIKE THIS SECTION ?
      begin
       IdTCPClient.IOHandler.InputBuffer.clear;
       IdTCPClient.Disconnect;  
      end;
      IdTCPClient.Free;
      // ........ CODE BELOW REMOVED

如果这样可以解决问题，那么问题是单个进程使用您正在使用的API一次只能有大约731个开放套接字。

或者，您连接的系统也可能同时限制打开的插座总数（它可以接收）？

无论哪种方式，你都会在某处达到系统限制。

...

由于您的评论而更新。

线程也有资源限制。你不能创建无限的线程（就像你不能创建无限的TCP套接字）。你可以使用一个线程安全的计数器，并确保你在达到100个线程时停止创建线程，直到前一个线程退出。

所以计数器从0开始。
检查计数器是否小于100，以允许创建线程。
如果是100或者更多，那么等待被唤醒（这是通过退出线程完成的）
创建线程时计数器加1。
理想情况下，支票少于100，增量为1是原子地完成的。
当每个线程退出计数器时递减1.这必须可靠地完成，因为可能有很多方法（正常终止，异常抛出等等），一个线程要退出，你需要抓住它们。当计数器减少时，你总是唤醒任何服务员。

现在您可以使用Java中的基本sleep（）/ wait（）/ synchronize（）自己创建它。你有一个只在它递增时返回的方法（它将根据需要等待，直到它可以递增）和另一个总是递减的方法。

现在你可能会发现你的主线程由于其他原因无法休眠，一些系统需要调用API来获取死/退出的线程，然后才能真正释放线程资源。在这种情况下，当资源可用时，您将减1，而不是在线程执行结束时减少。

即使运行代码的100个线程运行速度也非常快，您可能会发现，如果将线程数限制在核心数量和系统内核数量的两倍之间，那么可以使整个事情变得更快（如果任务是CPU绑定的。）

由于在8核系统上有100个活动线程，因此不如8核系统上活动的16个线程有效。但是，等待网络连接延迟会占用大量的处理时间。所以16线程是不够的。

此模式通常称为信号量（带计数器）。谷歌搜索“delpi信号量线程”http://edn.embarcadero.com/article/29908

Delphi 2010 - 线程错误：句柄无效（6）

1 个答案: