This property tells you how many Exif records are
available. You can use the count instead of the default enumerator.
For example the following code...
[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 gr = Server.CreateObject("ImageGlue7.Graphic")
gr.ReadIPTC = True
gr.SetFile("rez\myimg.jpg")
For i = 0 To gr.Exif.Count - 1
Response.Write(gr.Exif(i).Name & ":" &
Exif.Value & "<br>")
Next
|