[Visual Basic]
Set gr = CreateObject("ImageGlue7.Graphic")
Set ge = CreateObject("ImageGlue7.Gestalt")
gr.ReadExif = True
gr.SetFile "rez\myexif.jpg"
theBytes = gr.Exif.Thumbnail
If theBytes.Length > 0 Then
ge.Save "Thumbnail.jpg", theBytes
End If
This example illustrates how to retrieve and save the exif
thumbnail image.
|