Ich komme mit den WE Units mal wieder nicht klar. Und ne, andere möchte ich nicht nutzen.
Wie enkodiert man einen String in Base64 mit den WE Units?
Der Funktionskopf

markieren

Delphi-Quellcode:

procedure EncodeBase64(psrc,pdest: pointer; lsrc,ldest: word; var LA: word);
  {-Base64 encode src to dest, LA result length of dest string}

Src habe ich. Dest scheint nur ein leerer PChar zu sein. lsrc also die Länge von Source habe ich auch. Aber woher soll ich die ldst Länge von dest wissen ?!

Das hier scheint eher nicht zu funktionieren

markieren

Delphi-Quellcode:

function Base64(const Text: PChar): string;
var
 Dest: PChar;
 L: Word;
begin
 EncodeBase64(Text, Dest, Length(Text), Length(Dest), L);
 Result := Dest;
end;

Zitat von DieDolly:

Ich komme mit den WE Units mal wieder nicht klar. Und ne, andere möchte ich nicht nutzen.
Wie enkodiert man einen String in Base64 mit den WE Units?
Der Funktionskopf

markieren

Delphi-Quellcode:

procedure EncodeBase64(psrc,pdest: pointer; lsrc,ldest: word; var LA: word);
  {-Base64 encode src to dest, LA result length of dest string}

Src habe ich. Dest scheint nur ein leerer PChar zu sein. lsrc also die Länge von Source habe ich auch. Aber woher soll ich die ldst Länge von dest wissen ?!

Das hier scheint eher nicht zu funktionieren

markieren

Delphi-Quellcode:

function Base64(const Text: PChar): string;
var
 Dest: PChar;
 L: Word;
begin
 EncodeBase64(Text, Dest, Length(Text), Length(Dest), L);
 Result := Dest;
end;

Du mußt der Routine den Speicher übergeben, den sie füllen soll, z. B.

Dest: String;
begin
SetLength(Dest, Lenght(Text)*3);
EncodeBase64(Test, @Dest[1]), length(text), length(dest), L);

L sagt Dir dann, wieviel des Dest-Puffers wirklich verwendet wurde.

Cave Unicode! Keine Ahnung ob die Bibliothek mit ANSI oder widechars arbeitet.

SetLength(Dest, Lenght(Text)*3); Ist die Multiplikation mit 3 beabsichtigt und warum genau 3?

Zitat:

System.SetLength(Dest, Length(Text) * 3);

Zitat:

[dcc32 Fehler] E2197 Konstantenobjekt kann nicht als Var-Parameter weitergegeben werden

Den Fehler hatte ich mit SetLength auch noch nie.

Zitat von DieDolly:

Zitat:

System.SetLength(Dest, Length(Text) * 3);

Zitat:

[dcc32 Fehler] E2197 Konstantenobjekt kann nicht als Var-Parameter weitergegeben werden

Den Fehler hatte ich mit SetLength auch noch nie.

Hast Du den Typ von Dest auf String geändert?

Ja aber da kommt nur Chinesisch am Ende bei raus.

markieren

Delphi-Quellcode:

// Text: string
var
 Dest: string;
 L: Word;
begin
 System.SetLength(Dest, Length(Text) * 3);
 EncodeBase64(@Text[1], @Dest[1], Length(Text), Length(Dest), L);

 Result := Dest;
end;

Aus ABD sollte eigentlich QUJD werden.

Ist Text immer noch ein PChar? Dann kannst Du ihn direkt verwenden. Mit @Text[1] holst Du dir sonst einen Zeiger auf das zweite Zeichen.