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
Add XMP Metadata to a JPG Image FileDelphi example program to embed XMP metadata into a JPEG image file. procedure TForm1.Button3Click(Sender: TObject);
var
success : Integer;
numXmp: Integer;
xml: IChilkatXml;
begin
ChilkatXmp1.UnlockComponent('Anything for 30-day trial');
// Load a JPEG image file (which has no embedded XMP metadata yet).
success := ChilkatXmp1.LoadAppFile('cheese32.jpg');
if (success = 0) then
begin
ChilkatXmp1.SaveLastError('lastError.txt');
ShowMessage(ChilkatXmp1.LastErrorText);
end;
// How many XMP metadata docs are embedded in this image file?
numXmp := ChilkatXmp1.NumEmbedded;
if (numXmp = 0) then
begin
// Create a new XMP document
// (XML Reference: http://www.chilkatsoft.com/refdoc/xChilkatXmlRef.html)
xml := ChilkatXmp1.NewXmp();
// Add some simple properties:
ChilkatXmp1.AddSimpleStr(xml,'exif:PixelXDimension','240');
ChilkatXmp1.AddSimpleStr(xml,'exif:PixelYDimension','240');
// Append the XMP to the JPG.
ChilkatXmp1.Append(xml);
// Save the JPG with embedded XMP metadata
ChilkatXmp1.SaveAppFile('out.jpg');
end;
end;
|
© 2000-2010 Chilkat Software, Inc. All Rights Reserved.