|
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
(DataFlex) Convert MIME to XMLDemonstrates how to convert MIME to XML, and how to access the MIME parts and data from XML.
Use ChilkatAx-9.5.0-win32.pkg Procedure Test Handle hoMime Boolean iSuccess String sXmlStr Variant vXml Handle hoXml String sHtmlContent String sNotUsed Variant hoJpgBytes String sTemp1 Boolean bTemp1 // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. Get Create (RefClass(cComChilkatMime)) To hoMime If (Not(IsComObjectCreated(hoMime))) Begin Send CreateComObject of hoMime End // The contents of this MIME file are shown below, // and is also available at https://www.chilkatsoft.com/sampleMime.txt Get ComLoadMimeFile Of hoMime "qa_data/mime/sampleMime.txt" To iSuccess If (iSuccess <> True) Begin Get ComLastErrorText Of hoMime To sTemp1 Showln sTemp1 Procedure_Return End // The MIME used in this example has the following nested structure // // multipart/alternative // text/plain // multipart/related // text/html // image/jpeg // // Convert to XML. Get ComGetXml Of hoMime To sXmlStr // 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). Get Create (RefClass(cComChilkatXml)) To hoXml If (Not(IsComObjectCreated(hoXml))) Begin Send CreateComObject of hoXml End Get ComLoadXml Of hoXml sXmlStr To iSuccess // The XML emitted by this statement is shown below, following the remainder of sample code. Get ComGetXml Of hoXml To sTemp1 Showln sTemp1 // To get the top-level Subject header field: Get ComChilkatPath Of hoXml "header|subject|*" To sTemp1 Showln "Subject = " sTemp1 // Another way of getting the Subject: Get ComFirstChild2 Of hoXml To iSuccess Get ComGetChildContent Of hoXml "subject" To sTemp1 Showln "Subject = " sTemp1 Send ComGetRoot2 To hoXml // 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.) Get pvComObject of hoXml to vXml Get ComSearchForContent2 Of hoXml vXml "content-type" "text/html" To iSuccess If (iSuccess = True) Begin // 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: Get ComChilkatPath Of hoXml "..|..|body|*" To sHtmlContent Showln sHtmlContent Showln "-" End // Back to the root... Send ComGetRoot2 To hoXml // How to iterate over all image/jpeg bodies and access the bytes of each? Get pvComObject of hoXml to vXml Get ComSearchForContent2 Of hoXml vXml "content-type" "image/jpeg" To iSuccess While (iSuccess = True) // "$" in the Chilkat path indicates to update the internal reference of the caller // if the path could be traversed. Get ComChilkatPath Of hoXml "..|..|body|$" To sNotUsed Get ComLastMethodSuccess Of hoXml To bTemp1 If (bTemp1 = True) Begin Get ComGetBinaryContent Of hoXml False False "" To hoJpgBytes Showln "Found JPG image!" // Find the next JPG image. Get pvComObject of hoXml to vXml Get ComSearchForContent2 Of hoXml vXml "content-type" "image/jpeg" To iSuccess End Else Begin Move False To iSuccess End Loop // -------------------------------------------------------------- // -------------------------------------------------------------- // 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-- // End_Procedure |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.