HTTP Server

Hoi :slight_smile:

in meinem kleinen Tool nutze ich einen HTTP-Server um CnL nachzubilden. Nun beobachte ich ab und an das der Server sich komisch verhlt, also er antwortet manchmal nicht mehr…ohne fr mich nachvollziehbaren Grund.

Gestartet wird der Server so:

[code] //CnL Server starten
if cnlState = “true” then

If cnl_server = Nil Then
  cnl_server = New HttpServer
end if

cnl_server.port = 9666
cnl_server.MinimumSocketsAvailable = 10
cnl_server.listen
Config.addlog("Click'n'Load Server wird gestartet", "OK")

end if[/code]

Die Verarbeitung der Requests verarbeite ich in den in der Methode “PprocessHeaders”, ich habe dazu das Example httpserver aus Xojo benutzt. Hier mal ein Ausschnitt aus dem Code:

[code] Dim temp, cmd, param, links As String

temp = NthField(headers, Chr(13), 1)
cmd = NthField( temp, " ", 1 )
param = NthField( temp, " ", 2 )

Dim getData As String = decodeURLComponent(headers)

Dim reheaders As String = “HTTP/1.1 200 OK” + EndOfLine + “Content-Type: text/html”+ EndOfLine + EndOfLine

System.DebugLog("param: " + param)

If param = “/jdcheck.js” Then
Config.addlog("[CNL] Parameter: /jdcheck.js", “-”)
Me.write(reheaders + “jdownloader=true; var version=‘18507’;” )
End If
[/code]

Wenn ich nun im Browser http://127.0.0.1:9666/jdcheck.js aufrufe, erhalte ich die Antwort jdownloader=true; var version=‘18507’;, was ok ist…allerdings nur einmal. Reloader ist die Seite, antwortet der Server nicht mehr…woran liegt das?