Nochmal ich!

Jetzt bin ich auf noch ein Problem gestoßen:

Der Server läuft und der Client wartet auf Daten:
dTCPClient.IOHandler.ReadBytes(Buf, 16, False); Nun wird der Server beendet mit

zusammenfalten · markieren

Delphi-Quellcode:

  if Assigned(fTCP_Server) then
  begin
    if fTCP_Server.Contexts.LockList.Count > 0 then
    begin
      for i := fTCP_Server.Contexts.LockList.Count - 1 downto 0 do
      begin
        TIdContext(fTCP_Server.Contexts.LockList[i]).Connection.Disconnect;
        TIdContext(fTCP_Server.Contexts.LockList[i]).Connection.IOHandler.DiscardAll;
      end;
    end;
    fTCP_Server.Contexts.UnlockList;
    fTCP_Server.Active := false;
    FreeAndNil(fTCP_Server);
  end;

Alles passt, Server kann beendet werden.

Wenn nun aber der Client Daten an den Server schickt, egal ob dieser diese Auswertet oder nicht dann kann der Server wieder nicht beendet werden!

Also wenn der Client sowas macht:
IdTCPClient.IOHandler.Write(Buf, 16); Es steht dann wieder beim Active := False;

Habe die OnExecute des Servers jetzt so umgebaut.
Jetzt haut er den Client wieder raus und der Server kann beendet werden.

Mal schauen ob da noch was ist...

zusammenfalten · markieren

Delphi-Quellcode:

procedure TIndeed_Server.OnExecute(AContext: TIdContext);
var
  Active_Client : TIndeed_Client;
begin
  Active_Client := TIndeed_Client(AContext.Data);

  while AContext.Connection.Connected do
  begin
    if not AContext.Connection.IOHandler.InputBufferIsEmpty then
    begin
      if not Terminated then
        Client_Command_Handler(Active_Client)
      else
        AContext.Connection.IOHandler.InputBuffer.Clear;
    end;

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

Beim Server schließen dürfen auch nicht die einzelenen Verbindungen beendet werden.
Sondern einfach nur:

markieren

Delphi-Quellcode:

  if Assigned(fTCP_Server) then
  begin
    fTCP_Server.Active := false;
    FreeAndNil(fTCP_Server);
  end;