See Also

XmpMetaData Members

Description

Class represents the XMP metadata for a PDF document.

For a list of all members defined in this module, see XmpMetaData members.

Object Model






Interfaces

Implemented InterfaceDescription
Object 

Example

[ASP - VBScript] 

<!-- METADATA TYPE="typelib" UUID="{DF9225FE-94A4-490D-8CAD-E8366CE621D3}"--> 
<% 
    Option Explicit 
    Dim MyDocument, MyPage 
                             
    Set MyDocument = Server.CreateObject( "DynamicPDF.Document" ) 
    Set MyPage = MyDocument.AddPage() 
                     
    ' Create an Xmp Metadata 
    Dim MyXmp  
    Set MyXmp = MyDocument.SetXmpMetaData() 
                             
    ' Dublin Core Schema. 
    Dim Mydc 
    Set Mydc = MyXmp.DublinCore 
    Mydc.Contributors.Add "Abc"  
    Mydc.Contributors.Add "Xyz"  
    Mydc.Contributors.Add "Pqrs"  
    Mydc.Coverage = "To test all the attributes of schema's provided" 
    Mydc.Creators.Add "DynamicPDF"  
    Mydc.Creators.Add "ceTe Software" 
    Mydc.Date.Add( Now() ) 
    Mydc.Description.AddLang "en-us", "XMP Schema's test" 
    Mydc.Identifier = "First XMP pdf" 
    Mydc.Publisher.Add "DynamicPDF.com" 
    Mydc.Publisher.Add "ceTe Software"  
    Mydc.Relation.Add "Test PDF with XMP"  
    Mydc.Rights.DefaultText = "ceTe Software Pvt. Ltd" 
    Mydc.Rights.AddLang "en-us", "All rights reserved 2007, ceTe software." 
    Mydc.Source = "XMP Project" 
    Mydc.Subject.Add "eXtensible Metadata Platform" 
    Mydc.Title.AddLang "en-us", "XMP"  
    Mydc.Title.AddLang "it-it", "XMP - Piattaforma Estendible di Metadata"  
    Mydc.Title.AddLang "du-du", "De hallo Wereld"  
    Mydc.Title.AddLang "fr-fr", "XMP - Une Platforme Extensible pour les Métédonnées"  
    Mydc.Title.AddLang "DE-DE", "???? Hallo Welt"  
    Mydc.Type.Add "PDF file containing XMP MetaData" 
     
    ' Basic Schema. 
    Set Mydc = MyXmp.BasicSchema 
    Mydc.Advisory.Add "Date"  
    Mydc.Advisory.Add "Contributors"  
    Mydc.CreationDate = Now() 
    Mydc.Nickname = "xyz" 
     
    ' Mybs.Thumbnails.Add(106, 80, "JPEG", GetImage("C:\thumbnail.jpg")) 
                             
    ' Rights Management Schema. 
    Dim Myrm 
    Set Myrm = MyXmp.AddRightsManagementSchema 
    Myrm.Marked = True 
    Myrm.Owner.Add "DynamicPDF" 
    Myrm.UsageTerms.AddLang "en-us", "Contact ceTe software." 
     
    ' Basic Job Ticket Schema. 
    Dim MyJob 
    Set MyJob = MyXmp.AddBasicJobTicketSchema 
    MyJob.JobRef.Add "ceTe", "Xmp Test", "http://www.cete.com/" 
    MyJob.JobRef.Add "DynamicPDF", "XMP Metadata", "http://www.dynamicpdf.com/" 
                             
    ' Paged-Text Schema. 
    Dim Mypt 
    Set Mypt = MyXmp.AddPagedTextSchema 
     
    ' Save the PDF document 
    MyDocument.DrawToFile "C:\Temp\XMP.pdf" 
    ' Object cleanup 
    Set MyPage = Nothing 
    Set MyDocument = Nothing 
%>

See Also

XmpMetaData Members

 

 

© Copyright 2007, ceTe Software