Tage imod HTTP Post data

Hvilket sprog snakker vi om?

Visual Basic .Net

C# .Net kan måske også bruges.

Vil du lave noget kode som skal hostes af IIS/ASP.NET eller skal det vaere et standalone program?

Det skal være en standalone vb.net applikation.
IIS eller ASP.Net skal ikke bruges til dette.

.NET kommer med en HttpListener klasse som goer det nemt at indbygge en mini web server i en app.

C# kode:

using System;
using System.Collections.Specialized;
using System.IO;
using System.Net;

namespace E
{
    public class WebServer
    {
        public static void Main(string[] args)
        {
            HttpListener srv = new HttpListener();
            srv.Prefixes.Add("http://localhost:800/");
            srv.Start();
            while(true)
            {
                HttpListenerContext ctx = srv.GetContext();
                HttpListenerRequest req = ctx.Request;
                HttpListenerResponse resp = ctx.Response;
                Console.WriteLine(req.Url.AbsolutePath);
                foreach(String k in req.Headers.AllKeys)
                {
                    Console.WriteLine(k + " = " + req.Headers[k]);
                }
                foreach(String k in req.QueryString.AllKeys)
                {
                    Console.WriteLine(k + " = " + req.QueryString[k]);
                }
                StreamWriter sw = new StreamWriter(resp.OutputStream);
                sw.WriteLine("Det virker");
                sw.Close();
            }
            //srv.Stop();
            //srv.Close();
        }
    }
}

URL:

http://localhost:800/test?f1=123&f2=abc

Output:

/test
Connection = keep-alive
Accept = text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Charset = ISO-8859-1,utf-8;q=0.7,*;q=0.7
Accept-Encoding = gzip, deflate
Accept-Language = en-us,en;q=0.5
Host = localhost:800
User-Agent = Mozilla/5.0 (Windows NT 6.1; WOW64; rv:6.0.1) Gecko/20100101 Firefox/6.0.1
f1 = 123
f2 = abc

Oversat til VB.NET:

Imports System
Imports System.Collections.Specialized
Imports System.IO
Imports System.Net

Namespace E
    Public Class WebServer
        Public Shared Sub Main(args As String())
            Dim srv As New HttpListener()
            srv.Prefixes.Add("http://localhost:800/")
            srv.Start()
            While True
                Dim ctx As HttpListenerContext = srv.GetContext()
                Dim req As HttpListenerRequest = ctx.Request
                Dim resp As HttpListenerResponse = ctx.Response
                Console.WriteLine(req.Url.AbsolutePath)
                For Each k As String In req.Headers.AllKeys
                    Console.WriteLine(k & " = " & req.Headers(k))
                Next
                For Each k As String In req.QueryString.AllKeys
                    Console.WriteLine(k & " = " & req.QueryString(k))
                Next
                Dim sw As New StreamWriter(resp.OutputStream)
                sw.WriteLine("Det virker")
                sw.Close()
            End While
            'srv.Stop();
            'srv.Close();
        End Sub
    End Class
End Namespace

Nice, det er vist lige præcis det jeg er ude efter :-)
Læg et svar for points :-D

svar