Android Question How to call .net 6.0 RestAPI in B4A

junaidahmed · Jun 17, 2023

I have used RestAPI in .net 6.0 (.net core).I would like to know how to call API (Post request) in B4A for below queries

1.Login (how to pass json string as body in B4A)
2.Read Data( with jwt authentication and json paramater )
3.Insert ( with jwt authentication and json paramater)
4.Update ( with jwt authentication and json paramater)
5.Delete ( with jwt authentication and json paramater)

mcqueccu · Jun 17, 2023

This should help

[B4X] OkHttpUtils2 with Wait For

Downloading resources is simpler with the new Resumable Subs feature. Using Wait For we can wait for the JobDone event in the same sub that started the download. No longer is it needed to have a single sub that handles all requests results. Simplest example: Dim j As HttpJob j.Initialize(""...

www.b4x.com

junaidahmed · Jun 17, 2023

Thanks for reply...
I have refer above link but I haven't seen jwt authentication

Can you have an example of login, after that pass this token in post request

TILogistic · Jun 17, 2023

?
Not tested:

You need to provide more information about the API methods (GET, POST, DELETE, PUT, etc.)

The calls are all authorized with token (JWT) or the token must be requested from time to time.

Only 2 GET and POST examples are posted.

The token can be optional in some cases, for example when you request a token for a login.

B4X:

Public Sub TestURL
    Dim Link As String = "My URL....."
    
    Dim GetParameters() As String = Array As String ("Key1", "Value1", "Key2", "Value2")
    Dim Token As String = "" 'token JWT

    Wait For (GetURL(Link, GetParameters, Token)) Complete (DataResult As String)
    Log(DataResult)
    
    
    Dim Data As Map = CreateMap("User" : "xxxx", "Password" : "xxxxx")
    Dim PostParameters  As String = Data.As(JSON).ToString
    Dim Token As String = "" 'token JWT

    Wait For (PostURL(Link, PostParameters, Token)) Complete (DataResult As String)
    Log(DataResult)
End Sub


Public Sub PostURL(URL As String, Parameters As String, Token As String) As ResumableSub
    Dim Result As String
    Dim j As HttpJob
    Try
        j.Initialize("", Me)
        j.PostString (URL, Parameters)
        j.GetRequest.SetHeader("Content-Type","application/json")
        If Not(Token.Length = 0) Then j.GetRequest.SetHeader("Authorization", $"Bearer ${Token}"$)
        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

Public Sub GetURL(URL As String, Parameters() As String, Token As String) As ResumableSub
    Dim Result As String
    Dim j As HttpJob
    Try
        j.Initialize("", Me)
        j.Download2(URL, Parameters)
        j.GetRequest.SetHeader("Content-Type","application/json")
        If Not(Token.Length = 0) Then j.GetRequest.SetHeader("Authorization", $"Bearer ${Token}"$)
        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

junaidahmed · Jun 22, 2023

TILogistic said:

?
Not tested:

You need to provide more information about the API methods (GET, POST, DELETE, PUT, etc.)

The calls are all authorized with token (JWT) or the token must be requested from time to time.

Only 2 GET and POST examples are posted.

The token can be optional in some cases, for example when you request a token for a login.

B4X:

Public Sub TestURL
    Dim Link As String = "My URL....."
   
    Dim GetParameters() As String = Array As String ("Key1", "Value1", "Key2", "Value2")
    Dim Token As String = "" 'token JWT

    Wait For (GetURL(Link, GetParameters, Token)) Complete (DataResult As String)
    Log(DataResult)
   
   
    Dim Data As Map = CreateMap("User" : "xxxx", "Password" : "xxxxx")
    Dim PostParameters  As String = Data.As(JSON).ToString
    Dim Token As String = "" 'token JWT

    Wait For (PostURL(Link, PostParameters, Token)) Complete (DataResult As String)
    Log(DataResult)
End Sub


Public Sub PostURL(URL As String, Parameters As String, Token As String) As ResumableSub
    Dim Result As String
    Dim j As HttpJob
    Try
        j.Initialize("", Me)
        j.PostString (URL, Parameters)
        j.GetRequest.SetHeader("Content-Type","application/json")
        If Not(Token.Length = 0) Then j.GetRequest.SetHeader("Authorization", $"Bearer ${Token}"$)
        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

Public Sub GetURL(URL As String, Parameters() As String, Token As String) As ResumableSub
    Dim Result As String
    Dim j As HttpJob
    Try
        j.Initialize("", Me)
        j.Download2(URL, Parameters)
        j.GetRequest.SetHeader("Content-Type","application/json")
        If Not(Token.Length = 0) Then j.GetRequest.SetHeader("Authorization", $"Bearer ${Token}"$)
        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

As per above code,I am trying to make post request but I m getting below error message.please help to resolve this issues

ResponseError. Reason: , Response: {"type":"https://tools.ietf.org/html/rfc7231#section-6.5.13","title":"Unsupported Media Type","status":415,"traceId":"00-5b8b1bbdd375f6cb4b91da088ab1e681-1b81882ae8a0efae-00"}

junaidahmed · Jun 22, 2023

TILogistic said:
You don't say you're testing.

Use Postman and check how the flames are made.

Its working fine in Postman,please help ...

mcqueccu · Jun 22, 2023

Copy the sample curl code from postman and paste here. It will help to know how the request is formed and sent

junaidahmed · Jun 22, 2023

mcqueccu said:
Copy the sample curl code from postman and paste here. It will help to know how the request is formed and sent

see the below screeshot

junaidahmed · Jun 22, 2023

junaidahmed said:
see the below screeshot View attachment 143156

please help...

TILogistic · Jun 22, 2023

test:

B4X:

Public Sub TestURL
    Dim Link As String = "My URL....."

    Dim Body As Map = CreateMap("username" : "xxxx", "password" : "xxxxx")
    Dim Parameters  As String = Body.As(JSON).ToString

    Wait For (PostURL(Link, Parameters)) Complete (DataResult As String)
    Log(DataResult)
End Sub


Public Sub PostURL(URL As String, Parameters As String) As ResumableSub
    Dim Result As String
    Dim j As HttpJob
    Try
        j.Initialize("", Me)
        j.PostString (URL, Parameters)
        j.GetRequest.SetHeader("Content-Type","application/json")
        j.GetRequest.SetHeader("Content-length", Parameters.Length)
        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

TILogistic · Jun 22, 2023

check:

Code Curl
POST Hearders

junaidahmed · Jun 23, 2023

TILogistic said:
check:

Code Curl
POST Hearders

View attachment 143158

still same issues.please check below screenshot and help to solve this issues

TILogistic · Jun 23, 2023

test

B4X:

Public Sub TestURL
    Dim Link As String = "xxxxxxxxxxxxxxxxx/api/user/authenticate"

    Dim Body As Map = CreateMap("username" : "GDev", "password" : "xxxxx")
    Log(Body.As(JSON).ToString)
    Dim Parameters  As String = Body.As(JSON).ToString

    Wait For (PostURL(Link, Parameters)) Complete (DataResult As String)
'    Log(DataResult)
    Log(DataResult.As(JSON).ToMap.As(JSON).ToString)
End Sub


Public Sub PostURL(URL As String, Parameters As String) As ResumableSub
    Dim Result As String
    Dim j As HttpJob
    Try
        j.Initialize("", Me)
        j.PostString (URL, Parameters)
        j.GetRequest.SetContentType("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

junaidahmed · Jun 23, 2023

TILogistic said:

test
View attachment 143168

B4X:

Public Sub TestURL
    Dim Link As String = "xxxxxxxxxxxxxxxxx/api/user/authenticate"

    Dim Body As Map = CreateMap("username" : "GDev", "password" : "xxxxx")
    Log(Body.As(JSON).ToString)
    Dim Parameters  As String = Body.As(JSON).ToString

    Wait For (PostURL(Link, Parameters)) Complete (DataResult As String)
'    Log(DataResult)
    Log(DataResult.As(JSON).ToMap.As(JSON).ToString)
End Sub


Public Sub PostURL(URL As String, Parameters As String) As ResumableSub
    Dim Result As String
    Dim j As HttpJob
    Try
        j.Initialize("", Me)
        j.PostString (URL, Parameters)
        j.GetRequest.SetContentType("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

View attachment 143167

Thanks working fine now....

junaidahmed · Jun 24, 2023

junaidahmed said:
Thanks working fine now....

sorry,Now I am trying to make Get request as per above example but its shows an errormessage as "(RuntimeException) java.lang.RuntimeException: Request does not support this method.".Please check my below request url and advise how to do this URL

TILogistic · Jun 24, 2023

test;

https://localhost:7016/api/Master/GetMasterDetailInfo?pFactoryID=Mg%3D%3D&pEmployeeNo=NDYzNA%3D%3D&pLoggedInUserID=Mg%3D%3D

mcqueccu · Jun 25, 2023

TILogistic said:
test;

https://localhost:7016/api/Master/GetMasterDetailInfo?pFactoryID=Mg%3D%3D&pEmployeeNo=NDYzNA%3D%3D&pLoggedInUserID=Mg%3D%3D

The B4A (B4X) Code.

As i posted in post #2 Better familiarize yourself with okhttputils2

TILogistic · Jun 25, 2023

TILogistic said:
test;

https://localhost:7016/api/Master/GetMasterDetailInfo?pFactoryID=Mg%3D%3D&pEmployeeNo=NDYzNA%3D%3D&pLoggedInUserID=Mg%3D%3D

B4X:

Public Sub TestGETURL
    Dim Link As String = "https://localhost:7016/api/Master/GetMasterDetailInfo"
    Dim Parameters() As String = Array As String ("pFactoryID", "Mg==", "pEmployeeNo", "NDYzNA==", "pLoggedInUserID", "Mg==")
    Wait For (GetURL(Link, Parameters)) Complete (DataResult As String)
    Log(DataResult)
End Sub

Public Sub GetURL(URL As String, Parameters() As String) As ResumableSub
    Dim Result As String
    Dim j As HttpJob
    Try
        j.Initialize("", Me)
        j.Download2(URL, Parameters)
        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

junaidahmed · Jun 25, 2023

junaidahmed said:
sorry,Now I am trying to make Get request as per above example but its shows an errormessage as "(RuntimeException) java.lang.RuntimeException: Request does not support this method.".Please check my below request url and advise how to do this URL View attachment 143188

TILogistic said:

View attachment 143192

B4X:

Public Sub TestGETURL
    Dim Link As String = "https://localhost:7016/api/Master/GetMasterDetailInfo"
    Dim Parameters() As String = Array As String ("pFactoryID", "Mg==", "pEmployeeNo", "NDYzNA==", "pLoggedInUserID", "Mg==")
    Wait For (GetURL(Link, Parameters)) Complete (DataResult As String)
    Log(DataResult)
End Sub

Public Sub GetURL(URL As String, Parameters() As String) As ResumableSub
    Dim Result As String
    Dim j As HttpJob
    Try
        j.Initialize("", Me)
        j.Download2(URL, Parameters)
        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

thanks working fine but how to check if there is any error response from api for example if there is no token etc (api error handling)

TILogistic · Jun 26, 2023

junaidahmed said:
thanks working fine but how to check if there is any error response from api for example if there is no token etc (api error handling)

This is my last comment to this POST.
Regards

Android Question How to call .net 6.0 RestAPI in B4A

Well-Known Member

Well-Known Member

Well-Known Member

Expert

Well-Known Member

Well-Known Member

Well-Known Member

Well-Known Member

Well-Known Member

Expert

Expert

Well-Known Member

Attachments

Expert

Well-Known Member

Well-Known Member

Expert

Well-Known Member

Expert

Well-Known Member

Expert

Similar Threads