-
Welcome to B4X forum!
B4X is a set of simple and powerful cross platform RAD tools:
- B4A (free) - Android development
- B4J (free) - Desktop and Server development
- B4i - iOS development
- B4R (free) - Arduino, ESP8266 and ESP32 development
Android Question how to write a http server listen on a port?by httpjob ?
- Thread starter hears
- Start date
- Similar Threads Similar Threads
Okhttp will not help here. You need to use ServerSocket.
It is quite simple to build a minimal http server. A small server is hidden in the B4J implementation of Google OAuth: https://www.b4x.com/android/forum/threads/class-b4x-google-oauth2.79426/#content
Two more robust server implementations: [B4X] [class] MJPEG decoder
And: [B4X] FTP Server implemented with Socket and AsyncStreams
It is quite simple to build a minimal http server. A small server is hidden in the B4J implementation of Google OAuth: https://www.b4x.com/android/forum/threads/class-b4x-google-oauth2.79426/#content
Two more robust server implementations: [B4X] [class] MJPEG decoder
And: [B4X] FTP Server implemented with Socket and AsyncStreams
Upvote
0
I think poster is trying to write a server that runs on android and receives SOAP post requests
Upvote
0
thanks for reply ,i have write a server app by ServerSocket ,but cannot work as a http server now ,i guess here is a litte wrong...because APP cannot pring Helloworld in a browse client.
B4X:
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
If FirstTime Then
server.Initialize(5000, "server")
Log(server.GetMyWifiIP)
lblState.Text=server.GetMyWifiIP
server.Listen
End If
End Sub
Sub server_NewConnection (Successful As Boolean, NewSocket As Socket)
If Successful Then
If ast.IsInitialized Then ast.Close
ast.Initialize( Me, "ast", NewSocket.InputStream, NewSocket.OutputStream) 'initialize AsyncStreamsText with the socket streams.
Else
Log(LastException)
End If
server.Listen
End Sub
Sub ast_NewText(Text As String)
Log("Text: " & Text)
Log(Text.Length)
Dim information As StringBuilder
information.Initialize
information.Append("HTTP/1.1 200 OK")
information.Append("Date: Sat, 18 Apr 2020 13:41:56 GMT")
information.Append("server: App-webs/")
information.Append("Connection: close")
information.Append("Content-Length: 5951")
information.Append("Content-Type: Application/soap+xml; charset=utf-8")
If (Text.Contains("Host"))Then
ast.Write("HTTP/1.1 200 OK "& Chr(10) & Chr(13))
ast.Write("Date: Sat, 18 Apr 2020 13:41:56 GMT")
ast.Write("server: App-webs/")
ast.Write("Connection: close")
ast.Write("Content-Length: 500")
ast.Write("Content-Type:"&" text/html;charset=utf-8"&Chr(10) & Chr(13))
ast.Write("<html>helloword<html>"&Chr(10) & Chr(13))
Log("GET INFO")
End If
End Sub
Last edited:
Upvote
0
B4X:
ast.Write("HTTP/1.1 200 OK\r\n"&CRLF)
ast.Write("Content-Type: text/html"&CRLF&CRLF)
ast.Write("<!DOCTYPE HTML>"&CRLF&"<html"&CRLF&"><body>"&CRLF)
ast.Write("Welcome to ProPV<br>"&CRLF)
ast.Write("login "&CRLF)
ast.write("</body></html> "&CRLF)thanks for help .
after i change to CRLF , and before <html>must have 2 CRLF ,it is working now
Upvote
0
Similar Threads
- Question