(Xojo Plugin) Transition from Http.GetServerSslCert to Http.GetServerCert

See more HTTP Examples

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

Dim http As New Chilkat.Http
Dim domain As String
domain = "chilkatsoft.com"
Dim port As Int32
port = 443

// ------------------------------------------------------------------------
// The GetServerSslCert method is deprecated:

Dim cert1 As Chilkat.Cert
cert1 = http.GetServerSslCert(domain,port)
If (http.LastMethodSuccess = False) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

System.DebugLog(cert1.SubjectDN)

// ------------------------------------------------------------------------
// Do the equivalent using GetServerCert.
// Your application creates a new, empty certificate object which is passed 
// in the last argument and filled with the server certificate upon success.

Dim cert2 As New Chilkat.Cert
Dim success As Boolean
success = http.GetServerCert(domain,port,cert2)
If (success = False) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

System.DebugLog(cert2.SubjectDN)