Chilkat
HOME
Android™
ASP
Visual Basic
VB.NET
C#
iOS (IPhone)
Objective-C
C++
C
MFC
Delphi
FoxPro
Java
Perl
PHP Extension
PHP ActiveX
Python
PowerShell
Ruby
SQL Server
VBScript
HTTPS Upload Files to Web Server using SSLThis example shows how to upload one or more files over SSL (HTTPS) to a web server. Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") Set outFile = fso.CreateTextFile("output.txt", True) set http = CreateObject("Chilkat.Http") ' Any string unlocks the component for the 1st 30-days. success = http.UnlockComponent("Anything for 30-day trial") If (success <> 1) Then MsgBox http.LastErrorText WScript.Quit End If ' Build a HTTPS upload request with the files to be uploaded: set req = CreateObject("Chilkat.HttpRequest") req.UseUpload ' The URL we'll be posting to is: ' http://www.yourwebserver123abc.com/ConsumeUpload.aspx ' Therefore, the path part of the URL is: req.Path = "/ConsumeUpload.aspx" ' Note: You'll need to edit this example to upload to your ' own web server. ' Add some files to the request: ' The 1st argument is an arbitrary name. It's the POST form field name. ' The 2nd argument is the filename currently existing on ' the local filesystem. It may include an absolute or relative ' path, or no path at all if it's in the current working directory. success = req.AddFileForUpload("file1","hamlet.xml") If (success <> 1) Then MsgBox req.LastErrorText WScript.Quit End If success = req.AddFileForUpload("file2","dude.gif") If (success <> 1) Then MsgBox req.LastErrorText WScript.Quit End If ' Send the HTTPS POST and get the response. Note: This is a blocking call. ' The method does not return until the full HTTPS response is received. domain = "www.yourwebserver123abc.com" ' The only difference in coding between non-SSL and SSL is ' the setting of these two arguments to SynchronousRequest: port = 443 ssl = 1 Set resp = http.SynchronousRequest(domain,port,ssl,req) If (resp Is Nothing ) Then outFile.WriteLine(http.LastErrorText) Else ' Display the HTML source of the page returned. outFile.WriteLine(resp.BodyStr) End If outFile.Close |
© 2000-2010 Chilkat Software, Inc. All Rights Reserved.