Android Question OKHTTP problem

grafsoft

Well-Known Member
Licensed User
Longtime User
Hi,

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

B4X:
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")
 

grafsoft

Well-Known Member
Licensed User
Longtime User
Sorry ...

B4X:
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]
 

Attachments

  • uploadform.zip
    641 bytes · Views: 118
Upvote 0
Top