HTTP library v1.5 - Asynchronous calls

[Erel]

V1.61 is attached with the new method.
Please tell me if it works as required.

[chanppc]

Tested, it work perfectly. Thanks Erel!

[chanppc]

My apps require trigger multiple http download & I'm hit with occassionaly "timeout -1" problems on device, strange that it doesn't happen on desktop.

Upon a search on forum, I noted quite a numbers of forumer reported such issue & some solution is to extend the timeout.

But now I realized the actual problem, I was following the sample in the help file for both GetAsyncString & GetAsyncStream, & it does not include response.close, which may cause problem when initiate the 2nd download, which causes timeout, but most likely will success again when try for the 3rd time.

You may want to include it in the sample in yr next release

---------------

//GetAsyncString

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
response.close
TextBox1.Text = response.AsyncString
End Sub

[Erel]

Thanks.

[konisek]

I use the foolowing code:

Sub Button1_Click
....
response.New1
request.New1 (URL)
request.Method = "POST"
request.TimeOut = 60000
request.ContentType = "application/x-www-form-urlencoded"

stream.New1(Request.GetStream,True)
stream.WriteBytes(stream.StringToBytes(name))
response.Value = request.GetResponse

'reading cookie
regex.New1("PHPSESSID=.[a-zA-Z0-9]+")
match.New1
match.Value = regex.Match(response.Headers)
Session_ID = match.String

'Get the response into array
bin.New1(response.GetStream, True)
bit.New1
Dim buffer(1024) As byte
count = bin.ReadBytes(buffer(),1024)
For i = 0 To ArrayLen(buffer())-1
retezec = retezec & " " & buffer(i)
Next 
Msgbox(retezec)

'operations with buffer()
....
TextBox4.Text = bit.BytesToString(buffer(), 4, count)
response.Close
End Sub

Can you, please, advise how to use the asynchronous calls, esp. with respect to cookie? I read the response into array rather than

TextBox4.Text = Response.GetString

[Erel]

You should use request.GetAsyncResponse instead of GetResponse. Then in the Response event you should call response.GetAsyncStream.

See the example in the manual: HTTP

[konisek]

Yes, I have tried it. It gives me a NullReferenceException Error in match.Value = regex.Match(response.Headers)
But I suppose that my structure is not correct:

Sub Button1_Click
....
response.New1
request.New1 (URL)
request.Method = "POST"
request.TimeOut = 60000
request.ContentType = "application/x-www-form-urlencoded"

stream.New1(Request.GetStream,True)
stream.WriteBytes(stream.StringToBytes(name))
<font color="Red">request.GetAsyncResponse</font>

'reading cookie
regex.New1("PHPSESSID=.[a-zA-Z0-9]+")
match.New1
match.Value = regex.Match(response.Headers)
Session_ID = match.String

'operations with buffer() <font color="Blue">'Here I want to use the buffer from response_Stream</font>
....
TextBox4.Text = bit.BytesToString(buffer(), 4, count)
response.Close
End Sub

Sub request_Response
response.Value = <font color="Red">request.GetAsyncResponse</font>
<font color="Red">response.GetAsyncStream</font>
End Sub

Sub response_Stream  <font color="Blue">'Here I want to read the response and put it to array. And then I want to use it in  Sub Button1_click</font>
'Get the response into array
bin.New1(response.GetStream, True)
bit.New1
Dim buffer(1024) As byte
count = bin.ReadBytes(buffer(),1024)
For i = 0 To ArrayLen(buffer())-1
retezec = retezec & " " & buffer(i)
Next 
Msgbox(retezec)
End Sub

[Erel]

The response object is only available after this line:

response.Value = request.GetAsyncResponse

So your code should look something like:

...
request.GetAsyncResponse
End Sub

Sub request_Response

response.Value = request.GetAsyncResponse
regex.New1("PHPSESSID=.[a-zA-Z0-9]+")
match.New1
match.Value = regex.Match(response.Headers)
Session_ID = match.String
...

About the stream, see the manual for an example of using Response.GetAsyncStream: HTTP

[agraham]

Sorry to jump in but shouldn't

response.Value = request.GetAsyncResponse

actually be

response.Value = request.AsyncResponse

[Erel]

Yes. You are of course correct.