[Indy] TCPServer mit aktiver Verbindung beenden

[Duffy]

Hallo Dax,
auch das habe ich bereits versucht ...

Delphi-Quellcode:

procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  ACommBlock: TCommBlock;
  I: Integer;
begin
  ACommBlock.Command := CmdShutdown;
  for I := 0 to Server.Threads.LockList.Count - 1 do
  begin
    TIdPeerThread(Server.Threads.LockList[I]).Connection.WriteBuffer(ACommBlock, SizeOf(ACommBlock), True);  // sendet Shutdown Meldung an den Client, der die Verbindung selber schließt
    TIdPeerThread(Server.Threads.LockList[I]).Connection.DisconnectSocket; // Sicher ist sicher !!!
    TIdPeerThread(Server.Threads.LockList[I]).Stop;  // Terminate etc. alles ohne Erfolg
  end;
  CanClose := True;
end;

danke trotzdem. Irgendwo, gibt es einen Haken in meinem Code, der das verursacht. Aber was.

bye
Claus