{"id":234,"date":"2016-03-05T09:52:34","date_gmt":"2016-03-05T08:52:34","guid":{"rendered":"http:\/\/www.riedmann.it\/blog\/?p=234"},"modified":"2016-03-05T09:52:34","modified_gmt":"2016-03-05T08:52:34","slug":"httplistener-class-in-vulcan-netx","status":"publish","type":"post","link":"https:\/\/blog.riedmann.it\/?p=234","title":{"rendered":"httpListener class in Vulcan.NET\/X#"},"content":{"rendered":"

This is code for a Vulcan.NET or X# Listener class (ported over from C#):<\/p>\n

\n
\n\/\/ Application : HttpListener
\n\/\/ httpListener.prg , Created : 16.02.2016 08:37
\n\/\/ User : Wolfgang
\n\/\/ C# code see here:
\n\/\/ http:\/\/mikehadlow.blogspot.it\/2006\/07\/playing-with-httpsys.html
\n\/\/
\n\/\/ to make it run without admin rights you need something like this one:
\n\/\/ netsh http add urlacl url=\"http:\/\/*:8080\/\" user=[username] listen=yes<\/p>\n

#using System
\n#using System.Net
\n#using System.Text
\n#using System.IO
\n#using VulcanHttpListener.riedmann.it <\/p>\n

begin namespace VulcanHttpListener.riedmann.it <\/p>\n

function Start() as void
\n local oProgram as MainProgram<\/p>\n

 oProgram := MainProgram{}
\n oProgram:Start()<\/p>\n

 return<\/p>\n

class MainProgram
\n protect _oListener as HttpListener<\/p>\n

 constructor()<\/p>\n

  _oListener := HttpListener{}<\/p>\n

 return<\/p>\n

 method Start() as void<\/p>\n

  _oListener:Prefixes:Add( \"http:\/\/*:8080\/\" )
\n  _oListener:Start()
\n  Console.WriteLine( \"Listening on port 8080, hit enter to stop\" )
\n  _oListener:BeginGetContext( AsyncCallback{ self:GetContextCallback }, null )
\n  Console.ReadLine()
\n  _oListener:Stop()<\/p>\n

 return<\/p>\n

 method GetContextCallback( oResult as IAsyncResult ) as void
\n  local oContext as HttpListenerContext
\n  local oRequest as HttpListenerRequest
\n  local oResponse as HttpListenerResponse
\n  local oSB as StringBuilder
\n  local oString as string
\n  local oBuffer as byte[]
\n  local oOutput as Stream<\/p>\n

  oContext := _oListener:EndGetContext( oResult )
\n  oRequest := oContext:Request
\n  oResponse := oContext:Response<\/p>\n

  oSB := StringBuilder{}
\n  oSB:Append( e\"\\n\" )
\n  oSB:AppendFormat( e\"HttpMethod: {0}\\n\", oRequest:HttpMethod )
\n  oSB:AppendFormat( e\"URI: {0}\\n\", oRequest:Url:AbsoluteUri )
\n  oSB:AppendFormat( e\"Local path: {0}\\n\", oRequest:Url:LocalPath )
\n  oSB:Append( e\"\\n\" )
\n  foreach cKey as string in oRequest:QueryString:Keys
\n   oSB:AppendFormat( e\"Query: {0} = {1}\\n\", cKey, oRequest:QueryString[cKey] )
\n  next
\n  oSB:Append( e\"\\n\" ) <\/p>\n

  oString := oSB:ToString()
\n  oBuffer := System.Text.Encoding.UTF8:GetBytes( oString )
\n  oResponse:ContentLength64 := oBuffer:Length
\n  oOutput := oResponse:OutputStream
\n  oOutput:Write( oBuffer, 0, oBuffer:Length )<\/p>\n

  _oListener:BeginGetContext( AsyncCallback{ self, @GetContextCallback() }, null )<\/p>\n

  return<\/p>\n

end class<\/p>\n

end namespace
\n<\/code>\n<\/p><\/blockquote>\n","protected":false},"excerpt":{"rendered":"

This is code for a Vulcan.NET or X# Listener class (ported over from C#): \/\/ Application : HttpListener \/\/ httpListener.prg , Created : 16.02.2016 08:37 \/\/ User : Wolfgang \/\/ C# code see here: \/\/ http:\/\/mikehadlow.blogspot.it\/2006\/07\/playing-with-httpsys.html \/\/ \/\/ to make it run without admin rights you need something like this one: \/\/ netsh http add […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[5,23],"tags":[25,24],"class_list":["post-234","post","type-post","status-publish","format-standard","hentry","category-vulcan-net-programming","category-x-programming","tag-http-sys","tag-httplistener"],"_links":{"self":[{"href":"https:\/\/blog.riedmann.it\/index.php?rest_route=\/wp\/v2\/posts\/234","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blog.riedmann.it\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blog.riedmann.it\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blog.riedmann.it\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/blog.riedmann.it\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=234"}],"version-history":[{"count":2,"href":"https:\/\/blog.riedmann.it\/index.php?rest_route=\/wp\/v2\/posts\/234\/revisions"}],"predecessor-version":[{"id":236,"href":"https:\/\/blog.riedmann.it\/index.php?rest_route=\/wp\/v2\/posts\/234\/revisions\/236"}],"wp:attachment":[{"href":"https:\/\/blog.riedmann.it\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=234"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.riedmann.it\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=234"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.riedmann.it\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=234"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}