Textdateien, also HTML, zu versenden ist mir mit diesem Header-Packet gelungen:
Code: Alles auswählen
EOL$ = chr(13)+chr(10)
HtmlFile= "HTTP/1.1 200 OK"+EOL$
HtmlFile+ "Date: Wed, 07 Aug 1996 11:15:43 GMT"+EOL$
HtmlFile+ "Server: PureBasic Web Server 0.1b"+EOL$
HtmlFile+ "Content-Length: "+Str(Len(DatenZuSenden$))+EOL$
HtmlFile+ "Content-Type: text/html" +EOL$
HtmlFile+ DatenZuSenden$+Chr(0)
SendNetworkString(client, HtmlFile)
Code: Alles auswählen
If ReadFile(0, uri$)
DatenZuSenden$ = Space(Lof(0))
ReadData(0, @DatenZuSenden$, Lof(0))
CloseFile(0)
EndIf
HtmlFile= ""
HtmlFile= "HTTP/1.1 200 OK"+EOL$
HtmlFile+ "Date: Wed, 07 Aug 1996 11:15:43 GMT"+EOL$
HtmlFile+ "Server: PureBasic Web Server 0.1b"+EOL$
HtmlFile+ "Content-Length: "+Str(Len(DatenZuSenden$))+EOL$
HtmlFile+ "Content-Type: image/jpeg" +EOL$
HtmlFile+ DatenZuSenden$+Chr(0)
SendNetworkString(client, HtmlFile)
Was mache ich falsch?