Android Question OKHTTP problem

[grafsoft]

Hi,

I used HttpResponse.getstring. OkHttpResponse does not provide this anymore. What is the best replacement?

Sub HttpClient1_ResponseSuccess (Response As OkHttpResponse, TaskId As Int)
   inp.Close
   Dim s,s2 As String
   ' Getstring does not exist anymore
   s=Response.GetString("UTF8")

 

[fixit30]

You need to use the modified version of HttpUtils2 found here.

https://www.b4x.com/android/forum/threads/okhttp-replaces-the-http-library.54723/

 

[Erel]

Don't use Response.GetString. It is deprecated and will fail in release mode in Android 4+. Use HttpUtils2 instead.

 

[grafsoft]

OK, thanks. But now every upload fails, server error 500. I use uploadform.asp.

 

[Erel]

Please do not make duplicate posts.

It is impossible to say why it fails without seeing the code and the previous code that worked.

 

[grafsoft]

Sorry ...

Sub startit
   

    Dim req As OkHttpRequest
    Dim size As Long
    Dim fname As String
' "Files" is the list of files to upload
    icount=icount+1
    If icount > files.size Then
        Return
    End If
    fname=files.Get(icount-1)
    Log ("startit " & fname)
    Try

    size = File.size(Main.outdir, fname)
    Log (size)
    Main.prot.add ("upload " & fname)
    Log (size)
    Log (fname)
    label1.Text=fname & " (" & size & ")"
    inp= File.OpenInput(Main.outdir,fname)
    req.InitializePost(Main.hostname & "uploadform.asp", inp, size)
    HttpClient1.Execute(req, 1)
    uploadrunning=True
    Catch
        Log (LastException.Message)
        Main.prot.Add (LastException.Message)
        startit
    End Try
End Sub


Sub HttpClient1_ResponseError (Response As OkHttpResponse, Reason As String, StatusCode As Int, TaskId As Int)
   ' always says "Error"
    Log("Error " & Reason)
    Log (Response)
    Log (StatusCode)
    Log (TaskId)
    ' Msgbox (Response,Reason)
    icount=icount-1
    startit
End Sub

Sub HttpClient1_ResponseSuccess (Response As OkHttpResponse, TaskId As Int)
   ' No need to explain this code, it never comes here.
    inp.Close
    Dim s,s2 As String
    ' s=Response.GetString("UTF8")
    Log ("Responsesuccess: " & icount & " " & s)
    If icount<1 Then 
        icount=1
    End If
    s2=files.Get(icount-1)
    Log ("sucess=" & s2)
Log ("sucess=" & s2)
        hjob.Download (Main.hostname & "rename.php?from=" & s & "&to=" & Main.projectnumber & "_" & s2)
End Sub


[Code]

 

[Erel]

I highly recommend you to remove the HttpClient code. Use only HttpUtils2. It will be simpler.