|
Chilkat •
HOME •
Android™ •
ASP •
Visual Basic •
VB.NET •
C# •
iOS (IPhone) •
Objective-C •
C++ •
C •
MFC •
Delphi •
FoxPro •
Java •
Perl •
PHP Extension •
PHP ActiveX •
Python •
PowerShell •
Ruby •
SQL Server •
VBScript
|
|
Extract XMP MetaData as XML
Demonstrates how to open a JPG or TIF image file and extract the XMP metadata as XML. <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% set xmp = Server.CreateObject("Chilkat.Xmp") success = xmp.UnlockComponent("Anything for 30-day trial.") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode(xmp.LastErrorText) & "</pre>" End If ' Load a JPG or TIF image file. ' Sample JPG's with XMP metadata may be found at: ' http://www.chilkatsoft.com/testData/xmp/sample1.jpg ' http://www.chilkatsoft.com/testData/xmp/sample2.jpg ' http://www.chilkatsoft.com/testData/xmp/sample3.jpg success = xmp.LoadAppFile("sample1.jpg") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode(xmp.LastErrorText) & "</pre>" End If Response.Write "<pre>" & Server.HTMLEncode( "Num embedded XMP docs: " _ & xmp.NumEmbedded) & "</pre>" ' Assuming there is at least one, get the 1st. ' (There is typically never more than one, but theoretically it's possible.) ' xml is a Chilkat.Xml Set xml = xmp.GetEmbedded(0) If (Not (xml Is Nothing )) Then success = xml.SaveXml("xmpMetaData.xml") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode(xml.LastErrorText) & "</pre>" End If Response.Write "<pre>" & Server.HTMLEncode("Success.") & "</pre>" Else Response.Write "<pre>" & Server.HTMLEncode(xmp.LastErrorText) & "</pre>" End If %> </body> </html> |
© 2000-2012 Chilkat Software, Inc. All Rights Reserved.
