B4J Question HTTP Post [SOLVED]

[moore_it]

Hi all,

how i do for posting a file on https server ?

I try with Httpjob but not work this is the errormessage.

javax.net.ssl.SSLPeerUnverifiedException: peer not authenticated

this is my code ...

mHTTP.Initialize("HTTP", Me)
        mHTTP.Username = data(4)
        mHTTP.Password = data(5)
        mHTTP.PostString(data(3),msg)

where: data(4) = username, data(5) = password, data(3) = server address, msg = string data

 

[moore_it]

 

[aeric]

Use B4J v10.0 with jOkHttpUtils2 v3.04

 

[moore_it]

i too !

if i use this code

 

[moore_it]

See it's connected and respond

How i do for post appversion ????

I tried res.setheader but not work

 

[aeric]

I don't think I can help further.

try:

Sub UploadFile
    Try
        Dim fd As MultipartFileData
        fd.Initialize
        fd.Dir = "C:\B4X"
        fd.FileName = "sample.txt"
        fd.ContentType = "multipart/mixed; boundary=BOUNDARY"
     
        Dim Params1 As Map
        Params1.Initialize
        Params1.Put("AppVersion", "1.0")
        Params1.Put("AcceptUPSLicenseAgreement", "YES")
        Params1.Put("ResponseType", "application/x-ups-pld")
        Params1.Put("VersionNumber", "V4R1")
        Params1.Put("UserId", "PLDDSTEST")
        Params1.Put("Password", "PLDDSTEST")

        Dim File1 As List
        File1.Initialize
        File1.Add(fd)
     
        Dim job As HttpJob
        job.Initialize("", Me)
        job.PostMultipart("https://www.pld-certify.ups.com/hapld/tos/kdwhapltos", Params1, File1)
        'job.PostMultipart("https://www.pld-certify.ups.com/hapld/tos/kdwhapltos", Null, File1)
        Log("Uploading file...")
        Wait For (job) JobDone(job As HttpJob)
        If job.Success Then
            Log("Success: " & job.GetString)
        Else
            Log("Failed: " & job.ErrorMessage)
        End If
    Catch
        Log("Error: " & LastException.Message)
    End Try
    job.Release
End Sub

 

[moore_it]

With httpJob not work

 

[OliverA]

What versions of Java are each of you using? Older versions may not have updated certificates for validation.

 

[moore_it]

 

[OliverA]

Using the code snippet provided by @aeric in post #25 above, I was able to successfully upload a test file using JDK 18.0.1, JDK 14.0.1, and JDK 11.0.1. I even used a version 8 SDK provided by OpenLogic. I even copied my version of JDK 14 to the Program Files (x86) directory as you did, and it still worked.

It must be something on your end. It could be the jHttp library that you are including. That library is not included anymore with newer B4J versions and may conflict with the existing OkHttp/jOKHttpUtils2 libraries.

Note:
I'm attaching the project that works for me (pretty much what @aeric posted with the included corrections shown in post#25)

Links:
Post # 25: https://www.b4x.com/android/forum/threads/http-post.160513/post-985938

OpenLogic JDK 8: https://www.openlogic.com/openjdk-d...arget_id=391&field_java_package_target_id=396
OpenJDK 11.0.1: https://www.b4x.com/b4j/files/java/jdk-11.0.1.zip
OpenJDK 14.0.1: https://www.b4x.com/b4j/files/java/jdk-14.0.1.zip
OpenJDK 18.0.1: Download link is not available anymore. Originally from https://www.b4x.com/android/forum/threads/update-openjdk.140167/post-887809

 

[Magma]

Hmm..

1. Try to run b4j as admin..
2. Run at release...
3. May be need add at main before all code #additional jar jdk crypto

 

[aeric]

Try adding HU2_ACCEPTALL

The same case happened.

HttpJob B4X Difference with .NET ?

Hi there..... I have here my code: public Sub RequestSalesPayment(sessionId As String, terminal_id1 As String, cashregister_id As String, amount As Int, currencyCode As Int, merchantnotes As String, customernotes As String, preauthbool As String,maxInstalments As Int, tipamount As Int) As...

www.b4x.com

 

[moore_it]

the last word

using this code

Dim sb As StringBuilder
    sb.Initialize
    sb.Append("POST /hapld/tos/kdwhapltos HTTP/1.1" & CRLF)
    sb.Append("Content-type: multipart/mixed; boundary=BOUNDARY" & CRLF)
    sb.Append("Host: www.pld-certify.ups.com" & CRLF)
    sb.Append("Content-length: "&(sb.Length+21)& CRLF)
    sb.Append("--BOUNDARY" & CRLF)  
    sb.Append("Content-type: application/x-www-form-urlencoded" & CRLF)
    sb.Append("Content-length: "&78&CRLF)
    sb.Append(CRLF)
    sb.Append("AppVersion=1.0&AcceptUPSLicenseAgreement=Yes&ResponseType=application/x-ups-pld&VersionNumber=V4R1&UserId=" & data(4) & "&Password=" & data(5)  & CRLF)
    sb.Append(CRLF)
    sb.Append("--BOUNDARY" & CRLF)
    sb.Append("Content-type: application/x-ups-binary" & CRLF)
    sb.Append("Content-length: " & File.Size(path,filename) & CRLF)
    sb.Append(CRLF)
   
    sb.Append(ff)
   
    sb.Append(CRLF)
    sb.Append("--BOUNDARY--" & CRLF)
   
    If File.Exists(File.DirTemp,"ups") Then
        File.Delete(File.DirTemp,"ups")
    End If
    File.WriteString(File.DirTemp,"ups",sb.ToString)
    Try
        okHTTP.InitializeAcceptAll("HTTPSOK")
        Dim res As OkHttpRequest
        res.InitializePost(data(3),File.OpenInput(File.DirTemp,"ups"),File.OpenInput(File.DirTemp,"ups").BytesAvailable)
        res.SetContentType("Content-type: multipart/mixed; boundary=BOUNDARY")
        okHTTP.Execute(res,0)
    Catch
        ListView2.Items.Add(Chr(0xF071)&" Errore nell'invio del file !")
        If controller <> "" Then
'            ControlMail(action,controller,Chr(0xF071)&BytesToString(out.ToBytesArray, 0, out.ToBytesArray.Length, "utf8"))
        End If
        Log(LastException.Message)
    End Try

have this result

this return is useful for error catching ...

with this code

    Try
        Dim fd As MultipartFileData
        fd.Initialize
        fd.Dir = path
        fd.FileName = filename
        fd.ContentType = "application/x-ups-binary"
   
        Dim Params1 As Map
        Params1.Initialize
        Params1.Put("AppVersion", "1.0")
        Params1.Put("AcceptUPSLicenseAgreement", "YES")
        Params1.Put("ResponseType", "application/x-ups-pld")
        Params1.Put("VersionNumber", "V4R1")
        Params1.Put("UserId", "PLDDSTEST")
        Params1.Put("Password", "PLDDSTEST")

        Dim File1 As List
        File1.Initialize
        File1.Add(fd)
   
        Dim job As HttpJob
        job.Initialize("", Me)
        job.PostMultipart("https://www.pld-certify.ups.com/hapld/tos/kdwhapltos", Params1, File1)
        Log("Uploading file...")
        Wait For (job) JobDone(job As HttpJob)
        If job.Success Then
            Log("Success: " & job.GetString)
        Else
            Log("Failed: " & job.ErrorMessage)
        End If
    Catch
        Log("Error: " & LastException.Message)
    End Try
    job.Release

have this result

job.getstring return blank.

I need to use another programming language.

Thanks for help.

 

[aeric]

Have you checked with the provider that it suppose to return something?

 

[moore_it]

When you post anything in this link you have ever a response !

try for example to go to this link

https://www.pld-certify.ups.com/hapld/tos/kdwhapltos

open the message downloaded

 

[aeric]

When you post anything in this link you have ever a response !

try for example to go to this link

https://www.pld-certify.ups.com/hapld/tos/kdwhapltos

open the message downloaded

It depends on whether you are making a GET or POST request.
If you click the link then you are making a GET request or httpjob.Download.

 

[moore_it]

job.PostMultipart("https://www.pld-certify.ups.com/hapld/tos/kdwhapltos", Params1, File1)
the request is a postmultipart but i haven't response

if i try with httpclient and httprequest i have a response

 

[aeric]

if i try with httpclient and httprequest i have a response

I think this is making a GET request, not POST.
If I am not mistaken, by default, GET request doesn't send body.

 

[moore_it]

I need to send a post request !

 

[aeric]

Have you checked with the provider that it suppose to return something?

Can you confirm that upon successfully make a POST request, the server will return a message?

 

[moore_it]

yes confirm !
have a response in any case if all right or for warnings errors or for fatal errors