Chilkat HOME ASP Visual Basic VB.NET C# Visual C++ C MFC Delphi FoxPro Java Perl PHP Python Ruby SQL Server VBScript
|
Load JPG, Extract XMP and Save as XML Loads a JPG with XMP metadata and extracts the 1st XMP document and saves it to a .xml file. Private Sub Command1_Click()
' Add references to these ActiveX components in your VB6 project:
' Chilkat XML
' Chilkat XMP
' The ChilkatXmpDude1.jpg test JPG can be downloaded from
' http://www.chilkatsoft.com/testData/ChilkatXmpDude1.jpg
' Create an instance of the XMP ActiveX and unlock it.
Dim xmp As New ChilkatXmp
success = xmp.UnlockComponent("anything for 30 day trial")
If (success = 0) Then
MsgBox "Failed to unlock"
Exit Sub
End If
' Load a JPG file.
success = xmp.LoadAppFile("chilkatXmpDude1.jpg")
If (success = 0) Then
MsgBox xmp.LastErrorText
Exit Sub
End If
' Show how many XMP documents are embedded within this JPG
MsgBox "Number of embedded XMP docs = " + Str(xmp.NumEmbedded)
' Get the 1st embedded XMP
' The sample JPG has only 1 embedded XMP anyway...
Dim xml As ChilkatXml
Set xml = xmp.GetEmbedded(0)
If Not (xml Is Nothing) Then
' Save the XML to a file.
xml.SaveXml "xmpDoc.xml"
Else
MsgBox xmp.LastErrorText
End If
End Sub
|
Need a specific example? Send a request to support@chilkatsoft.com
© 2000-2008 Chilkat Software, Inc. All Rights Reserved.