Android Question get the POST content??

[ilan]

hi, i am trying to send from my b4a app strings to a JRDC server.
how do i get the content back in the RDCHandler - Handle event?

this is my POST send code:

    Dim j As HttpJob
    j.Initialize("dbrequest",Me)
    j.Tag = "job1"
    j.PostString(rdcLink & "?method=" & method ,"abc")

Handle event:

Sub Handle(req As ServletRequest, resp As ServletResponse)
     '????
End Sub

thanx

 

[Erel]

RDCHandler already reads the POST payload. See its code.
It also seems like you are not using Wait For to get the result. This is a mistake.

 

[ilan]

thank you erel for your answer.

so the post request should look like this:

    Dim j As HttpJob
    j.Initialize("dbrequest",Me)
    j.Tag = "job1"
    j.PostString(rdcLink & "?method=" & method ,"abc")
    Wait For(j) JobDone(j As HttpJob)
    If j.Success Then
        Log("Inserted successfully!")
    End If
    j.Release

but i didnot understood you answer:

RDCHandler already reads the POST payload. See its code.

do you mean from the req.InputStream ?

thank you

 

[Erel]

do you mean from the req.InputStream ?

Yes.

 

[ilan]

Yes.

thanx erel,

so i managed already to convert a map to byte send it with *.postbyte() and convert it back to a map from the req. InputStream.

but if i send a string i have read somewhere that http already converts it to a byte object so i tought converting it back to string but i am getting an error.
i solved it using a different approach.

i append the string to the post url instead and then i am able to get the string back. is this the right way to do?

    Dim s As String = "abc"
    j.PostString(rdcLink & "?method=" & method & $"& data=${s}"$,"")

thanx

 

[Erel]

req.InputStream will work with PostString. You just need to add BytesToString to convert the array of bytes to a string. Use UTF8 encoding.

 

[ilan]

req.InputStream will work with PostString. You just need to add BytesToString to convert the array of bytes to a string. Use UTF8 encoding.

ok thank you, i will try and if i get an error i will post the exact error + example project here.

thanx

 

[ilan]

you were right erel. thank you for your support

relevant code (if someone may need):

            Dim buffer() As Byte = Bit.InputStreamToBytes(in)
            Dim s As String = BytesToString(buffer, 0, buffer.Length, "UTF-8")
            Log(s)