TOPIC:

function Start (args as string [] ) as void
Console:WriteLine(args [1])

if args:Length > 0 .and. args[1]:Length >= 2
   cArg := args[1]
else
   cArg := "-80"
   Console.WriteLine( "Error: application has to be started with the port as parameter '-80' is the default" )
endif
Console:WriteLine(cArg)

private method HandleRequests() as void 
local context as HttpListenerContext
self:httpListener:Start()
try
while self:httpListener:IsListening
   Console.WriteLine("The Linstener Is Listening!")
   context := self:httpListener:GetContext()
   self:messages:Add(context)
   Console.WriteLine("The Linstener has added a message!")
end while
catch e as Exception
Console.WriteLine(e:Message) 
end try

private method HandleRequests() as void 
local context as HttpListenerContext
try
self:httpListener:Start()
while self:httpListener:IsListening
   Console.WriteLine("The Linstener Is Listening!")
   context := self:httpListener:GetContext()
   self:messages:Add(context)
   Console.WriteLine("The Linstener has added a message!")
end while
catch e as Exception
Console.WriteLine(e:Message) 
end try

05:07:11 Processor 1 crashed. System.NullReferenceException: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
   bei Service.HttpServer.Response(HttpListenerContext ocontext) in C:\XSharp\XIDE\Projects\TestProject\Applications\WebServer\Prg\HttpServer.prg:Zeile 245.
   bei Service.HttpServer.Processor(Int32 number, BlockingCollection`1 messages) in C:\XSharp\XIDE\Projects\TestProject\Applications\WebServer\Prg\HttpServer.prg:Zeile 91.

PUBLIC METHOD Start(port AS STRING ) AS VOID
LOCAL i AS LONG
// Falls ohne Parameter gestartet-  Standartport 8080 nehmen                   
IF Empty (port) ; port := "80" ; ENDIF
SELF:listenerLoop := Thread{HandleRequests}
SELF:httpListener:Prefixes:Add( "http://*:"+AllTrim(port)+"/") //hk

warning XS0165: Use of unassigned local variable 'bBuffer'
LOCAL bBuffer  ?? 	AS BYTE[]

LOCAL bBuffer 			AS BYTE[]
if 
    bBuffer := System.Text.Encoding.UTF8:GetBytes( cString ) 
endif
ocontext:Response:ContentLength64 	:= bBuffer:Length

Local cString := "" as string

Local bBuffer := Byte[]{0} as byte []

I should spend some time on Xide I think