quote:

---

Is it possible to load an image, display it in imageenview and show the Exif thumbnail in an sperately imageenview?

---

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
  begin
    { Load just the EXIF_Bitmap into ImageEnView1 }
    ImageEnView1.IO.Params.GetThumbnail := True;
    ImageEnView1.IO.LoadFromFile(OpenPictureDialog1.FileName);
    if Assigned(ImageEnView1.IO.Params.EXIF_Bitmap) then
      ShowMessage('ImageEnView1 Has EXIF Bitmap.')
    else
      ShowMessage('No EXIF Bitmap in ImageEnView1.');
    { Load the full image into ImageEnView2 }
    ImageEnView2.IO.Params.GetThumbnail := False;
    ImageEnView2.IO.LoadFromFile(OpenPictureDialog1.FileName);
    ImageEnView1.Hint := IntToStr(ImageEnView1.Bitmap.Width) + ' x ' + IntToStr(ImageEnView1.Bitmap.Height);
    ImageEnView2.Hint := IntToStr(ImageEnView2.Bitmap.Width) + ' x ' + IntToStr(ImageEnView2.Bitmap.Height);
  end;
end;

quote:

---

Is it also possible to store an completely other picture as exif thumbnail?

---