Hallo,

Ich verstehe gerade nicht das Problem. Folgendes:

zusammenfalten · markieren

Delphi-Quellcode:

procedure Beispiel(AStream: TMemoryStream);
var tmp: TMemoryStream;
begin
  tmp := TMemoryStream.Create;
  try
    tmp.SetSize(CalcEncodedSize(AStream.Size));
    Base64Encode(AStream.Memory^,AStream.Size,tmp.Memory^);
    AStream.Clear; // <--
    AStream.Write(tmp.Memory^,tmp.Size);
  finally
    tmp.Free;
  end;
end;

An der markierten Stelle kracht es. Außerdem stehen in tmp nach Base64Encode nur 0-Bytes.
Was mache ich denn falsch?

Gruß
Neutral General

Hallo Michael,

eigentlich müsste es in der Zeile davor "gekracht" haben, wenn ich deinen Code mit anderen Beispielen hier in der DP vergleiche.

Grüße vom marabu

Hallo,

Also ich benutze diese Überladung von Base64Encode:

procedure Base64Encode(const InBuffer; InSize: Cardinal; var OutBuffer);

Was ist denn das Problem?

Die von Dir verwendete Überladung war klar zu sehen.
Ich hatte die DP nach Base64Encode durchsucht und diesen Beitrag gefunden.
Du dereferenzierst Memory, Matthias nicht.
Dieser Unterschied könnte über Erfolg und Misserfolg entscheiden.

Ja.. den Beitrag habe ich schon gesehen.
Allerdings müsste seine Übergabe (ohne Dereferenzierung) falsch sein.

Was ich grade feststelle: Mit und ohne Dereferenzierung ist nach dem Aufruf AStream = nil

Zitat von Neutral General:

Allerdings müsste seine Übergabe (ohne Dereferenzierung) falsch sein.

Ohne Dereferenzierung ist schon richtig:

markieren

Delphi-Quellcode:

var
  p: Pointer;
{...}
  p := tmp.Memory;
  Base64Encode(AStream.Memory, AStream.Size, p);