Chilkat HOME ASP Visual Basic VB.NET C# Visual C++ C MFC Delphi FoxPro Java Perl PHP Python Ruby SQL Server VBScript
|
HTTP Asynchronous UploadThe Chilkat Upload component is freeware. This example demonstrates how to HTTP upload one or more files asynchronously in a background thread and monitor the progress (and potentially abort the upload prior to it finishing). Formal support for the Chilkat Upload component is included with a "Chilkat Bundle" purchase.
' ' This example demonstrates how to HTTP upload one or more files ' asynchronously in a background thread. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim uploadAsync As New Chilkat.Upload() ' To upload more than one file, call AddFileReference multiple times -- ' once for each file to be uploaded. ' The formElementName is arbitrary, and can be anything. Dim formElementName As String = "file1" ' The localFilename is a file that exists on your local filesystem. Dim localFilename As String = "hamlet.xml" uploadAsync.AddFileReference(formElementName, localFilename) ' The Hostname and Path properties specify the server-side ' page/program/script/CGI that will recieve and process the upload. uploadAsync.Hostname = "www.freeaspupload.net" uploadAsync.Path = "/freeaspupload/testUpload.asp" ' Start the upload in a background thread. Dim success As Boolean = uploadAsync.BeginUpload() If success = False Then TextBox1.Text = uploadAsync.LastErrorText Return End If ' Note: When doing asynchronous uploads, there are no event callbacks. ' Event callbacks only occur when doing synchronous uploads via the ' BlockingUpload method. ' Wait for the upload to finish. ' Update the progress as we wait. While uploadAsync.UploadInProgress ' We can abort the upload at any point by calling: ' upload.AbortUpload(); ' Display the percentage complete and the number of bytes uploaded so far.. Label1.Text = Convert.ToString(uploadAsync.PercentUploaded) + "% complete" Label2.Text = Convert.ToString(uploadAsync.NumBytesSent) + " bytes uploaded..." ' Show the percentage completion in a progress bar. ProgressBar1.Value = CInt(uploadAsync.PercentUploaded) ' The total upload size will become set after the upload begins: Label3.Text = "Total Upload Size (in bytes) = " + Convert.ToString(uploadAsync.TotalUploadSize) ' Sleep 1/10th of a second. uploadAsync.SleepMs(100) ' Handle UI events. System.Windows.Forms.Application.DoEvents() End While ' Did the upload succeed? If uploadAsync.UploadSuccess Then MessageBox.Show("Success!") Else MessageBox.Show(uploadAsync.LastErrorText) End If End Sub |
Need a specific example? Send a request to support@chilkatsoft.com
© 2000-2007 Chilkat Software, Inc. All Rights Reserved.