Hi, since few months I didn't know how create a web server on our PPC, I beleive that we've to use a lot of Library with a lot of Mb lol...
In fact it's easy to create our own web server with Basic4PPC...
You just need Network.dll and Binary.dll...
For beginig, you need to create a Server on PORT "80":
Server.New1(80)
Then you must to declare the Client class:
Client.New1
Now you can start you server but it's not finish
Server.Start
You need to create a Timer like the Network.dll example and set interval to 500ms or other and enable it...
wait.Interval=500
wait.Enabled=True
In the "wait" Tick sub you wait for request from a web navigator:
If Server.Pending Then 'Client coming in!
In this condition you accept his request from the navigator:
Client.Value=Server.Accept
Now with the Binary.dll you open the datas sended by the navigator, this datas contains the URL, Method (GET/POST), Variable set in POST Method and some usefull datas...:
bin.New2(Client.GetStream,1252)
Once that you've open the data you've to read this data as string... The datas sended by the navigator is in Byte[] format, you need to convert it in String format:
Dim buffer(4096) As byte
bin.ReadBytes(buffer(),4096)
datas=bin.BytesToString(buffer(),0,2048)
Now the "datas" variable contains the informations needed... This is an receive data example:
In first line we can see the Method and the url asked by the navigator...
For split this values you just need to use the SubString() function and StrSplit():
Sub Globals
'Declare the global variables here.
Dim buffer(4096) As byte
Dim arg(3) AsString
End Sub
Sub getinfo(txt)
arg()=StrSplit(SubString(txt,0,StrIndexOf(txt,CRLF,0))," ")
End Sub
With this function you get the Method name, URL asked and the protocol (Don't care with it)
In fact it's easy to create our own web server with Basic4PPC...
You just need Network.dll and Binary.dll...
For beginig, you need to create a Server on PORT "80":
Server.New1(80)
Then you must to declare the Client class:
Client.New1
Now you can start you server but it's not finish
Server.Start
You need to create a Timer like the Network.dll example and set interval to 500ms or other and enable it...
wait.Interval=500
wait.Enabled=True
In the "wait" Tick sub you wait for request from a web navigator:
If Server.Pending Then 'Client coming in!
In this condition you accept his request from the navigator:
Client.Value=Server.Accept
Now with the Binary.dll you open the datas sended by the navigator, this datas contains the URL, Method (GET/POST), Variable set in POST Method and some usefull datas...:
bin.New2(Client.GetStream,1252)
Once that you've open the data you've to read this data as string... The datas sended by the navigator is in Byte[] format, you need to convert it in String format:
Dim buffer(4096) As byte
bin.ReadBytes(buffer(),4096)
datas=bin.BytesToString(buffer(),0,2048)
Now the "datas" variable contains the informations needed... This is an receive data example:
B4X:
GET / HTTP/1.1
Accept: image/jpeg, application/x-ms-application, image/
if, application/xaml+xml, image/pjpeg, application/x-ms-xbap, application/x-shockwave-flash, applicatio
/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*
Accept-Language: fr-FR
User-Agent: Moz
lla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729
.NET CLR 3.0.30729; Media Center PC 6.0; Tablet PC 2.0; In
oPath.2; .NET4.0C; .NET4.0E)
Accept-Encoding: gzip, deflate
Host: 127.0.0.1
Connection: Keep-AliveIn first line we can see the Method and the url asked by the navigator...
For split this values you just need to use the SubString() function and StrSplit():
Sub Globals
'Declare the global variables here.
Dim buffer(4096) As byte
Dim arg(3) AsString
End Sub
Sub getinfo(txt)
arg()=StrSplit(SubString(txt,0,StrIndexOf(txt,CRLF,0))," ")
End Sub
With this function you get the Method name, URL asked and the protocol (Don't care with it)
Sorry I've to go... Will be finish in few hours...
Edit: Sorry I've not enough time in this moment... So be patient for see the end
Edit: Sorry I've not enough time in this moment... So be patient for see the end
Last edited: