Delphi-Quellcode:
uses
EncdDecd;
var
stream : TBytesStream;
base64 : String;
begin
if idVCard1.Photo.Base64Encoded then
begin
base64 := idVCard1.Photo.EmbeddedData.Text;
stream := TBytesStream.create(decodeBase64(base64));
try
if stream.Size > 0 then
begin
stream.Seek(0,soBeginning);
image1.Picture.Bitmap.LoadFromStream(stream);
end;
finally
stream.Free;
end;
end;
end;
Dann müsste sich irgendwie noch ermitteln lassen, ob es sich um ein Bitmap, gig oder jpg Photo handelt.
Da ich keine vCard zur Hand hatte - habe ich den Code nicht getestet.
Grüße
Klaus