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
(Visual FoxPro) HTTP Download with Progress Event CallbacksDownloads a file via HTTP or HTTPS and uses event callbacks to monitor progress.
LOCAL loHttp LOCAL lcLocalFilePath LOCAL lnSuccess * This example assumes the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. loHttp = CreateObject('Chilkat_9_5_0.Http') httpEventHandler = CreateObject("httpEvents") EventHandler(loHttp,httpEventHandler) * Set a heartbeat in milliseconds loHttp.HeartbeatMs = 200 * Download a file... lcLocalFilePath = "qa_output/Python-3.4.4.tar.xz" lnSuccess = loHttp.Download("https://www.python.org/ftp/python/3.4.4/Python-3.4.4.tar.xz",lcLocalFilePath) IF (lnSuccess <> 1) THEN ? loHttp.LastErrorText RELEASE loHttp CANCEL ENDIF ? "OK!" RELEASE loHttp DEFINE CLASS httpEvents AS SESSION OLEPUBLIC IMPLEMENTS _IChilkatHttpEvents IN "Chilkat_9_5_0.Http" PROCEDURE _IChilkatHttpEvents_AbortCheck(abort As Number) * Application code goes here... ENDPROC PROCEDURE _IChilkatHttpEvents_BinaryData(data As Variant) * Application code goes here... ENDPROC PROCEDURE _IChilkatHttpEvents_BeginReceive * Application code goes here... ENDPROC PROCEDURE _IChilkatHttpEvents_BeginSend * Application code goes here... ENDPROC PROCEDURE _IChilkatHttpEvents_HttpChunked * Application code goes here... ENDPROC PROCEDURE _IChilkatHttpEvents_EndReceive(success As Number) * Application code goes here... ENDPROC PROCEDURE _IChilkatHttpEvents_EndSend(success As Number) * Application code goes here... ENDPROC PROCEDURE _IChilkatHttpEvents_HttpRedirect(originalUrl As String, redirectUrl As String, abort As Number) * Application code goes here... ENDPROC PROCEDURE _IChilkatHttpEvents_PercentDone(pctDone As Number, abort As Number) * Application code goes here... ? "Percent Done: " + STR(pctDone) * Explicitly abort at 25% or greater. * Remove this to allow for the HTTP download to run to completion. IF (pctDone > 25) THEN abort = 1 ENDIF ENDPROC PROCEDURE _IChilkatHttpEvents_ProgressInfo(name As String, value As String) * Application code goes here... ? name + ": " + value ENDPROC PROCEDURE _IChilkatHttpEvents_ReceiveRate(byteCount As Number, bytesPerSec As Number) * Application code goes here... ENDPROC PROCEDURE _IChilkatHttpEvents_SendRate(byteCount As Number, bytesPerSec As Number) * Application code goes here... ENDPROC PROCEDURE _IChilkatHttpEvents_TaskCompleted(task As Generic) * Application code goes here... ENDPROC PROCEDURE _IChilkatHttpEvents_TextData(data As String) * Application code goes here... ENDPROC ENDDEFINE |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.