XML Stream

Omar · Feb 8, 2012

Hello,

I'm facing some difficulty handling an XML response back from the server and would greatly appreciate any assistance with this.

I have declared and initialized the client I believe correctly under Process Globals:

B4X:

   Dim hc As HttpClient

Then I have my request in my sub as follows:

B4X:

         hc.Initialize("hc")
   
         Dim req As HttpRequest
            req.InitializeGet("http://myserveraddress.com---)
            hc.Execute(req, 1)

And lastly I have my sub to handle the response:

B4X:

Sub hc_ResponseSuccess (Response As HttpResponse, TaskId As Int)
   
   Dim Result As InputStream
   Result = Response.GetInputStream
        Log(Result)
        'Work with the Result here
        Result.Close
   
End Sub

Unfortunately I have found that the nothing is coming into Result and nothing is logged either. When I saved the stream into a file it works fine but I cannot seem to be able to handle the stream directly?

Any ideas or help will be greatly appreciated.

Thanks.

Kiffi · Feb 8, 2012

do you have a ResponseError-Sub?

B4X:

Sub hc_ResponseError (Response As HttpResponse, Reason As String, StatusCode As Int, TaskId As Int)
   
   Msgbox(Reason, "Error")

End Sub

Greetings ... Kiffi

Omar · Feb 8, 2012

Thanks Kiffi for your quick response.

I did not make the ResponseError sub because the server is returning the data correctly as I can save this into a file, only when I try to work with the stream directly it does nothing.

I will though add this sub right now and try again. Thanks again.

Edit: I've added in the ResponseError sub but no error is reported either.

Kiffi said:
do you have a ResponseError-Sub?

B4X:

Sub hc_ResponseError (Response As HttpResponse, Reason As String, StatusCode As Int, TaskId As Int) Msgbox(Reason, "Error") End Sub

Greetings ... Kiffi

Roeschti · Feb 8, 2012

That means your code works as it should.

Have a look at this:

Dim Result As InputStream
Result = Response.GetInputStream

To log you can use Result = Response.GetString and

If you feel ok with Inputstreams maybe something like this could help

B4X:

Dim Reader As TextReader
    Reader.Initialize(Result, "myresponse.txt"))
    Dim line As String
     line = Reader.ReadLine
     Do While line <> Null
        Log(line)
        line = Reader.ReadLine
Reader.Close 
    Loop

I didn't verfy this code, cause i'm outside of my office.

Omar · Feb 8, 2012

Thank you Roeschti.

I appreciate your suggestion, I will take a look at my code again because I'm expecting to parse the xml input but seems that there is nothing coming into the inputstream as the code just does nothing afterwards.

Roeschti said:
That means your code works as it should.

Have a look at this:

Dim Result As InputStream
Result = Response.GetInputStream

To log you can use Result = Response.GetString and

If you feel ok with Inputstreams maybe something like this could help

B4X:

Dim Reader As TextReader Reader.Initialize(Result, "myresponse.txt")) Dim line As String line = Reader.ReadLine Do While line <> Null Log(line) line = Reader.ReadLine Reader.Close Loop

I didn't verfy this code, cause i'm outside of my office.

Roeschti · Feb 8, 2012

Maybe this could help you too:

http://www.b4x.com/forum/basic4andr...08-parse-xml-using-inputstream.html#post44269

Omar · Feb 8, 2012

Thank you so much Roeschti.

Actually the code is the same as what I was using also and that is correct, I have just now found that there is a fault in the emulator that causes this particular issue.

I have tested the same code directly on the device and is working just as it should. Thank you once again and am sorry for wasting your time.

Roeschti said:
Maybe this could help you too:

http://www.b4x.com/forum/basic4andr...08-parse-xml-using-inputstream.html#post44269

Roeschti · Feb 9, 2012

You don't waste my time. I also learnd a lot from other people here

XML Stream

Omar

Member

Kiffi

Well-Known Member

Omar

Member

Roeschti

Member

Omar

Member

Roeschti

Member

Omar

Member

Roeschti

Member

XML Stream

Member

Well-Known Member

Member

Member

Member

Member

Member

Member

Privacy & Transparency

Privacy & Transparency