XML mit Bilder

[ngott2]

Hallo,
ich möchte ein bestehendes Projekt erweitern und zwar mit Bilder, die in der bereits vorhandenen XML gespeichert werden sollen.


Wie geht man das an besten an (Wie speichert man Daten wie Bilder in eine XML und liest sie wieder aus.)?

Bin für jeden Tipp dankbar.

mfg
ngott2

[bernau]

Die Binären Daten kannst du Base64 codieren. Damit werden die binären Daten in einen String konvertiert. Der natürlich etwas mehr platz benötigt.

Such mal hier im Forum nach Base64.

[Bummi]

Ein kleines Beispiel für Bitmaps, gegf. anzupassen

Delphi-Quellcode:

USES Soap.EncdDecd;

function BitmapToBase64(ABitmap: TBitmap): AnsiString;
var
  MS: TMemoryStream;
begin
  MS := TMemoryStream.Create;
  try
    ABitmap.SaveToStream(MS);
    Result := EncodeBase64(MS.Memory,MS.Size);
  finally
    MS.Free;
  end;
end;

function Base64ToBitmap(const S: AnsiString): TBitmap;
var
  SS: TStringStream;
  B: TBytes;
begin
  B := DecodeBase64(S);
  SS := TStringStream.Create(B);
  try
    Result := TBitmap.Create;
    Result.LoadFromStream(SS);
  finally
    SS.Free;
  end;
end;

procedure TForm5.Button1Click(Sender: TObject);
begin
  Memo1.Text := BitmapToBase64(Image1.Picture.Bitmap);
  Image2.Picture.Bitmap.Assign(Base64ToBitmap(Memo1.Text));
end;

[ngott2]

Danke.

[Jens01]

Ich würde vorher noch komprimieren zB mit zLib. Macht die Datei erheblich kleiner und schneller.

[Dejan Vu]

Zitat von Jens01:

Macht die Datei erheblich ... und schneller.

Wie kann eine Datei schneller werden?

[Jens01]

Na, zLib wirkt wie eine Art Doping.

[Jumpy]

Wobei es da doch sicher auf das Format des Bildes ankommt. JPEG-Bilder z.B. sind doch schon oft komprimiert.