![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(DataFlex) Download a Zip from a URL and OpenBd. (No .zip file is created)Demonstrates how to download a .zip from a URL, opens the Zip, and gets the contents of a file. No file is ever written. Note: This example requires Chilkat v11.0.0 or greater.
Use ChilkatAx-win32.pkg Procedure Test Boolean iSuccess Handle hoHttp Variant vBd Handle hoBd Handle hoZip Variant vEntry Handle hoEntry Integer iLineEndingBehavior String sXmlStr Handle hoSb String sTemp1 Boolean bTemp1 Move False To iSuccess // This example requires the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. Get Create (RefClass(cComChilkatHttp)) To hoHttp If (Not(IsComObjectCreated(hoHttp))) Begin Send CreateComObject of hoHttp End Get Create (RefClass(cComChilkatBinData)) To hoBd If (Not(IsComObjectCreated(hoBd))) Begin Send CreateComObject of hoBd End // This URL is valid and can be tested... Get pvComObject of hoBd to vBd Get ComQuickGetBd Of hoHttp "http://chilkatdownload.com/example_data/hamlet.zip" vBd To iSuccess Get ComLastMethodSuccess Of hoHttp To bTemp1 If (bTemp1 = False) Begin Get ComLastErrorText Of hoHttp To sTemp1 Showln sTemp1 Procedure_Return End Get Create (RefClass(cComChilkatZip)) To hoZip If (Not(IsComObjectCreated(hoZip))) Begin Send CreateComObject of hoZip End // Open the zip from the bytes contained in bd. Get pvComObject of hoBd to vBd Get ComOpenBd Of hoZip vBd To iSuccess If (iSuccess = False) Begin Get ComLastErrorText Of hoZip To sTemp1 Showln sTemp1 Procedure_Return End // Get the entry for the file we want.. Get Create (RefClass(cComChilkatZipEntry)) To hoEntry If (Not(IsComObjectCreated(hoEntry))) Begin Send CreateComObject of hoEntry End Get pvComObject of hoEntry to vEntry Get ComEntryOf Of hoZip "hamlet.xml" vEntry To iSuccess If (iSuccess = False) Begin Get ComLastErrorText Of hoZip To sTemp1 Showln sTemp1 Procedure_Return End // Convert all line endings to CRLF (if needed) Move 2 To iLineEndingBehavior Get ComUnzipToString Of hoEntry iLineEndingBehavior "utf-8" To sXmlStr Get ComLastMethodSuccess Of hoEntry To bTemp1 If (bTemp1 <> True) Begin Get ComLastErrorText Of hoEntry To sTemp1 Showln sTemp1 Procedure_Return End // The XML in this case is about 274K, so let's just examine the last 20 lines... Get Create (RefClass(cComChilkatStringBuilder)) To hoSb If (Not(IsComObjectCreated(hoSb))) Begin Send CreateComObject of hoSb End Get ComAppend Of hoSb sXmlStr To iSuccess Get ComLastNLines Of hoSb 20 True To sTemp1 Showln sTemp1 End_Procedure |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.