Asynchronously retrieves the stream from the server and converts it to string.
When the string is ready, the Stream event will be fired/
This method will not block.
Syntax: GetAsyncString
Example:
Sub Globals
URL = "http://www.basic4ppc.com"
End Sub
Sub App_Start
Form1.Show
request.New1(URL)
response.New1
request.GetAsyncResponse
End Sub
Sub request_Response
If request.ResponseCode = 200 Then '200
is the code of successful
connections.
response.Value = request.AsyncResponse
response.GetAsyncString
Else
Msgbox("Error getting response: "
& request.ErrorMessage & CRLF _
& "Response
code: " & request.ResponseCode)
End If
End Sub
Sub response_Stream
TextBox1.Text = response.AsyncString
End Sub