Chilkat • HOME • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi DLL • Go • Java • Node.js • Objective-C • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Delphi ActiveX) Get a Structure Property Value from XMPDemonstrates how to open a JPG or TIF image file, access the XMP metadata, and fetch the value of a structure property, such as the Iptc4xmpCore:CiTelWork (found within the Iptc4xmpCore:CreatorContactInfo structure).
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB; ... procedure TForm1.Button1Click(Sender: TObject); var xmp: TChilkatXmp; success: Integer; xml: IChilkatXml; propVal: WideString; begin // This requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. xmp := TChilkatXmp.Create(Self); // 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 begin Memo1.Lines.Add(xmp.LastErrorText); Exit; end; Memo1.Lines.Add('Num embedded XMP docs: ' + IntToStr(xmp.NumEmbedded)); // Assuming there is at least one, get the 1st. // (There is typically never more than one, but theoretically it's possible.) xml := xmp.GetEmbedded(0); if (xmp.LastMethodSuccess = 1) then begin propVal := xmp.GetStructValue(xml,'Iptc4xmpCore:CreatorContactInfo','Iptc4xmpCore:CiTelWork'); if (xmp.LastMethodSuccess <> 1) then begin Memo1.Lines.Add('Not found.'); end else begin Memo1.Lines.Add(propVal); end; end else begin Memo1.Lines.Add(xmp.LastErrorText); end; end; |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.