Hi,

ich habe ein kleines Problem wo ich nicht draufkomme.
Ich habe einen Thread, der einen TIdTCPServer im constructor erstellt.


Wenn der Thread terminiert wird, wird der TIdTCPServer.Active auf False gesetzt und danach sollte TIdTCPServer.Free ausgeführt werden.

Wenn nun kein Client verbunden war geht das ohne Probleme.
Wenn aber ein Client verbunden war/ist bleibt es bei TIdTCPServer.Active := False stehen.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TExtra_Thread.Execute();
var
begin


  while (not Terminated) do
  begin
     // do some things
    Sleep(1);
  end; // while (not Terminated) do

  // destroy TCP server:
  TCP_Server.Active := False;
  TCP_Server.Free;
end;

Komme nicht weiter!?

Guten Abend,

Du kannst abfragen ob noch clients verbunden sind.
Wenn ja, diese Verbindungen gracefully beenden.

Grüße
Klaus

Wo finde ich das CloseGracefully?

Im TIdTCPServer oder TIdContext?

Weiter Versuche haben gezeigt, dass der Thread hängen bleibt, wenn ich bei einem Clienten ein Disconnect durchgeführt hatte.

TIdContext(Active_Client.AContext).Connection.Disconnect Wenn dies einmal gemacht wurde kann man den Server nicht mehr beenden.

Aber irgendwie muss ich ja Clients von der Server Seite her rausschmeißen können...

zusammenfalten · markieren

Delphi-Quellcode:

   if assigned(FServer) then
      begin
        if FServer.Contexts.LockList.Count > 0 then
          for i:=0 to FServer.Contexts.LockList.Count -1 do
            begin
              TIdContext(FServer.Contexts.LockList[i]).Connection.IOHandler.CloseGracefully;
            end;
        FServer.Contexts.UnlockList;
        FServer.Active:=false;
        sleep(150);
        FServer.free;

Wobei hier FServer vom Typ TIdTCPServer ist.

Grüße
Klaus

Danke, aber das CloseGracefully hat nicht funktioniert.

So klappt es:

markieren

Delphi-Quellcode:

    TIdContext(Active_Client.AContext).Connection.IOHandler.CloseGracefully;
    TIdContext(Active_Client.AContext).Connection.IOHandler.DiscardAll;

Also erst Verbindung trennen und dann die Daten per DiscardAll Verwerfen.
Es wird dann ganz normal die OnDisconnect aufgerufen und der Server lässt sich beenden.
Ob's jedoch ganz richtig ist?

versuche mal das:

1. der tcp server started auch ein thread, so du hast ein thread in einem thread
2. du must den thread blockieren anders wird dein thread list verschoben und es hangt
3. du must erst einen critical section deklarieren
4. dann kanst du den server starten
5. wenn server stopped den critical section wieder beheben.

Critical Section is in SyncObjs unit.

Hoffe das hilft dir weiter

PS: Warum startest du den server in einem thread, der sever ist ja schon ein thread? Ich bin mir sicher das du einen guten grund hast, Ich bin mur neugirig.