|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Tcl) Convert MIME to XMLDemonstrates how to convert MIME to XML, and how to access the MIME parts and data from XML.
load ./chilkat.dll # This example requires the Chilkat API to have been previously unlocked. # See Global Unlock Sample for sample code. set mime [new_CkMime] # The contents of this MIME file are shown below, # and is also available at https://www.chilkatsoft.com/sampleMime.txt set success [CkMime_LoadMimeFile $mime "qa_data/mime/sampleMime.txt"] if {$success != 1} then { puts [CkMime_lastErrorText $mime] delete_CkMime $mime exit } # The MIME used in this example has the following nested structure # # multipart/alternative # text/plain # multipart/related # text/html # image/jpeg # # Convert to XML. set xmlStr [CkMime_getXml $mime] # Load into a Chilkat XML object so we can emit in indented format. # (and also to demonstrate how to access the MIME content from XML). set xml [new_CkXml] CkXml_LoadXml $xml $xmlStr # The XML emitted by this statement is shown below, following the remainder of sample code. puts [CkXml_getXml $xml] # To get the top-level Subject header field: puts "Subject = [CkXml_chilkatPath $xml header|subject|*]" # Another way of getting the Subject: CkXml_FirstChild2 $xml puts "Subject = [CkXml_getChildContent $xml subject]" CkXml_GetRoot2 $xml # Using the Chilkat XML API, there are many different ways of accomplishing a goal. # This example shows only a few possibilities... # Let's go to the <body> tag containing the HTML. # First we find the XML node where the content-type is text/html. # (XML methods ending in "2" update the internal reference to the XML node.) set success [CkXml_SearchForContent2 $xml $xml "content-type" "text/html"] if {$success == 1} then { # From this point, we know the HTML content is two levels up (to the <mime_message> node), # and one level down (to the <body> node). We can get the HTML content from here: set htmlContent [CkXml_chilkatPath $xml "..|..|body|*"] puts "$htmlContent" puts "-" } # Back to the root... CkXml_GetRoot2 $xml # How to iterate over all image/jpeg bodies and access the bytes of each? set success [CkXml_SearchForContent2 $xml $xml "content-type" "image/jpeg"] while {$success == 1} { # "$" in the Chilkat path indicates to update the internal reference of the caller # if the path could be traversed. set notUsed [CkXml_chilkatPath $xml "..|..|body|$"] if {[CkXml_get_LastMethodSuccess $xml] == 1} then { set jpgBytes [new_CkByteData] set success [CkXml_GetBinaryContent $xml 0 0 "" $jpgBytes] puts "Found JPG image!" # Find the next JPG image. set success [CkXml_SearchForContent2 $xml $xml "content-type" "image/jpeg"] } else { set success 0 } } # -------------------------------------------------------------- # -------------------------------------------------------------- # The MIME converted to XML: # <?xml version="1.0" encoding="utf-8" ?> # <mime_message> # <header> # <subject>Test email.</subject> # <content-type boundary="------------DB171738719FB06D67DEBAA0">multipart/alternative</content-type> # <mime-version>1.0</mime-version> # </header> # <body> # <subpart> # <mime_message> # <header> # <content-type charset="utf-8" format="flowed">text/plain</content-type> # <content-transfer-encoding>7bit</content-transfer-encoding> # </header> # <body><![CDATA[This is a test. # ]]></body> # </mime_message> # </subpart> # <subpart> # <mime_message> # <header> # <content-type boundary="------------A940F1230E6F0105F03DB2CB">multipart/related</content-type> # </header> # <body> # <subpart> # <mime_message> # <header> # <content-type charset="utf-8">text/html</content-type> # <content-transfer-encoding>8bit</content-transfer-encoding> # </header> # <body><![CDATA[<html><head> # <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> # </head> # <body bgcolor="#FFFFFF" text="#000000"> # <p>This is a test. <img src="cid:part1.E16AE3B4.1505C436@chilkatsoft.com" height="20" width="20"></p> # </body> # </html> # ]]></body> # </mime_message> # </subpart> # <subpart> # <mime_message> # <header> # <content-type name="starfish20.jpg">image/jpeg</content-type> # <content-transfer-encoding>base64</content-transfer-encoding> # <content-id><part1.E16AE3B4.1505C436@chilkatsoft.com></content-id> # <content-disposition filename="starfish20.jpg">inline</content-disposition> # </header> # <body>/9j/4AAQSkZJRgABAQEASABIAAD//gAmRmlsZSB3cml0dGVuIGJ5IEFkb2JlIFBob3Rvc2hvcD8g # NC4w/9sAQwAQCwwODAoQDg0OEhEQExgoGhgWFhgxIyUdKDozPTw5Mzg3QEhcTkBEV0U3OFBtUVdf # YmdoZz5NcXlwZHhcZWdj/9sAQwEREhIYFRgvGhovY0I4QmNjY2NjY2NjY2NjY2NjY2NjY2NjY2Nj # Y2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2Nj/8IAEQgAFAAUAwERAAIRAQMRAf/EABcAAAMBAAAA # AAAAAAAAAAAAAAIDBAX/xAAYAQADAQEAAAAAAAAAAAAAAAABAgMEAP/aAAwDAQACEAMQAAAB2kZY # NNEijWKddfTmLgALWH//xAAbEAACAgMBAAAAAAAAAAAAAAABAgMRAAQSE//aAAgBAQABBQL0XqN+ # pM2aqJGMiqFFCyg7z//EABwRAAICAgMAAAAAAAAAAAAAAAERAAIQIQMSUf/aAAgBAwEBPwHqU5aq # Axx+y1tMQl4elj//xAAcEQEAAQUBAQAAAAAAAAAAAAABEQACEBIhA1H/2gAIAQIBAT8B3Bhqy7Zc # enyiwmGgDhiOzj//xAAdEAABAwUBAAAAAAAAAAAAAAABAAIREBIhIkFR/9oACAEBAAY/ArZyn+Cg # xtxWuJaoCnqDuin/xAAcEAABBAMBAAAAAAAAAAAAAAABABEhYRAxQVH/2gAIAQEAAT8hkEwPUUR9 # DYfE4nxtRpIkBTsayuALIiuY/9oADAMBAAIAAwAAABDWPTsf/8QAGhEAAwADAQAAAAAAAAAAAAAA # AAEREDFBIf/aAAgBAwEBPxC0DVPcWm+Ce4OesrkE6bjH/8QAGBEBAQEBAQAAAAAAAAAAAAAAAREA # QRD/2gAIAQIBAT8QahMiOc8YgSrnTY3ELclHXn//xAAcEAEBAAIDAQEAAAAAAAAAAAABEQAhMUFx # EFH/2gAIAQEAAT8Qn3igmSZSj+c4N4zapMy9IjFV98wncN2iuLFsCEbDGxQkI6RO/n//2Q==</body> # </mime_message> # </subpart> # </body> # </mime_message> # </subpart> # </body> # </mime_message> # # -------------------------------------------------------------- # -------------------------------------------------------------- # The MIME sample file loaded at the beginning of this example # contains the following MIME: # Subject: Test email. # Content-Type: multipart/alternative; # boundary="------------DB171738719FB06D67DEBAA0" # MIME-Version: 1.0 # # --------------DB171738719FB06D67DEBAA0 # Content-Type: text/plain; charset="utf-8"; format=flowed # Content-Transfer-Encoding: 7bit # # This is a test. # # --------------DB171738719FB06D67DEBAA0 # Content-Type: multipart/related; # boundary="------------A940F1230E6F0105F03DB2CB" # # --------------A940F1230E6F0105F03DB2CB # Content-Type: text/html; charset="utf-8" # Content-Transfer-Encoding: 8bit # # <html><head> # <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> # </head> # <body bgcolor="#FFFFFF" text="#000000"> # <p>This is a test. <img src="cid:part1.E16AE3B4.1505C436@chilkatsoft.com" height="20" width="20"></p> # </body> # </html> # # --------------A940F1230E6F0105F03DB2CB # Content-Type: image/jpeg; name="starfish20.jpg" # Content-Transfer-Encoding: base64 # Content-ID: <part1.E16AE3B4.1505C436@chilkatsoft.com> # Content-Disposition: inline; filename="starfish20.jpg" # # /9j/4AAQSkZJRgABAQEASABIAAD//gAmRmlsZSB3cml0dGVuIGJ5IEFkb2JlIFBob3Rvc2hvcD8g # NC4w/9sAQwAQCwwODAoQDg0OEhEQExgoGhgWFhgxIyUdKDozPTw5Mzg3QEhcTkBEV0U3OFBtUVdf # YmdoZz5NcXlwZHhcZWdj/9sAQwEREhIYFRgvGhovY0I4QmNjY2NjY2NjY2NjY2NjY2NjY2NjY2Nj # Y2NjY2NjY2NjY2NjY2NjY2NjY2NjY2NjY2Nj/8IAEQgAFAAUAwERAAIRAQMRAf/EABcAAAMBAAAA # AAAAAAAAAAAAAAIDBAX/xAAYAQADAQEAAAAAAAAAAAAAAAABAgMEAP/aAAwDAQACEAMQAAAB2kZY # NNEijWKddfTmLgALWH//xAAbEAACAgMBAAAAAAAAAAAAAAABAgMRAAQSE//aAAgBAQABBQL0XqN+ # pM2aqJGMiqFFCyg7z//EABwRAAICAgMAAAAAAAAAAAAAAAERAAIQIQMSUf/aAAgBAwEBPwHqU5aq # Axx+y1tMQl4elj//xAAcEQEAAQUBAQAAAAAAAAAAAAABEQACEBIhA1H/2gAIAQIBAT8B3Bhqy7Zc # enyiwmGgDhiOzj//xAAdEAABAwUBAAAAAAAAAAAAAAABAAIREBIhIkFR/9oACAEBAAY/ArZyn+Cg # xtxWuJaoCnqDuin/xAAcEAABBAMBAAAAAAAAAAAAAAABABEhYRAxQVH/2gAIAQEAAT8hkEwPUUR9 # DYfE4nxtRpIkBTsayuALIiuY/9oADAMBAAIAAwAAABDWPTsf/8QAGhEAAwADAQAAAAAAAAAAAAAA # AAEREDFBIf/aAAgBAwEBPxC0DVPcWm+Ce4OesrkE6bjH/8QAGBEBAQEBAQAAAAAAAAAAAAAAAREA # QRD/2gAIAQIBAT8QahMiOc8YgSrnTY3ELclHXn//xAAcEAEBAAIDAQEAAAAAAAAAAAABEQAhMUFx # EFH/2gAIAQEAAT8Qn3igmSZSj+c4N4zapMy9IjFV98wncN2iuLFsCEbDGxQkI6RO/n//2Q== # # --------------A940F1230E6F0105F03DB2CB-- # # --------------DB171738719FB06D67DEBAA0-- # delete_CkMime $mime delete_CkXml $xml delete_CkByteData $jpgBytes |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.