Hallo Leute,
ich hänge gerade bei ein paar Änderungen von Indy 9 auf 10. Ich wollte diesen Artikel nachprogrammieren: http://users.atw.hu/delphicikk/lista...=2325&oldal=55
Doch ein paar Sachen finde ich in Indy 10 nicht.

Zum Beispiel:
If Length(AThread.Connection.CurrentReadBuffer)>0 then

Zitat von mb1996:

Zum Beispiel:
If Length(AThread.Connection.CurrentReadBuffer)>0 then

sollte zu if not AThread.Connection.IOHandler.InputBufferIsEmpty then werden.
Grüße
Klaus

Ich kann auch keine Komplettlösung geben, nur bsp. mit einem netten IMC-Framework "Cromis IMC" kommen, enthält an vielen Stellen bedingte Kompilierung für Indy 9 und 10 wie

markieren

Delphi-Quellcode:

function ReadInt(const AConnection: TIdTCPConnection):{$IFDEF Indy9}Integer{$ELSE}Int64{$ENDIF};
begin
  Result := {$IFDEF Indy9}AConnection.ReadInteger{$ELSE}AConnection.IOHandler.ReadInt64{$ENDIF};
end;

Sicher keine hochoffizielle Gesamtübersicht aber wahrscheinlich besser als nichts...

Ok,
den Rest konnte ich lösen.
Jetzt finde ich nur noch zweimal Len := AThread.Connection.CurrentReadBufferSize; nicht ^^

vielleicht tut es hier: AContext.Connection.IOHandler.InputBuffer.Size Grüße
Klaus

Hm, das ist mein aktueller Stand.

zusammenfalten · markieren

Delphi-Quellcode:

procedure TFormMain.TCPServerExecute(AContext: TIdContext);
var
  Cli: TIdTCPClient;
  Len: Cardinal;
  Data: string;
  InputStream: TStream;
begin
  try
    Cli := nil;
    try
      Cli := TIdTCPClient.Create(nil);
      Cli.Host := 'www.google.de';
      Cli.Port := 80;
      Cli.Connect;
      repeat
        if not AContext.Connection.IOHandler.InputBufferIsEmpty then
        begin
          //Artikel
          Len := AContext.Connection.IOHandler.InputBuffer.Size;
          Data := AContext.Connection.IOHandler.ReadString(Len);
          Cli.IOHandler.Write(Data);

          //Mein zweiter Versuch
          //InputStream:=TStream.Create;
          //Len:=AContext.Connection.IOHandler.InputBuffer.Size;
          //AContext.Connection.IOHandler.ReadStream(InputStream,Len,false);
          //Cli.IOHandler.Write(InputStream,InputStream.Size);
          //InputStream.Free;
        end;
        if Cli.IOHandler.InputBufferIsEmpty then
        begin
          //Artikel
          Len := Cli.IOHandler.InputBuffer.Size;
          Data := Cli.IOHandler.ReadString(Len);
          AContext.Connection.IOHandler.Write(Data);

          //Mein zweiter Versuch
          //InputStream:=TStream.Create;
          //Len:=cli.IOHandler.InputBuffer.Size;
          //cli.IOHandler.ReadStream(InputStream,Len,false);
          //AContext.Connection.IOHandler.Write(InputStream,InputStream.Size);
          //InputStream.Free;
        end;
        Cli.IOHandler.CheckForDisconnect(False);
        Cli.CheckForGracefulDisconnect(False);
        AContext.Connection.IOHandler.CheckForDisconnect(False);
        AContext.Connection.IOHandler.CheckForDisconnect(False);
        //SleepEx(1, True);
      until (not AContext.Connection.Connected) or (not Cli.Connected);
    finally
      if Assigned(Cli) then
      begin
        Cli.Disconnect;
        Cli.Free
      end;
      AContext.Connection.Disconnect;
    end;
  except
  end;
end;

Die Möglichkeit vom Artikel klappt leider nicht. Die Antwort vom Server ist nichts. Außerdem finde ich das sehr seltsam, dass diese Antwort in einen String gespeichert wird. Darunter mal mein Lösungsansatz ^^ Der klappt leider auch nicht. Es erscheint eine Fehlermeldung, die mir mit TStream.Seek nicht weiter hilft :/
Sieht jemand den Fehler?