HTTP-Server

Übersicht

BlitzMax, BlitzMax NG

Codearchiv & Module

	regaa Betreff: HTTP-Server	So, Jun 12, 2005 20:46 Antworten mit Zitat
Der folgende Code demonstriert einen sehr einfachen HTTP-Server. Funktioniert leider nur mit dem FireFox und ist sicherlich noch sehr ausbaufähig. Soll aber im großen und ganzen (hoffentlich) zeigen wie man mit den neuen Netzwerksockets umgehen kann. Code: [AUSKLAPPEN] [EINKLAPPEN] Strict Local Server:TSocket=CreateTCPSocket() Local Stream:TStream=CreateSocketStream(Server) If BindSocket(Server,80) Print "Server läuft auf Port 80" Else Print "Stream konnte nicht erstellt werden" EndIf SocketListen(Server) Local join:TSocket Local joinstream:TStream Local datei:TStream Local Inhalt:String="<HTML>" Inhalt:+"<HEAD><TITLE>YourOwnHTTPD 0.1</TITLE></HEAD>" Inhalt:+"<BODY>" Inhalt:+"<font face=arial>" Inhalt:+"Wenn sie diesen Text im Browser sehen, dann heisst es das der BlitzMax HTTP-Server funktioniert" Inhalt:+"</font>" Inhalt:+"</BODY>" Inhalt:+"</HTML>" Local Header:String="HTTP/1.0 200 OK"+Chr(13)+Chr(10) Header:+"Content-Type: text/html"+Chr(13)+Chr(10) Header:+"Content-Length: " + Len(Inhalt)+Chr(13)+Chr(10) Header:+""+Chr(13)+Chr(10) While Not KeyDown(KEY_ESCAPE) join=SocketAccept(Server) If join Print "Neuer Client ist beigetreten" BindSocket(join,1080) SocketListen(join) joinstream=CreateSocketStream(join) datei=OpenStream(joinstream) WriteString datei,Header WriteString datei,Inhalt+Chr(13)+Chr(10) Print "Drücken sie ESCAPE um server zu beenden" EndIf FlushMem() Wend CloseStream(datei) CloseStream(joinstream) CloseSocket(join)
UltraMixer Professional 3 - Download QB,HTML,CSS,JS,PHP,SQL,>>B2D,B3D,BP,BlitzMax,C,C++,Java,C#,VB6 , C#, VB.Net

regaa

Betreff: HTTP-Server

So, Jun 12, 2005 20:46
Antworten mit Zitat

Der folgende Code demonstriert einen sehr einfachen HTTP-Server. Funktioniert leider nur mit dem FireFox und ist sicherlich noch sehr ausbaufähig. Soll aber im großen und ganzen (hoffentlich) zeigen wie man mit den neuen Netzwerksockets umgehen kann.

Code: [AUSKLAPPEN]

Strict

Local Server:TSocket=CreateTCPSocket()
Local Stream:TStream=CreateSocketStream(Server)

If BindSocket(Server,80)
Print "Server läuft auf Port 80"
Else
Print "Stream konnte nicht erstellt werden"
EndIf

SocketListen(Server)

Local join:TSocket
Local joinstream:TStream
Local datei:TStream

Local Inhalt:String="<HTML>"
Inhalt:+"<HEAD><TITLE>YourOwnHTTPD 0.1</TITLE></HEAD>"
Inhalt:+"<BODY>"
Inhalt:+"<font face=arial>"
Inhalt:+"Wenn sie diesen Text im Browser sehen, dann heisst es das der BlitzMax HTTP-Server funktioniert"
Inhalt:+"</font>"
Inhalt:+"</BODY>"
Inhalt:+"</HTML>"

Local Header:String="HTTP/1.0 200 OK"+Chr(13)+Chr(10)
Header:+"Content-Type: text/html"+Chr(13)+Chr(10)
Header:+"Content-Length: " + Len(Inhalt)+Chr(13)+Chr(10)
Header:+""+Chr(13)+Chr(10)

While Not KeyDown(KEY_ESCAPE)
join=SocketAccept(Server)

If join
   Print "Neuer Client ist beigetreten"
   BindSocket(join,1080)
   SocketListen(join)

   joinstream=CreateSocketStream(join)
   datei=OpenStream(joinstream)

   WriteString datei,Header
   WriteString datei,Inhalt+Chr(13)+Chr(10)



   Print "Drücken sie ESCAPE um server zu beenden"
EndIf

FlushMem()
Wend

CloseStream(datei)
CloseStream(joinstream)
CloseSocket(join)

UltraMixer Professional 3 - Download
QB,HTML,CSS,JS,PHP,SQL,>>B2D,B3D,BP,BlitzMax,C,C++,Java,C#,VB6 , C#, VB.Net