(DataFlex) Add XMP MetaData to JPG or TIFF

Demonstrates how to add XMP metadata to a JPG or TIFF image that doesn't already have XMP metadata.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoXmp
    Variant vXml
    Handle hoXml
    Boolean iSuccess
    String sTemp1

    // This example assumes the Chilkat API to have been previously unlocked.
    // See Global Unlock Sample for sample code.

    Get Create (RefClass(cComChilkatXmp)) To hoXmp
    If (Not(IsComObjectCreated(hoXmp))) Begin
        Send CreateComObject of hoXmp
    End

    // The first step is to create a new XMP document, which is nothing
    // more than XML.  The NewXmp method returns an XML document with
    // the standard XMP boilerplate.  
    Get ComNewXmp Of hoXmp To vXml
    If (IsComObject(vXml)) Begin
        Get Create (RefClass(cComChilkatXml)) To hoXml
        Set pvComObject Of hoXml To vXml
    End

    // Add some properties...
    Get ComAddSimpleStr Of hoXmp vXml "Iptc4xmpCore:Chilkat" "Blah blah" To iSuccess
    // If you wish to view the XML, save it to a file and review it
    // with a text editor:
    Get ComSaveXml Of hoXml "newXmp.xml" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoXml To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // To add the XMP to the JPG (or TIFF), simply load the JPG,
    // append the XMP, and save:
    Get ComLoadAppFile Of hoXmp "scream.jpg" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoXmp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComAppend Of hoXmp vXml To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoXmp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComSaveAppFile Of hoXmp "screamOut.jpg" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoXmp To sTemp1
        Showln sTemp1
        Procedure_Return
    End



End_Procedure