POST request multipart/form-data with HttpUtils2

[ziomorgan]

Please Erel...POST request multipart/form-data with HttpUtils2

I must send following post request with httputils2 but i receive always

Error: Not Acceptable: Unknown or unsupported response format.

:BangHead::BangHead::BangHead:

POST /restsrv/user/login HTTP/1.1
User-Agent: curl/7.28.1
Host: petforce1.com
Accept: */*
Content-Length: 258
Expect: 100-continue
Content-Type: multipart/form-data; boundary=----------------------------aa5d15c24f81

------------------------------aa5d15c24f81
Content-Disposition: form-data; name="username"

pablo
------------------------------aa5d15c24f81
Content-Disposition: form-data; name="password"

picassopwd
------------------------------aa5d15c24f81--

Here Activity_Create source code:

Dim job2 As HttpJob
Dim NV As Map

NV.Initialize
NV.Put("username", "pablo")
NV.Put("password", "picassopwd")
'Send a POST request
job2.Initialize("Job2", Me)
job2.PostMultipart("http://www.xxxxxxxx.com/restsrv/user/login", NV, Null)

Here sub PostMultipart

Public Sub PostMultipart(Link As String, NameValues As Map, Files As List) As HttpRequest
   Dim boundary As String
   Dim stream As OutputStream
   Dim EOL As String
   Dim b() As Byte
   
   boundary = "------------------------------6560d8ff34d2"
   stream.InitializeToBytesArray(20)
   
   EOL = Chr(13) & Chr(10) 'CRLF constant matches Android end of line character which is chr(10).
   If NameValues <> Null AND NameValues.IsInitialized Then
      'Write the name/value pairs
      Dim key, value As String
      For i = 0 To NameValues.Size - 1
         key = NameValues.GetKeyAt(i)
         value = NameValues.GetValueAt(i)
         b = ("--" & boundary & EOL & "Content-Disposition: form-data; name=" _ 
            & QUOTE & key & QUOTE & EOL & EOL & value & EOL).GetBytes("UTF8")
         stream.WriteBytes(b, 0, b.Length)
      Next
   End If
   If Files <> Null AND Files.IsInitialized Then
      'write the files
      Dim FD As FileData
      For i = 0 To Files.Size - 1
         FD = Files.Get(i)
         b = ("--" & boundary & EOL & "Content-Disposition: form-data; name=" _ 
            & QUOTE & FD.KeyName & QUOTE & "; filename=" & QUOTE & FD.FileName & QUOTE _
            & EOL & "Content-Type: " & EOL & FD.ContentType & EOL & EOL).GetBytes("UTF8")
         stream.WriteBytes(b, 0, b.Length)
         Dim In As InputStream
         In = File.OpenInput(FD.Dir, FD.FileName)
         File.Copy2(In, stream) 'read the file and write it to the stream
         b = EOL.GetBytes("UTF8")
         stream.WriteBytes(b, 0, b.Length)
      Next
   End If
   b = (EOL & "--" & boundary & "--" & EOL).GetBytes("UTF8")
   stream.WriteBytes(b, 0, b.Length)
   stream.Flush 
   stream.Close
   b = stream.ToBytesArray

   Dim bc As ByteConverter

   Log(bc.StringFromBytes(b,"UTF8"))
   
   PostBytesMultipart(Link, b, boundary)
End Sub

 

[ziomorgan]

:sign0163: who can help me solve the problem?
These are days that I'm going crazy ...
please

 

[Erel]

Please do not post duplicate questions.

 

[ziomorgan]

I'm sorry, I thought to open a new post with all the information at my disposal, including source code and code call.
If you want I copy these infrmazioni in the post and this close.
thanks

 

[Erel]

Please put a breakpoint in hc_ResponseError and check the status code.

 

[ziomorgan]

Hi Erel,

hc_ResponseError StatusCode=406

Do you have any ideas what is the problem ?

Thanks

 

[Erel]

The server rejects the request.
Compare the request you are sending with a working one.

 

[mc73]

I thought I've told you about this error in your other thread. As Erel mentioned, it's not very good to handling multiple threads for the same question.

 

[ziomorgan]

As I said at Erel (http://www.b4x.com/forum/basic4andr...ultipart-form-data-httputils2.html#post144117) was not my intention to duplicate post but give all possible information to find a solution to my problem.
Since Erel me very kindly responded in this post I also went here.

 

[ziomorgan]

For Erel:
Ok, this is a start point (thank you for this).
I have a working post request (as mentioned at post #1) but i don't know how i can retrieve a complete post request made by b4a.

 

[Erel]

Is the payload the same?

If yes then you should set the headers according to the working request.

 

[ziomorgan]

Yes, the playload is the same.
How can i set the headers ?
(the working request is attached at the post #1).
Thanks

 

[Erel]

See this link: Quiz #1: Will this code work correctly and why?

 

[ziomorgan]

THANK YOU VERY MUCH EREL,
thanks for your valuable information I managed to solve:
enough to enter the type of requests accepted by the server

job2.GetRequest.SetHeader ("Accept", "*/*")