B4J Question libcurl library

[Tim Chapman]

I would like to have this java wrapper for libcurl converted to a B4X library:

GitHub - covers1624/curl4j: libcurl bindings for Java

libcurl bindings for Java. Contribute to covers1624/curl4j development by creating an account on GitHub.

github.com

I anyone interested in doing this?
Is there enough interest in libcurl?

 

[Sandman]

Sorry, I don't have the skills to do that, but I do have a question. (And mind you, I'm a big fan of curl.)

Why? In what way would it make a difference for you to get curl into B4J?

 

[Tim Chapman]

It is not of significant need for me. I used Perplexity AI to convert the Curl code here:

https://platform.openai.com/docs/api-reference/files

See this thread for how I did it:

https://www.perplexity.ai/search/convert-this-java-curl-code-to-frhJ9SV6SEiBrroJ4oHCxw

I used Perplexity AI after fighting with try to change it for many hours. I am still learning a lot.
If I had the library I would not have had to use so much time.

 

[Sandman]

Understood. In that case, this Wish might be something for you.

Online tool to convert curl request to B4X code

This is a low priority wish that also could be implemented by a forum member looking for a fun challenge. Now and then we get questions on how to convert a curl request to B4X. (Example thread) Recently I found an official tool by the curl team: h2c. It helps convert a set of headers to a curl...

www.b4x.com

 

[TILogistic]

A few years ago I commented on this conversion from curl to b4x. I was working on the topic at the time and resumed the development I had for conversion or code generator CURL to B4X.

Public Sub TestGenerateCodeFromCurl
    Dim CurlText As String = $"curl -X GET \"https://api.example.com/submit\""$
    Log(GenerateCodeFromCurl(CurlText))
    Log("-------------------")
    Dim CurlText As String = $"curl -X GET \"https://api.example.com/submit\" -d '{\"key1\":\"value1\"}' -H \"Content-Type: application/json\""$
    Log(GenerateCodeFromCurl(CurlText))
    Log("-------------------")
    Dim CurlText As String = $"curl -X POST \"https://api.example.com/submit\" -d '{\"key1\":\"value1\"}' -H \"Content-Type: application/json\""$
    Log(GenerateCodeFromCurl(CurlText))
    Log("-------------------")
    Dim CurlText As String = $"curl -X PUT \"https://api.example.com/submit\" -d '{\"key1\":\"value1\"}' -H \"Content-Type: application/json\""$
    Log(GenerateCodeFromCurl(CurlText))
End Sub

Ouput:

Call B4XPages.GetManager.LogEvents = True to enable logging B4XPages events.
curl -X GET "https://api.example.com/submit"
Public Sub GETHttpRequest As String
        Dim Result As String
        Dim j As HttpJob
        Try
                j.Initialize("", Me)
                j.Download2("https://api.example.com/submit", Null)
                Wait For (j) JobDone(j As HttpJob)
                If j.Success Then
                        Result = j.GetString
                End If
      Catch
                Log(LastException)
        End Try
        j.Release
        Return Result
End Sub
-------------------
curl -X GET "https://api.example.com/submit" -d '{"key1":"value1"}' -H "Content-Type: application/json"
Public Sub GETHttpRequest As String
        Dim Result As String
        Dim j As HttpJob
        Try
                j.Initialize("", Me)
                j.Download2("https://api.example.com/submit", {"key1":"value1"})
                j.GetRequest.SetHeader("Content-Type","application/json"
                Wait For (j) JobDone(j As HttpJob)
                If j.Success Then
                        Result = j.GetString
                End If
      Catch
                Log(LastException)
        End Try
        j.Release
        Return Result
End Sub
-------------------
curl -X POST "https://api.example.com/submit" -d '{"key1":"value1"}' -H "Content-Type: application/json"
Public Sub POSTHttpRequest As String
        Dim Result As String
        Dim j As HttpJob
        Try
                j.Initialize("", Me)
                j.PostString("https://api.example.com/submit",{"key1":"value1"})
                j.GetRequest.SetHeader("Content-Type","application/json"
                Wait For (j) JobDone(j As HttpJob)
                If j.Success Then
                        Result = j.GetString
                End If
      Catch
                Log(LastException)
        End Try
        j.Release
        Return Result
End Sub
-------------------
curl -X PUT "https://api.example.com/submit" -d '{"key1":"value1"}' -H "Content-Type: application/json"
Public Sub PUTHttpRequest As String
        Dim Result As String
        Dim j As HttpJob
        Try
                j.Initialize("", Me)
                j.PutString("https://api.example.com/submit",{"key1":"value1"})
                j.GetRequest.SetHeader("Content-Type","application/json"
                Wait For (j) JobDone(j As HttpJob)
                If j.Success Then
                        Result = j.GetString
                End If
      Catch
                Log(LastException)
        End Try
        j.Release
        Return Result
End Sub