Hallo,

habe grade die Sakura Base64 Unit aus der Code Library mal ausprobiert und bin eigentlich ganz zufrieden. Funktioniert prima mit Strings. Jedoch bekomme ich es mit String Streams nicht hin. Vielleicht hat jemand ne Idee?

Hier mein Code:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TVerarbeitung.Decode64;
var
  sp: TStringStream;
begin
  try
    sp:= TstringSTREAM.Create('');
    try
      Base64.Base64Decode(FDatenstring,Cardinal(FDatenstring.size),sp);
    except
      Application.Terminate;
    end;
  finally
    FDatenstring.CopyFrom(sp,sp.size);
  end;
end;

Wäre euch dankbar, wenn mir das mal jemand kurz erklären oder ggf korrigieren könnte.

Danke1

Stoffel

Das geht so gar nicht, da Dein Code auf das Object vom Typ TStringStream zeigt, aber nicht auf den von den Daten belegten Speicher

Nicht getestet, sollte aber gehen:

markieren

Delphi-Quellcode:

procedure TVerarbeitung.Decode64;
begin
  FDatenstring.DataString := Base64.Base64Decode(FDatenstring.DataString);
end;

......

Hallo,

danke für die schnelle Antwort.
So gehts nicht - DataString ist ReadOnly. Es gibt die Möglichkeit dies über WriteString zu lösen. Nur: Wenn ich

FDatenstring.WriteString(Base64.Base64Decode(FDatenstring.DataString)); mache hängt er mir den DecodedString an den DataString an.

Also bräuchte ich eine Funktion, welche mir den DataSting überschreibt oder ggf. löscht.

Jemand ne Idee?

Gruß,
Stoffel

Vorher Position auf 0 setzen.

markieren

Delphi-Quellcode:

FDatenstring.Position := 0;
FDatenString.WriteString(Base64.Base64Decode(FDatenstring.DataString));

......

Okay...
was aber, wenn der String der vorher drin steht länger ist als der, der reingeschrieben wird?
Dann hab ich ja theoretisch noch Teile des alten Strings hinter dem neuen, oder?

Stoffel

Zitat von Stoffel1984:

Dann hab ich ja theoretisch noch Teile des alten Strings hinter dem neuen, oder?

Nein, lt. der OH von Delphi ersetzt WriteString alles von der Position bis zum Ende des aktuellen Strings. Evtl. überhängende Daten werden dabei verworfen.

......

Super, danke!