Hoi
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?