Android Question Get a String from a OKHttpResponse

J

Jakes72

Active Member
Licensed User
Longtime User
Hi Experts,

I am back with another interesting pop quiz, which I am sure an expert can solve in 5 seconds!

You see I am trying to get a string (The Server just answers back 'Hello World!') from a Response_Success event like this:

B4X: 
Private Sub HTTPClient_ResponseSuccess (Response As OkHttpResponse, TaskId As Int)
    
    Dim os As OutputStream
    os.InitializeToBytesArray(100)
        
    'Write response as a text file.
    'This will work, but trying to avoid this extra step.
    'Response.GetAsynchronously("Response",File.OpenOutput(File.DirInternalCache,"Response.txt",False),True,TaskId)
    
    Response.GetAsynchronously("Response",os,True,TaskId)
    Dim DataBytes() As Byte = os.ToBytesArray
    Dim strTemp As String = BytesToString(DataBytes,0,DataBytes.Length,"UTF8")
    
End Sub

Now I get no errors, but my DataBytes & strTemp variables are blank.
The os buffer is full of data though, that I can see.

But If I go one step further and write the Response to a text file and then use:

B4X: 
Private Sub Response_StreamFinish(Success As Boolean,TaskID As Int)
     Dim strTemp As String = File.ReadString(File.DirInternalCache, "Response.txt")
End Sub

Then I will see my 'Hello World' in strTemp.

What am I am doing wrong?

Regards,
Jacques.
 
Sort by date Sort by votes

TILogistic

Expert
Licensed User
Longtime User
You simply have to use:

[B4X] OkHttpUtils2 with Wait For

Downloading resources is simpler with the new Resumable Subs feature. Using Wait For we can wait for the JobDone event in the same sub that started the download. No longer is it needed to have a single sub that handles all requests results. Simplest example: Dim j As HttpJob j.Initialize(""...
www.b4x.com

see:

Http library replacing

Hi to all. As the title of this post, I need to update a very old project to work in Android 10. The most critically parts are the http requests: I read new posts about this, but unfortunately I do not understand how to modify them. An example code is here: Sub ClientPosti_ResponseSuccess...
www.b4x.com
 
Last edited:
Upvote 0
J

Jakes72

Active Member
Licensed User
Longtime User
Hi Oparra, I am using OKHttpUtils2.

Everything is working 100%, but there is obviously something I am doing wrong in this code:

B4X: 
    Dim os As OutputStream
    os.InitializeToBytesArray(100)
        
    'Write response as a text file.
    'This will work, but trying to avoid this extra step.
    'Response.GetAsynchronously("Response",File.OpenOutput(File.DirInternalCache,"Response.txt",False),True,TaskId)
    
    Response.GetAsynchronously("Response",os,True,TaskId)
    Dim DataBytes() As Byte = os.ToBytesArray
    Dim strTemp As String = BytesToString(DataBytes,0,DataBytes.Length,"UTF8")

Basically all I want to know is how to get the Output of the Response into a text string instead of a File.
 
Upvote 0
J

Jakes72

Active Member
Licensed User
Longtime User
You see the reason why I am doing it this way is because I want to wrap my code in a Class module and I could not get the 'JobDone' event to fire in my class module.

But I have figured out what I was doing wrong, basically I was jumping the gun, I was trying to populate my OutputStream Object (os) BEFORE the Response_StreamFinish event had fired.

I just moved this code into the 'Response_StreamFinish' event and now it works

So my code now looks like this:

B4X: 
Private Sub HTTPClient_ResponseSuccess (Response As OkHttpResponse, TaskId As Int)
    
    mOS.InitializeToBytesArray(100)           'mOS is a Global Variable of type OutputStream.  
   Response.GetAsynchronously("Response",mOS,True,TaskId)
   
End Sub


Private Sub Response_StreamFinish(Success As Boolean,TaskID As Int)
    
        Dim DataBytes() As Byte = mOS.ToBytesArray        
        Dim strTemp As String = BytesToString(DataBytes,0,DataBytes.Length,"UTF8")
    
End Sub

So actually for anyone wanting to know this is kind of like the equivalent of 'GetString' when you use the code like in the:
https://www.b4x.com/android/forum/threads/b4x-okhttputils2-with-wait-for.79345/

Thanks guys for the help, you pushed me in the right direction.
 
Upvote 0
J

Jakes72

Active Member
Licensed User
Longtime User
Hi Erel,

Eureka! As usual you are absolutely correct!
I had another careful look at my code and the error was that I was initialising the HttpJob object like this:

B4X: 
mHttp.Initialize("HTTPClient",mCaller)    '<--- mCaller is the Main Activity this is wrong!

I should have done this:
B4X: 
mHttp.Initialize("HTTPClient",Me)           '<--- Ref to the Class Moduel instead

It now works great andthe 'JobDone' fires!
Thanks again everyone for helping me in the right direction, sometimes these small errors are hard to find!
 
Upvote 0
You must log in or register to reply here.

Similar Threads

T
  • Question
Android Question java.lang.NumberFormatException: For input string: [SOLVED]
Replies
8
Views
2K
Tim Chapman
T
R
  • Article
Android Code Snippet Get data type from 1D string array
2
Replies
23
Views
4K
RB Smissaert
R
Bug? String Returns Erroneous Length
Replies
7
Views
2K
Erel
D
  • Question
Android Question AsyncStreamsText parse string
Replies
4
Views
2K
Declan
D
  • Question
Android Question Reading a web page that neeed user and pass
Replies
6
Views
1K
Erel
Menu
Log in
Register
Cookies are required to use this site. You must accept them to continue using the site. Learn more…