CodeLibrary BASE64 Unit

[Stoffel1984]

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:

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