sending xml via post, https request with certifica (General questions)

Hello,
is there a example available for our requirement.
If this is possible, we will buy the wodHttpDLX component.

We're reading the cert container with the function below.
Function get_certbyCN(iStoreNbr As Integer, strCommonName As String) As Certificate
' T.Genzel 2009
' Store 10 = Andere Personen (other persons)
Dim Location As CertLocation
Dim cert As Certificate

Dim i As Integer
Dim j As Integer


Set Location = New CertLocation
j = Location(0).Item(iStoreNbr).Count

For i = 0 To j - 1
Set cert = Location(0).Item(iStoreNbr).Item(i)
If (strCommonName = cert.CommonName) Then
Set get_certbyCN = cert
Exit Function
End If
Next i
get_certbyCN = cert
End Function

function http(data)
Set cert = get_certbyCN(10, customerdomain )


whttp.URL = https://www.customerdomain.com/request/

whttp.Timeout = 10
whttp.port = 443

whttp.Login = Cust
whttp.Password = CustomerPwd

Set whttp.Certificate = cert

whttp.Post https://www.customerdomain.com/request
Debug.Print whttp.State
Debug.Print whttp.Response.StatusCode
Debug.Print whttp.Response.Status
Debug.Print whttp.LastError & / & whttp.LastErrorText


end function

Two problems:
1.) got an error on loading cert
2.) sending is not possible

We need to send a XML via https method post with cert and login information.

Maybe there is a example from weonlydo

[:smile:]

Thanks for help.

Best reagards,
Torsten

Hi Torsten,

When you add this line before whttp.URL line in your code did you see your certificate?
[code]cert.Show ( My cert )[/code]
For uploading file can you please check our 5. Upload file to the server sample.

You can find it in VB\Component\5. Upload file to the server folder.

Let us know how it goes.

Regards,
Drazen

Hello Drazen,
thanks for your tip. The scenario is we gave the public key to our customer and sending the xml docs via private key to our customer.

Here are the solution ... draft

Function send_with_cert(Optional strUrl As String, Optional strXML As String)
' T.Genzel 2009
Dim cert As Certificate
Dim hFile As Long
Dim whttp As wodHttpDLX
Set whttp = New wodHttpDLX

Set cert = get_certbyCN(10, mycompany )


Debug.Print cert.CommonName

'cert.show ( My Cert )

Set whttp.Certificate = cert
cert.LoadKey ( load private key here )

whttp.ProxyType = ProxyWindows
whttp.ProxyAuthentication = AuthNTLM '
whttp.ProxyHostname = proxyadress
whttp.ProxyLogin = yourloginname
whttp.ProxyPassword = yourpwd
whttp.ProxyPort =

whttp.Blocking = True 'will return to your code until the command completes
whttp.Request.Headers.Add Content-type , text/xml; charset=utf-8
whttp.Timeout = 60
whttp.DebugFile = D: empinetpubfiledebug.txt
whttp.Request.Body = strXML
whttp.port = 443
whttp.URL = strUrl
On Error Resume Next
whttp.Post


'get resposne
'response.Write whttp.Response.Body
If whttp.Response.StatusCode = 200 Then
Debug.Print whttp.Response.Body
Else
Debug.Print ERROR - Status: & whttp.Response.StatusCode & whttp.Response.Status & <br>
Debug.Print whttp.LastErrorText & / & whttp.LastError
Debug.Print whttp.Response.Body
End If
whttp.DisConnect
Set whttp = Nothing

End Function

Now, we will wait for the customer, if there is a go we will buy the component.

Best regards,
Torsten