Public Sub Test_Click()

  Dim http As HttpClient
  http = New HttpClient As "http"
  doHttpGet(http)
  showResult("Http GET", http)
  http = New HttpClient As "http"
  doHttpPost(http)
  showResult("Http POST", http)
  http = New HttpClient As "http"
  doSOAP11(http)
  showResult("SOAP 1.1", http)
  http = New HttpClient As "http"
  doSOAP12(http)
  showResult("SOAP 1.2", http)

End

Public Sub doHttpGet(http As HttpClient)

  http.URL = "http://www.webservicex.net/ConvertTemperature.asmx/ConvertTemp?Temperature=100&FromUnit=degreeCelsius&ToUnit=degreeFahrenheit"
  http.Async = False
  http.Timeout = 60
  http.Get()

End

Public Sub doHttpPost(http As HttpClient)

  Dim data As String
  http.URL = "http://www.webservicex.net/ConvertTemperature.asmx/ConvertTemp"
  http.Async = False
  http.Timeout = 60
  data = "Temperature=100&FromUnit=degreeCelsius&ToUnit=degreeFahrenheit"
  Print "Http POST data: " & data
  http.Post("application/x-www-form-urlencoded", data)

End

Public Sub doSoap11(http As HttpClient)

  Dim data, aHeader As String
  Dim headers As String[]
  http.URL = "http://www.webservicex.net/ConvertTemperature.asmx"
  http.Async = False
  http.Timeout = 60
  data = "<?xml version=" & Chr$(34) & "1.0" & Chr$(34) & " encoding=" & Chr$(34) & "utf-8" & Chr$(34) & "?>" & gb.newline &
  "<soap:Envelope xmlns:xsi=" & Chr$(34) & "http://www.w3.org/2001/XMLSchema-instance" & Chr$(34) & " xmlns:xsd=" & Chr$(34) & "http://www.w3.org/2001/XMLSchema" & Chr$(34) & " xmlns:soap=" & Chr$(34) & "http://schemas.xmlsoap.org/soap/envelope/" & Chr$(34) & ">" & gb.newline &
  "  <soap:Body>" & gb.newline &
  "    <ConvertTemp xmlns=" & Chr$(34) & "http://www.webserviceX.NET/" & Chr$(34) & ">" & gb.newline &
  "      <Temperature>100</Temperature>" & gb.newline &
  "      <FromUnit>degreeCelsius</FromUnit>" & gb.newline &
  "      <ToUnit>degreeFahrenheit</ToUnit>" & gb.newline &
  "    </ConvertTemp>" & gb.newline &
  "  </soap:Body>" & gb.newline &
  "</soap:Envelope>"
  Print "Soap 1.1 data: " & data
  headers = ["Content-Type: text/xml; charset=utf-8", "Content-Length: " & Len(data), "SOAPAction: " & Chr$(34) & "http://www.webserviceX.NET/ConvertTemp" & Chr$(34)]
  For Each aHeader In headers
    Print "Sending SOAP 1.1 header: " & aHeader
  Next
  http.Post("", data, headers)

End

Public Sub doSoap12(http As HttpClient)

  Dim data, aHeader As String
  Dim headers As String[]
  http.URL = "http://www.webservicex.net/ConvertTemperature.asmx"
  http.Async = False
  http.Timeout = 60
  data = "<?xml version=" & Chr$(34) & "1.0" & Chr$(34) & " encoding=" & Chr$(34) & "utf-8" & Chr$(34) & "?>" & gb.newline &
  "<soap12:Envelope xmlns:xsi=" & Chr$(34) & "http://www.w3.org/2001/XMLSchema-instance" & Chr$(34) & " xmlns:xsd=" & Chr$(34) & "http://www.w3.org/2001/XMLSchema" & Chr$(34) & " xmlns:soap12=" & Chr$(34) & "http://www.w3.org/2003/05/soap-envelope" & Chr$(34) & ">" & gb.newline &
  "  <soap12:Body>" & gb.newline &
  "    <ConvertTemp xmlns=" & Chr$(34) & "http://www.webserviceX.NET/" & Chr$(34) & ">" & gb.newline &
  "      <Temperature>100</Temperature>" & gb.newline &
  "      <FromUnit>degreeCelsius</FromUnit>" & gb.newline &
  "      <ToUnit>degreeFahrenheit</ToUnit>" & gb.newline &
  "    </ConvertTemp>" & gb.newline &
  "  </soap12:Body>" & gb.newline &
  "</soap12:Envelope>"
  Print "Soap 1.2 data: " & data
  headers = ["Content-Type: application/soap+xml; charset=utf-8", "Content-Length: " & Len(data)]
  For Each aHeader In headers
    Print "Sending SOAP 1.2 header: " & aHeader
  Next
  http.Post("", data, headers)

End

Public Sub showResult(typeOfCall As String, http As HttpClient)

  Dim buffer, aHeader As String
  Print "*** Result for " & typeOfCall & " ***"
  If http.Status < 0 Then
    Print "ERROR"
  Else
    ' Success - read data
    If Lof(http) Then Read #http, buffer, Lof(http)
    Print buffer
    For Each aHeader In http.Headers
      Print "Got header: " & aHeader
    Next
  End If
  Print "*** End " & typeOfCall & " ***"


End