vCard-Foto in Image

[Klaus01]

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