Chilkat HOME ASP Visual Basic VB.NET C# Visual C++ C MFC Delphi FoxPro Java Perl PHP Python Ruby SQL Server VBScript
|
HTTPS Upload with Client SSL CertificateThis example shows how to use a client-side certificate with HTTPS to upload one or more files to a web server.
Dim success As Boolean ' Chilkat supports SSL with all of its Internet components: ' SMTP, POP3, IMAP, FTP, and HTTP. ' Each component includes a method named SetSslClientCert ' which has one argument -- a Chilkat certificate object. ' You'll need to use a certificate where you have ' a private key. There are many ways to instantiate ' and load a certificate into a Chilkat certificate object. ' It may be loaded directly from a .pfx (or .p12) file. ' It may be loaded from a certificate that has already ' been installed into the local machine's (registry-based) ' certificate store, or the current-user certificate store. ' It may be loaded from a pair of PEM or DER encoded files ' (one file for the ceritifcate, and one for the corresponding ' private key). Browse through the examples at ' example-code.com for various examples (in the Digital ' Certificates section). ' This example will load a cert from a .pfx (i.e. p12) file. ' Create an instance of a certificate store object, load a PFX file, ' locate the certificate we need, and use it for signing. ' (a PFX file may contain more than one certificate.) Dim certStore As New Chilkat.CertStore() ' The 1st argument is the filename, the 2nd arg is the ' PFX file's password: success = certStore.LoadPfxFile("chilkat.pfx","secret") If (success <> true) Then MsgBox(certStore.LastErrorText) Exit Sub End If Dim cert As Chilkat.Cert cert = certStore.FindCertBySubjectCN("Chilkat Software, Inc.") If (cert Is Nothing ) Then MsgBox(certStore.LastErrorText) Exit Sub End If ' If a PFX file is known to contain a single certificate, ' you may load it directly into a Chilkat certificate object. ' This snippet of source code shows how: Dim cert2 As New Chilkat.Cert() ' The 1st argument is the filename, the 2nd arg is the ' PFX file's password: success = cert2.LoadPfxFile("chilkat.pfx","secret") If (success <> true) Then MsgBox(cert2.LastErrorText) Exit Sub End If Dim http As New Chilkat.Http() ' Any string unlocks the component for the 1st 30-days. success = http.UnlockComponent("Anything for 30-day trial") If (success <> true) Then MsgBox(http.LastErrorText) Exit Sub End If ' Set your HTTPS client certificate: http.SetSslClientCert(cert) ' Build a HTTPS upload request with the files to be uploaded: Dim req As New 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 <> true) Then MsgBox(req.LastErrorText) Exit Sub End If success = req.AddFileForUpload("file2","dude.gif") If (success <> true) Then MsgBox(req.LastErrorText) Exit Sub 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. Dim domain As String Dim port As Long Dim ssl As Boolean 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 = true Dim resp As Chilkat.HttpResponse resp = http.SynchronousRequest(domain,port,ssl,req) If (resp Is Nothing ) Then TextBox1.Text = TextBox1.Text & http.LastErrorText & vbCrLf TextBox1.Refresh() Else ' Display the HTML source of the page returned. TextBox1.Text = TextBox1.Text & resp.BodyStr & vbCrLf TextBox1.Refresh() End If |
Need a specific example? Send a request to support@chilkatsoft.com
© 2000-2007 Chilkat Software, Inc. All Rights Reserved.