B4J Library [Web][ABMaterial] Framework for WebApps

MichalK73 · Mar 14, 2024

JackKirk said:
Wiem o https://www.b4x.com/android/forum/threads/abmaterial-mashcameraplain.86132/ ale wygląda na to, że zmarł około 6 lat temu.

And it doesn't work anymore?

I once did a project for one of the companies where they added attachments to the entry. It turned out that on Android, when pressing the upload button, the camera option appeared. They calmly took photos and added themselves to the entry. And once you have the server on your disk, you can continue to manipulate the photo.

Additionally, can't you create one subpage in Banano and attach it to the ABMaterial project? Then you have full possibilities because there are many components in the camera handling JS. For example, Tailwindcss B4X has such a component.

JackKirk · Mar 14, 2024

MichalK73 said:
And it doesn't work anymore?

Michail, I don't know - but this post suggests it is not viewed positively by alwaysbusy:

https://www.b4x.com/android/forum/threads/abmaterial-mashplugins.86561/post-555252

I would like to avoid all such issues.

The point I am at is, while I think I have a good grasp of B4A/i/J I have no knowledge of ABMaterial.

It looks like it would be a significant investment in time to get on top of it - time I don't want to waste if I ultimately hit this fairly obvious roadblock.

Surely an ABMCamera component is a sensible addition to the ABMaterial library?

Thanks for your interest...

Harris · Mar 15, 2024

JackKirk said:
Michail, I don't know - but this post suggests it is not viewed positively by alwaysbusy:

https://www.b4x.com/android/forum/threads/abmaterial-mashplugins.86561/post-555252

I would like to avoid all such issues.

The point I am at is, while I think I have a good grasp of B4A/i/J I have no knowledge of ABMaterial.

It looks like it would be a significant investment in time to get on top of it - time I don't want to waste if I ultimately hit this fairly obvious roadblock.

Surely an ABMCamera component is a sensible addition to the ABMaterial library?

Thanks for your interest...

Start with my ABM for Dummies to get a grip on ABM. The knowledge and time invested is well worth it.
I know what he will say to the ABMCamera.... Use a ABM_Custom_Component and implement your own... Not that difficult once you know how ABM works. I have made several for my needs. Post your results when done so others may benefit as well. Thanks.

MichalK73 · Mar 29, 2024

@alwaysbusy

I have a request. Can you briefly describe the changes between 5 and 5.12 ?

alwaysbusy · Mar 29, 2024

They were mainly bug fixes and refactoring of some internal code.

B4X:

1. [CHANGE] ABM.MakeRESTApiCall now returns a RESTAPIResult instead of just the Body as String. It contains a statusCode, the Body and and 'extra' field not currently in use but may get some functionality in the future.
2. [NEW] ABM.randomId22 generates a random string with length 22. Some method we needed specificaly for a client API
3. [CHANGE] the 'fa fa-database'icon  is now loaded by default and does not be needed to be loaded manually with page.NeedsIcons.Add().
4. [NEW] some methods to encode/decode urls:
ABM.EncodeURL(String input): uses the Java URLEncoder method
ABM.DecodeURL(String input): uses the URLDecoder method
ABM.escape(String input): escapes some common characters, like \n, \t, ... -> \\n, \\t, ...
ABM.unescape(String input): unescapes some common characters, like \\n, \\t, ... -> \n, \t, ...
5 [CHANGE]: the components now expose the EventHandler
This can be used so e.g. a container that is in a class can handle events within the class instead of where the class is defined.  Needs his own ParseEvent method then in this class.

' container in some B4J class
...
cont.EventHandler = Me
...

' his own ParseEvent method to redirect the events to the correct methods within this class
public Sub ParseEvent(params As Map)
    Dim eventName As String = params.Get("eventname")
    Dim eventParams() As String = Regex.Split(",",params.Get("eventparams"))
    If eventName.ToLowerCase.StartsWith(Name.ToLowerCase) Then
        eventName = eventName.SubString(Name.Length)
    End If

    If SubExists(Me, eventName) Then
        params.Remove("eventname")
        params.Remove("eventparams")
        Select Case params.Size
            Case 0
                CallSub(Me, eventName)
            Case 1
                CallSub2(Me, eventName, params.Get(eventParams(0)))
            Case 2
                If params.get(eventParams(0)) = "abmistable" Then
                    Dim PassedTables As List = ABM.ProcessTablesFromTargetName(params.get(eventParams(1)))
                    CallSub2(Me, eventName, PassedTables)
                Else
                    CallSub3(Me, eventName, params.Get(eventParams(0)), params.Get(eventParams(1)))
                End If
            Case Else
                ' cannot be called directly, to many param
                CallSub2(Me, eventName, params)
        End Select
    End If
End Sub

6. [NEW] page.ClearAllEventHandlers
Used together with point 5.  If the page expires for some reason, the EventHandlers are all cleared so you can reinitialize them.

e.g.
Sub Page_Expired()
    Log(ABMPageId & " was expired! Reloading")
    page.ClearAllEventHandlers
    If page.ws.Open Then
        ABMShared.NavigateToPage(ws, ABMPageId, "../", False)
        page.ws.Close
    End If
End Sub

7. [NEW] ABMReportBlock.SetColumnRaw2(int index): marks a column as RAW HTML without setting the actual RAW HTML (this is what ABMReportBlock.SetColumnRaw does). Was needed for a very specific case in a report we made for a client.
8. [FIX] ABMSvgSurface: when removed, the internal JavaScript was not cleaned up.

walterf25 · Apr 3, 2024

alwaysbusy said:

They were mainly bug fixes and refactoring of some internal code.

B4X:

1. [CHANGE] ABM.MakeRESTApiCall now returns a RESTAPIResult instead of just the Body as String. It contains a statusCode, the Body and and 'extra' field not currently in use but may get some functionality in the future.
2. [NEW] ABM.randomId22 generates a random string with length 22. Some method we needed specificaly for a client API
3. [CHANGE] the 'fa fa-database'icon  is now loaded by default and does not be needed to be loaded manually with page.NeedsIcons.Add().
4. [NEW] some methods to encode/decode urls:
ABM.EncodeURL(String input): uses the Java URLEncoder method
ABM.DecodeURL(String input): uses the URLDecoder method
ABM.escape(String input): escapes some common characters, like \n, \t, ... -> \\n, \\t, ...
ABM.unescape(String input): unescapes some common characters, like \\n, \\t, ... -> \n, \t, ...
5 [CHANGE]: the components now expose the EventHandler
This can be used so e.g. a container that is in a class can handle events within the class instead of where the class is defined.  Needs his own ParseEvent method then in this class.

' container in some B4J class
...
cont.EventHandler = Me
...

' his own ParseEvent method to redirect the events to the correct methods within this class
public Sub ParseEvent(params As Map)
    Dim eventName As String = params.Get("eventname")
    Dim eventParams() As String = Regex.Split(",",params.Get("eventparams"))
    If eventName.ToLowerCase.StartsWith(Name.ToLowerCase) Then
        eventName = eventName.SubString(Name.Length)
    End If

    If SubExists(Me, eventName) Then
        params.Remove("eventname")
        params.Remove("eventparams")
        Select Case params.Size
            Case 0
                CallSub(Me, eventName)
            Case 1
                CallSub2(Me, eventName, params.Get(eventParams(0)))
            Case 2
                If params.get(eventParams(0)) = "abmistable" Then
                    Dim PassedTables As List = ABM.ProcessTablesFromTargetName(params.get(eventParams(1)))
                    CallSub2(Me, eventName, PassedTables)
                Else
                    CallSub3(Me, eventName, params.Get(eventParams(0)), params.Get(eventParams(1)))
                End If
            Case Else
                ' cannot be called directly, to many param
                CallSub2(Me, eventName, params)
        End Select
    End If
End Sub

6. [NEW] page.ClearAllEventHandlers
Used together with point 5.  If the page expires for some reason, the EventHandlers are all cleared so you can reinitialize them.

e.g.
Sub Page_Expired()
    Log(ABMPageId & " was expired! Reloading")
    page.ClearAllEventHandlers
    If page.ws.Open Then
        ABMShared.NavigateToPage(ws, ABMPageId, "../", False)
        page.ws.Close
    End If
End Sub

7. [NEW] ABMReportBlock.SetColumnRaw2(int index): marks a column as RAW HTML without setting the actual RAW HTML (this is what ABMReportBlock.SetColumnRaw does). Was needed for a very specific case in a report we made for a client.
8. [FIX] ABMSvgSurface: when removed, the internal JavaScript was not cleaned up.

What is the paremeter method in the ABM.MakeRESTApiCall function, what should it be?

Johan Hormaza · Apr 3, 2024

alwaysbusy · Apr 4, 2024

walterf25 said:
What is the paremeter method in the ABM.MakeRESTApiCall function, what should it be?

An example from my code:

B4X:

Dim jsonM as Map = CreateMap("body":"Hello there")

Dim jsonG As JSONGenerator
jsonG.Initialize(jsonM)
jsonB = jsonG.ToString
    
Dim headers As Map
headers.Initialize
headers.Put("Content-Type", "application/json")
    
Dim result As RESTAPIResult = ABM.MakeRESTApiCall("POST", "https://sync.onetwo.klanten.xxx.yyy/bouwsoft/tasks/create", jsonB, headers,200)
lblLog.Text = "Executors: " & result.body
lblLog.Refresh

The last parameter is the http status code you expect back. Normally this is 200 OK, but we had some REST API's that returned 201 OK too.
If the returned code is anything different than this code, the result.body will contain the result ErrorStream.

Alwaysbusy

alwaysbusy · Apr 4, 2024

Johan Hormaza said:
View attachment 152448

This is a snippet from some code in one of my apps (sometimes they have different parameters between apps). Your NavigateToPage may look different:

In this case I seem to have added an extra parameter to open it in a different tab, but did not use it (yet) at this point:

B4X:

Public Sub NavigateToPage(ws As WebSocket, PageId As String, TargetUrl As String, OpenInNewTab As Boolean)    
    If PageId.Length > 0 Then ABM.RemoveMeFromCache2(CachedPages, PageId, "manually removed from the Cache")
    
    Try
        If ws.Open Then
            ws.Eval("window.name='';window.location = arguments[0]", Array As Object(TargetUrl))
            ws.Flush
        Else
            Log("ws was closed: " & PageId & ", url: " & TargetUrl )    
        End If        
    Catch        
        Log(LastException.Message)        
    End Try        
End Sub

Alwaysbusy

B4J Library [Web][ABMaterial] Framework for WebApps

MichalK73

Well-Known Member

JackKirk

Well-Known Member

Harris

Expert

MichalK73

Well-Known Member

@alwaysbusy

alwaysbusy

Expert

walterf25

Expert

Johan Hormaza

Well-Known Member

alwaysbusy

Expert

alwaysbusy

Expert

Similar Threads

B4J Library [Web][ABMaterial] Framework for WebApps

Well-Known Member

Well-Known Member

Expert

Well-Known Member

@alwaysbusy​

Expert

Expert

Well-Known Member

Expert

Expert

Similar Threads

@alwaysbusy