how_to_examine_the_http_header+body_for_a_post_to_be_sent .txt

来自「How to Examine the HTTP Header + Body fo」· 文本 代码 · 共 38 行

Dim req As New Chilkat.HttpRequest()
Dim http As New Chilkat.Http()

Dim success As Boolean

'  Any string unlocks the component for the 1st 30-days.
success = http.UnlockComponent("30-day trial")
If (success <> true) Then
    MsgBox(http.LastErrorText)
    Exit Sub
End If


'  Build an XMLHTTP request.  The XML passed to UseXmlHttp is sent
'  in the body of the request.
req.UseXmlHttp("<test>This is the XML to be sent</test>")
req.Path = "/protus/xmlwebservices/xmlsubmitter/messaging.asmx"

'  Add a custom header:
req.AddHeader("SOAPAction","https://www.notarealdomain.com/WebServices/Messaging/2005/2/SendSingleFax")

Dim requestText As String
requestText = req.GenerateRequestText()

TextBox1.Text = TextBox1.Text & requestText & vbCrLf
TextBox1.Text = TextBox1.Text & "----------------------" & vbCrLf

'  Send the HTTP POST and get the response.  Note: This is a blocking call.
'  The method does not return until the full HTTP response is received.
Dim resp As Chilkat.HttpResponse
resp = http.SynchronousRequest("www.notarealdomain.com",443,true,req)
If (resp Is Nothing ) Then
    TextBox1.Text = TextBox1.Text & http.LastErrorText & vbCrLf
Else
    '  Display the body of the response.
    TextBox1.Text = TextBox1.Text & resp.BodyStr & vbCrLf
End If