Visual Basic Examples

ChilkatHOMEAndroid™ASPVisual BasicVB.NETC#iOS (IPhone)Objective-CC++CMFCDelphiFoxProJavaPerl
PHP ExtensionPHP ActiveXPythonPowerShellRubySQL ServerVBScript

VB Examples

Bounced Mail
Bz2
Character Encoding
CSV
Digital Certificates
Digital Signatures
Email
FTP
HTML Conversion
HTTP
IMAP
Encryption
MHT / HTML Email
POP3
RSA
S/MIME
SFTP
SMTP
Socket
Spider
SSH
SSH Key
SSH Tunnel
String
Tar
Upload
XML
XMP
Zip Compression

More Examples...
Amazon S3
Email Object
DKIM / DomainKey
NTLM
DH Key Exchange
DSA
FileAccess
RSS
Atom
Self-Extractor
Service
Bzip2
PPMD
Deflate
LZW


VB Strings
VB Byte Array

 

 

 

 

 

 

 

Remove Last Property in Schema

Download Chilkat XML ActiveX

Code to test removing the last property in a schema. When the last property is removed, the rdf:Description node should also be automatically removed.

    ' Remove all the properties for a specific schema.
    ' When the last property is removed, the "rdf:Description" node
    ' is also removed.
    ' Create an instance of the XMP ActiveX and unlock it.
    Dim xmp As New ChilkatXmp
    success = xmp.UnlockComponent("anything for 30 day trial")
    If (success = 0) Then
        MsgBox "Failed to unlock"
        Exit Sub
    End If
    
    ' Load a JPG file.
    success = xmp.LoadAppFile("IndependantPhotographer-Example.jpg")
     If (success = 0) Then
        MsgBox xmp.LastErrorText
        Exit Sub
    End If
   
   ' Get the 1st (and only) XMP in this JPG.
    Dim xml As ChilkatXml
    Set xml = xmp.GetEmbedded(0)
    If (xml Is Nothing) Then
        MsgBox xmp.LastErrorText
        Exit Sub
    End If
        
    xmp.RemoveSimple xml, "xap:CreateDate"
    xmp.RemoveSimple xml, "xap:ModifyDate"
    xmp.RemoveSimple xml, "xap:MetadataDate"
    xmp.RemoveSimple xml, "xap:CreatorTool"
    
    ' Save the XML to verify.
    ' (This line is not necessary, it is only here for extra information.)
    xml.SaveXml "out.xml"
    
    ' Save the JPG.
    xmp.SaveAppFile "out.jpg"



 

© 2000-2012 Chilkat Software, Inc. All Rights Reserved.