Xojo Conferences

« Sneak Peak | Home | My Session at the Xoj… »

Tip of the day: Change EXIF metadata

Our XMP plugin can read/write EXIF metadata, IPTC and of course the XMP values:

dim file as FolderItem = SpecialFolder.Desktop.Child("test.jpg") // use XMPFilesMBS to open file dim flags as integer = XMPFilesMBS.kOpenForUpdate dim xf as new XMPFilesMBS(file, XMPFilesMBS.kUnknownFile, flags) // now read the metadata dim xmp as new XMPMetaMBS dim PacketInfo as XMPPacketInfoMBS dim xmppacket as string if xf.GetXMP(xmp, xmppacket, PacketInfo) then // set a value like here a different GPS altitude xmp.SetProperty xmp.kNS_EXIF, "GPSAltitude", "24695/43" // update file if xf.CanPutXMP(xmp) then xf.PutXMP(xmp) xf.CloseFile(XMPFilesMBS.kUpdateSafely) else MsgBox "Can't update." end if end if
26 03 14 - 13:33
one comment

Can it add XMP to a PDF if there is no XMP in the PDF to begin with?
Dan - 26 03 14 - 17:28

Remember personal info?

Emoticons / Textile

Hide email:

Small print: All html tags except <b> and <i> will be removed from your comment. You can make links by just typing the url or mail-address.