[Gelöst] IdTCPServer <-> IdTCPClient verändert Daten

[Bernhard Geyer]

Dein Exception-Handling schaut schon sehr "komisch" aus.

was macht das try..except mit leeren Exception-Block?
Was soll die Prüfung auf nil im Finally?
Kommentar bekannt? Bekannt für wen? Sicherlich nicht für einen der den Code in 2 Jahren nochmal anschaut
else mit exit? Wieso nicht gleich den Rest der Funktion gleich im then-Zweig laufen lassen?
nil-Setzen vor dem try...finally - Vor dem try sollen die Konstruktoren aufgerufen werden
// #### Create IOHandler #### Das sollte jeder nach zwei Wochen Delphi wissen das hier ein Konstruktor kommt
{ Connect to the remote server } Mehrwert Kommentar? Die Methode heißt connect
Die Disconnect würde ich im try-Zweig machen. Falls dort ein Excption auftritt wird mit free noch aufgeräumt.

Delphi-Quellcode:

  if PeerIPs.IndexOfName(AContext.Connection.Socket.Binding.PeerIP) <> -1 then
  begin 
    GblUrl := PeerIPs.Values[AContext.Connection.Socket.Binding.PeerIP];

    IOhnd := TIdIOHandlerStack.Create(nil);
    Cli := TIdTCPClient.Create(nil);
    try   
      Cli.IOHandler := IOhnd;
      Cli.Host := GblUrl;
      Cli.Port := 80;

      Cli.Connect;

      { Read/Write loop }
      repeat
        { Read data from Client }
        if AContext.Connection.IOHandler.InputBuffer.Size > 0 then
        begin
          Len := AContext.Connection.IOHandler.InputBuffer.Size;
          Data := AContext.Connection.IOHandler.ReadString(Len);
          { Write it to the Server }
          Cli.IOHandler.Write(Data);
        end;

        { Read data from Server }
        if Cli.IOHandler.InputBuffer.Size > 0 then
        begin
          Len := Cli.IOHandler.InputBuffer.Size;
          Cli.IOHandler.ReadBytes(Buf, Len, False);

          { Write it to the Server }
          AContext.Connection.IOHandler.Write(Buf,Len);
          { Release system slizes }
        end;

        SleepEx(1, True);
        Cli.CheckForGracefulDisconnect(False);
        AContext.Connection.CheckForGracefulDisconnect(False);
      until not AContext.Connection.Connected) or not Cli.Connected;

      Cli.Disconnect;
      AContext.Connection.Disconnect;
    finally
      Cli.Free
      IOhnd.Free;
    end;
  end;

[DelTurbo]

Hi,
das ist auch klar das man so nicht machen sollte. Aber ich habe das 1:1 aus der Quelle genommen und nur auf Indy10 geändert.

Und ich habe alles so gelassen, weil ich dachte es Hilft wenn man das "Original" und meine Änderungen sieht.

Aber vielleicht kannst du mir sagen wie man beim IdTcpServer an eine eindeutige SessionID kommt. Das such ich nun schon einen halben Tag. Ich meine NICHT die PeerIP. Die kann ja mehrfach da sein wenn jemand zu hause mehr als einen Rechner hat.

Gruß und Danke für den Hinweis.
PS.: Das ich 3 Themen aufgemacht habe, wollte ich nicht noch ein neues Thema aufmachen und dachte das finde ich schon. Ist aber nicht. Ich finde leider gar nichts.

[Bernhard Geyer]

Zitat von DelTurbo:

Aber vielleicht kannst du mir sagen wie man beim IdTcpServer an eine eindeutige SessionID kommt.

Ich verwende Indy nicht.

Zitat von DelTurbo:

PS.: Das ich 3 Themen aufgemacht habe, wollte ich nicht noch ein neues Thema aufmachen und dachte das finde ich schon. Ist aber nicht. Ich finde leider gar nichts.

Dann man am besten ein neues Thema mit passenden Titel auf.