Indy 10.6.5040 TCPServer Serverschliessen und Client Verbindungen trennen

[Cyberaxx]

Hallo,

ich habe nun das FormClose so übernommen und bekomme neben der Meldung der erfolgreichen Beendigung folgende:

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt StringExchangeServer.exe ist eine Exception der Klasse EOSError mit der Meldung 'Systemfehler. Code: 1400.
Ungültiges Fensterhandle' aufgetreten.
---------------------------
Anhalten Fortsetzen Hilfe
---------------------------

im OnExecute:

Delphi-Quellcode:

procedure TStringServerForm.IdTCPServer1Execute(AContext: TIdContext);
var
  LLine: String;
  ID: Integer;
begin
  if IdTCPServer1.Active then
  begin
    //TIdNotify.NotifyMethod( ShowStartServerdMessage );
    //LLine := AContext.Connection.IOHandler.ReadLn(TIdTextEncoding.Default);
    ID := Integer(AContext.Connection.Socket);
    LLine := AContext.Connection.IOHandler.ReadLn();
    Memo1.Lines.Add(Format('[%.10d]: %s', [ID, LLine]));
    AContext.Connection.IOHandler.WriteLn('OK');
    //TIdNotify.NotifyMethod( StopStartServerdMessage );
  end;

  AContext.Connection.IOHandler.CheckForDisconnect(False, True);
  AContext.Connection.CheckForGracefulDisconnect(False);
end;

Wenn ich nun den Server außerhalb der IDE starte kommt die Fehlermeldung nicht...