[Indy] TCPServer mit aktiver Verbindung beenden

[Duffy]

Hallo Dax,
selbes Ergebnis ...

bye
Claus

[Dax]

Ganz rabiat: TCPServer.Destroy;

[Duffy]

Hallo Dax,
dann kommt ein Zugriffsfehler, was aber auch logisch ist, denn die Komponente liegt auf dem Formurlar. Es muß da eine saubere Lösung geben.

bye
Claus

[linobrocken]

Hallo,
ich habe genau das selbe Problem, nur das bei mir noch hinzukommt das ,wenn ich ein Client disconnected und danach ein weiterer die Routine OnDisconnect auf Server Seite einfach nicht ausgeführt wird, weil der Server noch im OnExecute festhängt.

Gruß Pascal

[Jakson]

Hatte gerade das selbe Problem.

Wurde folgendermaßen gelöst:

Code:

procedure TForm.FormDestroy(Sender: TObject);
var MyList : TList;
    Count  : Integer;
begin
 MyList := IdTCP_Server.Contexts.LockList;
 try
  for Count := 0 to MyList.Count - 1 do
   TIdContext(MyList[Count]).Connection.Disconnect;
 finally
  IdTCP_Server.Contexts.UnlockList;
 end;
 IdTCP_Server.Active := False;
end;

Bei beenden des Programms werden alle noch offenen Verbindungen getrennt.
Die mit LockList gesperrte Liste muss natürlich wieder mit UnlockList entsperrt werden.