Forum: Sonstige Fragen zu Delphi
Delphi
by sakura,
9. Jun 2004
Vorher Position auf 0 setzen.
FDatenstring.Position := 0;
FDatenString.WriteString(Base64.Base64Decode(FDatenstring.DataString));
...:cat:...
Forum: Sonstige Fragen zu Delphi
Delphi
by sakura,
9. Jun 2004
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:
procedure TVerarbeitung.Decode64;
begin
FDatenstring.DataString := Base64.Base64Decode(FDatenstring.DataString);
end;
...:cat:...