This property provides access to individual
Exif records. The enumeration can also be indexed as
illustrated by the code fragments below.
[VBScript]
Set gr = Server.CreateObject("ImageGlue7.Graphic")
gr.ReadExif = True
gr.SetFile "rez\myexif.jpg"
For Each exifrec In gr.Exif
Response.Write(Exif.Name & ":" & Exif.Value
& "<br>")
Next
is functionally equivalent to ....
[VBScript]
Set gr2 = Server.CreateObject("ImageGlue7.Graphic")
gr2.ReadIPTC = True
gr2.SetFile "rez\myimg.jpg"
For i = 1 To gr2.Exif.Count
Response.Write(gr2.Exif(i).Name & ":" &
Exif.Value & "<br>")
Next
|