HTTP Post Message body

[XverhelstX]

Hello there,

I am currently working on my new project, and I need some help.

I need to send a HTTP Post request to this url for example: http://example.com/ and I need to give parameters in the message body.
How do i do this?
for example this:
<InputURL>[input image URL]</InputURL>
<InputType>[input type (PDF/TIF/PNG/JPG/etc.)]</InputType>

        Dim request As HttpRequest
   request.InitializePost("http://example.com/",
   request.SetContentType("text/xml")
   request.Timeout=50000
   If HttpClient1.Execute(request, 1) = False Then Return
   ProgressDialogShow("Please wait...Searching")

Now, I don't know what I need to put in the inputstream and length, and how to handle the parameters..

Can you please help me? It would me really much appreciated.

Thanks
XverhelstX

 

[Erel]

The simplest way is to use InitializePost2 and convert the string to bytes:

request.InitializePost2("http://example.com", "yourdata".GetBytes("UTF8"))

It takes care of the content length.

 

[XverhelstX]

oh, ok, but what do do with this: <InputURL>[input image URL]</InputURL>

and If i have multiple ones?

edit: and would it look smthlike this then: "<InputURL>myurl</InputURL>".GetBytes("UTF8")

xverhelstx

 

[Erel]

Build a large string with all the required data (StringBuilder is recommended for such task).
Eventually convert the string to bytes.

 

[XverhelstX]

k, Would it look like this then:

"<InputURL>myurl</InputURL>".GetBytes("UTF8")

or like this:

"myurl".GetBytes("UTF8")

xverhelstx?

 

[Erel]

Not sure that I understand the problem.

Dim s as String
s = "your string"
s = s & "jklfjwe fjwfl kwjfe lkfje "
s = s & "klfjwe flkwj eflkw jeflkw fe"
request.InitializePost2(url, s.GetBytes("UTF8"))

 

[XverhelstX]

I need to submit a job by sending an HTTP POST request to the following URL:
www.example.com

The request message body should contain XML of the following format (explained in detail below):

<Job>
<InputURL>[input image URL]</InputURL>
<InputType>[input type (PDF/TIF/PNG/JPG/etc.)]</InputType> <!-- Optional --
</job>

XverhelstX

 

[Erel]

Dim s As String
s = "<Job> <InputURL>[input image URL]</InputURL> " _
 & "<InputType>[input  type (PDF/TIF/PNG/JPG/etc.)]</InputType></job>"
Request.InitializePost2("http://example.com", s.GetBytes("UTF8"))

Are you asking how to build the string?

 

[XverhelstX]

I was wondering if I had to add the tags also

<joburl>url

or just url.

xverhelstX

 

[Erel]

The data sent should be sent exactly as the server expects it. In your case you should send a complete XML message. Which means that you need to include the tags and also the XML header: <?xml version="1.0" encoding="UTF-8"?>

 

[XverhelstX]

How should i include the header:

request.SetHeader(<?xml version="1.0" encoding="UTF-8"?>

and does I need anything for this?
request.SetContentEncoding

Sorry for stupid questions, i'm not so conventient with HTTP
this would probably be my final question.

XverhelstX

 

[Erel]

These are good questions. Please feel free to ask more questions as needed.

You are sending an XML message as the POST data. You should create a string with the complete message and then send it with InitializePost2.
The XML header should be part of the string.

 

[XverhelstX]

oh, ok something like this then:

Dim s As String
s = "<?xml version="1.0" encoding="UTF-8"?><Job> <InputURL>[input image URL]</InputURL> " _
 & "<InputType>[input type (PDF/TIF/PNG/JPG/etc.)]</InputType></job>"
Request.InitializePost2("http://example.com", s.GetBytes("UTF8"))

so i also don't need a request.setheader() and request.SetContentEncoding(
)

only request.SetContentType("text/xml")?

XverhelstX

 

[Erel]

Yes. Setting the content encoding is probably a good idea.

 

[XverhelstX]

ok, great. I got a response with the following:

<JobStatus xmlns:....>
<jobURL>www.example.com/87465119871</jobURL>
<JobStatus/>

How am I now able to go that that specific jobURL?

XverhelstX

 

[ZJP]

Thx guys :icon_clap:

JP

 

[XverhelstX]

yw?

 

[Erel]

See the XML parsing tutorial: http://www.b4x.com/forum/basic4andr...utorials/6866-xml-parsing-xmlsax-library.html

 

[XverhelstX]

pff
I don't get it on how to work with this and what it does.
How am I able to receive the url this way :s

Could u please show an example on how to do this?
to get the <jobURL>

xverhelstx

 

[XverhelstX]

how should i include the link now as an inputstream?

Dim in As InputStream
in = httpresponse xml
parser.Parse(in, "Parser")
in.Close

xverhelstx