Android Question How can i modify this code to post data to my server

Makumbi · May 23, 2020

how can i modify this code to post data to the server
this example has only one parameter

B4X:

Dim j As HttpJob
    j.Initialize("msg", Me)
    j.PostString(link & "?type=text", txtMessage.Text)

the problem with this code below is sometimes it is slow

B4X:

Dim j As HttpJob
            j.Initialize("", Me)
            j.Download($"http://kccug.com/KabojjaApp/RecieveSMS.ashx?customerId=${act}&s=${edtMessage.Text}&d=${getdate(DateTime.Now)}&id=${NewID}&ph=${phone}&f=${sx}"$ )
            Wait For (j) JobDone(j As HttpJob)
            If j.Success Then
                Log(j.GetString)
            End If

pluton · May 23, 2020

I didn't code in a while in B4A but is it normal that $ sign in

B4X:

j.Download($"http://kccu.........

mc73 · May 23, 2020

B4X:

j.PostString(yourURL,"param1=value1&param2=value2&...")

Keep in mind that you also have to urlEncode your parameters and values, using stringUtils.

Makumbi · May 23, 2020

mc73 said:
B4X:

j.PostString(yourURL,"param1=value1&param2=value2&...")

Keep in mind that you also have to urlEncode your parameters and values, using stringUtils.

Do you have a nother practical example that i can follow because the one you have posted seems to have little information.
2. Does encoding solve the problem of slowing at posting

Gandy5 · May 23, 2020

B4X:

Dim j As HttpJob
    j.Initialize("msg", Me)
    j.PostString(link & "?type=text", $"${txtMessage.Text}"$)

mangojack · May 24, 2020

pluton said:
I didn't code in a while in B4A but is it normal that $ sign in

[B4X] Smart String Literal

The "smart string" literal is a more powerful version of the standard string literal. It has three advantages: Supports multi-line strings. No need to escape quotes. Supports string interpolation. The smart string literal starts with $" and ends with "$. Examples: Dim s As String = $"Hello...

www.b4x.com

Makumbi · May 24, 2020

Gandy5 said:

B4X:

Dim j As HttpJob
    j.Initialize("msg", Me)
    j.PostString(link & "?type=text", $"${txtMessage.Text}"$)

Handy thanks for highlighting but my problem is handling multiple parameters your example shows single parameter

Erel · May 24, 2020

The number of parameters will have no effect on the performance.
It doesn't matter how you add the parameters.

Makumbi · May 24, 2020

Erel said:
The number of parameters will have no effect on the performance.
It doesn't matter how you add the parameters.

Erel any examples of passing multiple parameters please help

Erel · May 24, 2020

Exactly like you did in the first post.

Makumbi · May 24, 2020

Erel said:
Exactly like you did in the first post.

I tried it here but it raises an error say it expected

B4X:

Dim j As HttpJob
            j.Initialize("", Me)
            j.PostString($"http://kccug.com/KabojjaApp/RecieveSMS.ashx?customerId=${act}&s=${edtMessage.Text}&d=${getdate(DateTime.Now)}&id=${NewID}&ph=${phone}&f=${sx}"$ )
            Wait For (j) JobDone(j As HttpJob)
            If j.Success Then
                Log(j.GetString)
            End If

Erel · May 24, 2020

I'm sorry but we cannot help you like this.

On the first post you said: "the problem with this code below is sometimes it is slow"

I answered:
"The number of parameters will have no effect on the performance.
It doesn't matter how you add the parameters."

Now you are talking about an error and you even don't tell us which error. How can we help you?

OliverA · May 28, 2020

Note: PostString requires two parameters (see https://www.b4x.com/android/help/httputils2.html#httpjob_poststring):
PostString (Link As String, Text As String) As String

in your code, you only have one (the Link:
http://kccug.com/KabojjaApp/RecieveSMS.ashx?customerId=${act}&s=${edtMessage.Text}&d=${getdate(DateTime.Now)}&id=${NewID}&ph=${phone}&f=${sx} ). You're missing the Text parameter. If it's empty, just use "" (two double quotes, no space between them).
Of course, why then use PostString, maybe you were trying to do

B4X:

Dim link As String = "http://kccug.com/KabojjaApp/RecieveSMS.ashx"
Dim text As String = $"customerId=${act}&s=${edtMessage.Text}&d=${getdate(DateTime.Now)}&id=${NewID}&ph=${phone}&f=${sx}"$
j.PostString(link, text)

As to this being faster than,

B4X:

j.Download($"http://kccug.com/KabojjaApp/RecieveSMS.ashx?customerId=${act}&s=${edtMessage.Text}&d=${getdate(DateTime.Now)}&id=${NewID}&ph=${phone}&f=${sx}"$ )

which was your initial complaint, that makes no sense. In your case, in my opinion, the speed issue is with the server. The server may be erratic in its response times. Nothing you can do about it on the front end of it.

Makumbi · May 28, 2020

OliverA said:
Note: PostString requires two parameters (see https://www.b4x.com/android/help/httputils2.html#httpjob_poststring):
PostString (Link As String, Text As String) As String

in your code, you only have one (the Link:
http://kccug.com/KabojjaApp/RecieveSMS.ashx?customerId=${act}&s=${edtMessage.Text}&d=${getdate(DateTime.Now)}&id=${NewID}&ph=${phone}&f=${sx} ). You're missing the Text parameter. If it's empty, just use "" (two double quotes, no space between them).
Of course, why then use PostString, maybe you were trying to do

B4X:

Dim link As String = "http://kccug.com/KabojjaApp/RecieveSMS.ashx" Dim text As String = $"customerId=${act}&s=${edtMessage.Text}&d=${getdate(DateTime.Now)}&id=${NewID}&ph=${phone}&f=${sx}"$ j.PostString(link, text)

As to this being faster than,

B4X:

j.Download($"http://kccug.com/KabojjaApp/RecieveSMS.ashx?customerId=${act}&s=${edtMessage.Text}&d=${getdate(DateTime.Now)}&id=${NewID}&ph=${phone}&f=${sx}"$ )

which was your initial complaint, that makes no sense. In your case, in my opinion, the speed issue is with the server. The server may be erratic in its response times. Nothing you can do about it on the front end of it.

i have used this

B4X:

Dim j As HttpJob
            j.Initialize("", Me)
            Dim link As String = "http://kccug.com/KabojjaApp/RecieveSMS.ashx"
            Dim text As String = $"customerId=${act}&s=${edtMessage.Text}&d=${getdate(DateTime.Now)}&id=${NewID}&ph=${phone}&f=${sx}"$
            j.PostString(link, text)
    
            Wait For (j) JobDone(j As HttpJob)
            If j.Success Then
                Log(j.GetString)
            End If

It is now asking for the parameter values

B4X:

1590681075798
28/05/2020 06:51:15 pm
1590681075798
28/05/2020 06:51:15 pm
28/05/2020 06:51:15 pm
ResponseError. Reason: Internal Server Error, Response: <!DOCTYPE html>
<html>
    <head>
        <title>Procedure or function 'Recievesms' expects parameter '@c', which was not supplied.</title>
        <meta name="viewport" content="width=device-width" />
        <style>
         body {font-family:"Verdana";font-weight:normal;font-size: .7em;color:black;}
         p {font-family:"Verdana";font-weight:normal;color:black;margin-top: -5px}
         b {font-family:"Verdana";font-weight:bold;color:black;margin-top: -5px}
         H1 { font-family:"Verdana";font-weight:normal;font-size:18pt;color:red }
         H2 { font-family:"Verdana";font-weight:normal;font-size:14pt;color:maroon }
         pre {font-family:"Consolas","Lucida Console",Monospace;font-size:11pt;margin:0;padding:0.5em;line-height:14pt}
         .marker {font-weight: bold; color: black;text-decoration: none;}
         .version {color: gray;}
         .error {margin-bottom: 10px;}
         .expandable { text-decoration:underline; font-weight:bold; color:navy; cursor:hand; }
         @media screen and (max-width: 639px) {
          pre { width: 440px; overflow: auto; white-space: pre-wrap; word-wrap: break-word; }
         }

OliverA · May 28, 2020

Looks like the service you are using is expecting the parameters in the URL. So you're back to the code you posted in your first post. Except, I would use Download2 instead of Download

B4X:

Dim j As HttpJob
            j.Initialize("", Me)
            Dim link As String = "http://kccug.com/KabojjaApp/RecieveSMS.ashx"
            Dim parameters() as String = Array As String("customerId" , act, "s", edtMessage.Text, "d", getdate(DateTime.Now), "id", NewID, "ph", phone, "f", sx)
            j.Download2(link, parameters)
            Wait For (j) JobDone(j As HttpJob)
            If j.Success Then
                Log(j.GetString)
            End If

Note 1: Not tested, may contain typos

Makumbi said:
code below is sometimes it is slow

I'm pretty sure it has nothing to do with the code, but rather
1) The network between you and the server
or
2) The server responding faster or slower at any given time
or
3) Something else on the device hogging up CPU
or
4) Something else in your app hogging up CPU
or
5) Some various combination of the above

Makumbi · May 28, 2020

OliverA said:
Looks like the service you are using is expecting the parameters in the URL. So you're back to the code you posted in your first post. Except, I would use Download2 instead of Download

B4X:

Dim j As HttpJob j.Initialize("", Me) Dim link As String = "http://kccug.com/KabojjaApp/RecieveSMS.ashx" Dim parameters() as String = Array As String("customerId" , act, "s", edtMessage.Text, "d", getdate(DateTime.Now), "id", NewID, "ph", phone, "f", sx) j.Download2(link, parameters) Wait For (j) JobDone(j As HttpJob) If j.Success Then Log(j.GetString) End If

Note 1: Not tested, may contain typos

I'm pretty sure it has nothing to do with the code, but rather
1) The network between you and the server
or
2) The server responding faster or slower at any given time
or
3) Something else on the device hogging up CPU
or
4) Something else in your app hogging up CPU
or
5) Some various combination of the above

Thank you it has finally worked

mangojack · May 29, 2020

Makumbi said:
'Recievesms' expects parameter '@c', which was not supplied.

I don't have much experience in this area , but after reading above replies , I ran a test... ( directly from web browser)

Firstly I included the missing '@c' parameter. (using my email address)

B4X:

http://kccug.com/KabojjaApp/RecieveSMS.ashx?@c=myemailxxxxxx&customerId=${act}&s=${edtMessage.Text}&d=${getdate(DateTime.Now)}&id=${NewID}&ph=${phone}&f=${sx}

The result/response was ... String was not recognized as a valid DateTime.

So I tried ...

B4X:

http://kccug.com/KabojjaApp/RecieveSMS.ashx?@c=myemailxxxxxx&customerId=${act}&s=${edtMessage.Text}&d=2020/05/05&id=${NewID}&ph=${phone}&f=${sx}

The result/response was ... False

Are you meant to include an email parameter in Posted data ? (or is @c a parameter for some other piece of data)

Unsure if this helps in anyway.

Android Question How can i modify this code to post data to my server

Makumbi

Well-Known Member

pluton

Active Member

mc73

Well-Known Member

Makumbi

Well-Known Member

Gandy5

Member

mangojack

Expert

[B4X] Smart String Literal

Makumbi

Well-Known Member

Erel

B4X founder

Makumbi

Well-Known Member

Erel

B4X founder

Makumbi

Well-Known Member

Erel

B4X founder

OliverA

Expert

Makumbi

Well-Known Member

OliverA

Expert

Makumbi

Well-Known Member

mangojack

Expert

Similar Threads

Android Question How can i modify this code to post data to my server

Well-Known Member

Active Member

Well-Known Member

Well-Known Member

Member

Expert

Well-Known Member

B4X founder

Well-Known Member

B4X founder

Well-Known Member

B4X founder

Expert

Well-Known Member

Expert

Well-Known Member

Expert

Similar Threads

Privacy & Transparency

Privacy & Transparency