This property holds a collection of all the IPTC elements that
were found. So if you want to write them out you might use the
following code:
[VBScript]
Set gr = Server.CreateObject("ImageGlue7.Graphic")
gr.ReadIPTC = True
gr.SetFile(Server.MapPath("iptc_info.tif"))
For Each ip In gr.IPTC
Response.Write("Record = " & ip.Record&
"<br>")
Response.Write("DataSet = " & ip.DataSet&
"<br>")
Response.Write("Name = " & ip.Name &
"<br>")
Response.Write("Text = " & ip.Text &
"<br>")
Next
This might produce the following output:
Record = 2
DataSet = 0
Name =
Text =
Record = 2
DataSet = 120
Name = Caption
Text = Boats in the harbour
Record = 2
DataSet = 80
Name = Byline
Text = Chris Wyatt
Record = 2
DataSet = 25
Name = Keyword
Text = boat
Record = 2
DataSet = 25
Name = Keyword
Text = sea
Record = 2
DataSet = 25
Name = Keyword
Text = sailing
Record = 2
DataSet = 116
Name = Copyright String
Text = Chris Wyatt 2001
|