Dienst. TCP/IP hat das Sicherheitslimit erreicht...

[Jackie1983]

Servus,

diese Meldung kommt erst seit ich meinen Dienst installiert habe.

Zitat:

Ereignistyp: Warnung
Ereignisquelle: Tcpip
Ereigniskennung: 4226
Beschreibung:
TCP/IP hat das Sicherheitslimit erreicht, das für die Anzahl gleichzeitiger TCP-Verbindungsversuche festgelegt wurde.

Der Dienst versucht alle 100ms eine Verbindung zum Server aufzubauen.
Hier mal der Timer.

Delphi-Quellcode:

  //Noch Online?
  if not fClient.Active then begin
    Synchronize(SetClientOnline); //-> fClient.Active := true;
    //auf verbindung kurz warten
    while not fClient.Active do
    begin
      sleep(100);
      inc(i);
      if (i=10) or (fClient.Active) then break;
    end;
    if not fClient.Active then fClient.Active := false;
  end;
  //Jobs zum server senden
  if fClient.Active then
  begin
    //...

kann es sein das zu viele Verbindungen geöffnet werden und nicht richtig geschlossen, oder so?

Gruß