Base64 Encode/Decode-Funktion noch nicht in Basisfunktion verfügbar

[Bernhard Geyer]

In XE2 habe ich nach einer Basis-Funktion für Base64 Codierung gesucht.
Im SOAP-Berich bin ich auf Funktionen gestoßen die aber mit TBytes arbeiten.

Gibt es in XE2 keine Entsprechung zu Base64Encode(In: (Ansi)String): (Ansi)String in der RTL?

[Bummi]

EncdDecd.pas ??

[Bernhard Geyer]

Zitat:

Zitat von Bummi (Beitrag 1142867)

EncdDecd.pas ??

Soap.EncdDecd

Und wieso hat man das nicht in einem Packages das eher im Bereich RTL bzw. Allgemein/Basisfunktionalität liegt?
Will man mit dieser Unit arbeiten und würde Laufzeitpackages verwenden müsste man das SOAP-Package mitliefern.
Kann ja auch nicht sinn der sache sein sowas allgemeines (wird ja bei "normal" Web und XML auch benötigt).

[Bummi]

ich bin noch bei XE (ohne 2) und es funktioniert nur sauber mit folgenden Overloads ....

Delphi-Quellcode:

function EncodeString(const Input: UTF8String): UTF8String; overload;
var
  InStr, OutStr: TStringStream;
begin
  InStr := TStringStream.Create(Input, TEncoding.UTF8);
  try
    OutStr := TStringStream.Create('', TEncoding.UTF8);
    try
      EncodeStream(InStr, OutStr);
      Result := OutStr.DataString;
    finally
      OutStr.Free;
    end;
  finally
    InStr.Free;
  end;
end;

function DecodeString(const Input: UTF8String): UTF8String;overload;
var
  InStr, OutStr: TStringStream;
begin
  InStr := TStringStream.Create(Input, TEncoding.UTF8);
  try
    OutStr := TStringStream.Create('', TEncoding.UTF8);
    try
      DecodeStream(InStr, OutStr);
      Result := OutStr.DataString;
    finally
      OutStr.Free;
    end;
  finally
    InStr.Free;
  end;
end;

[Bernhard Geyer]

Zitat:

Zitat von Bummi (Beitrag 1142869)

ich bin noch bei XE (ohne 2) und es funktioniert nur sauber mit folgenden Overloads ....

Mit den Overloads ist klar. Aber wieso im Namespace SOAP ...

[Bummi]

Frag mich nicht, ich habe kein XE2, also kein NameSpace

[Uwe Raabe]

Zitat:

Zitat von Bernhard Geyer (Beitrag 1142872)

Zitat:

Zitat von Bummi (Beitrag 1142869)

ich bin noch bei XE (ohne 2) und es funktioniert nur sauber mit folgenden Overloads ....

Mit den Overloads ist klar. Aber wieso im Namespace SOAP ...

Ich glaube, Bernhard meint, warum diese Funktionalität im SOAP-Bereich (NameSpace) untergebracht ist und nicht in der RTL.

[Bummi]

@Uwe Rabe
Danke, ich hatte verstanden unter XE2 hätte sich der Name geändert in der Syntax wir bei Generics.Collections.pas

[Foxpro]

Moin NG,

ich sitze seit gestern mit BASE64 rum und will das in XE2 zum laufen bringen, nun startet zwar das Programm und die Funktion schmeißt auch keine Fehler,
aber wie bekomme ich base64 dazu eine base64-codierte Datei auch zu schreiben?

@Bummi
könntest Du mir die Base64.pas die bei Dir läuft zukommen lassen?

Gruß an Alle und schon mal Danke vorab

[p80286]

Versuch es mal hiermit:http://www.delphipraxis.net/991-base...-decoding.html

Gruß
K-H