Since for the moment I am forced into the home, I am working to create an Http server for B4i and completely in B4i (I don't know objective c)
I'm well under way and it seems to be working. At least the basic version. Now refine aspects like, Header, Parameter, Cookies. I think I will be able to add the Digest authentication system which I have already managed to implement in B4A.
For the moment I don't have much to show, just a little bit of code but not very meaningful. I have no videos at the moment, but I hope to be able to release an ALFA version towards the end of the week or at least a video demonstrating how it works.
I'm well under way and it seems to be working. At least the basic version. Now refine aspects like, Header, Parameter, Cookies. I think I will be able to add the Digest authentication system which I have already managed to implement in B4A.
For the moment I don't have much to show, just a little bit of code but not very meaningful. I have no videos at the moment, but I hope to be able to release an ALFA version towards the end of the week or at least a video demonstrating how it works.
B4X:
Sub Process_Globals
'These global variables will be declared once when the application starts.
'Public variables can be accessed from all modules.
Public App As Application
Public NavControl As NavigationController
Private Page1 As Page
Private xui As XUI
Private Svr As Server
End Sub
Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Page1.Initialize("Page1")
Page1.RootPanel.LoadLayout("Page1")
NavControl.ShowPage(Page1)
Svr.Initialize(Me,"Svr")
Svr.Start(51051)
End Sub
Private Sub Svr_Handle(req As ServletRequest, resp As ServletResponse)
resp.SetHeader("Content-Type","text/html")
resp.Write($"HtmlText=$"<html xmlns="http://www.w3.org/1999/xhtml">
<head>
</head>
<body>
<h1>This is a static page</h1>
<a href='/'>Back</a>
</body>
</HTML>"$)
End Sub
Last edited:
