LOCAL oHttp
oHttp = CreateObject("THttpRequest")
WITH oHttp
        .Open("GET", "http://msdn.microsoft.com/vfoxpro/")
        .Send()

        ? .Status, .StatusText
        ? "Response length:", .ResponseLen
        ? .GetAllResponseHeaders()
*        ? .GetResponseHeader("content-type")

        STRTOFILE(.ResponseText, "response.txt")
        MODI FILE response.txt NOWAIT
ENDWITH

private void ProcessRequest()
{
        //read HTTP Request header
        string sender = Request.Headers["Request_Sender"];

        //convert body of HTTP Request to array of bytes...
        System.IO.Stream s = Request.InputStream;
        byte[] buffer = new byte[(int) s.Length];
        s.Read(buffer, 0, (int) s.Length);

        //...and then to string
        ASCIIEncoding enc = new ASCIIEncoding();
        string b = enc.GetString(buffer);

        //send back data as HTTP Response header
        Response.AddHeader("Request_Confirmation",
                "Dear " + sender +
                "! Your request has been received at " +
                DateTime.Now.ToString() + ".");

        //send back data as HTTP Response body
        Response.Write("Request received: " + b);
        Response.End();
}

#DEFINE DESTINATION_URL;
        "http://localhost/sendrequest/exchangedata.aspx"
SET PROCEDURE TO HttpRequest ADDITIVE

LOCAL oHttp As THttpRequest
oHttp = CREATEOBJECT("THttpRequest")

oHttp.Open("POST", DESTINATION_URL)
oHttp.SetRequestHeader("Request_Sender", SYS(0))

WAIT WINDOW NOWAIT "Sending HTTP Request..."
oHttp.Send(FILETOSTR("config.fpw")) && body
WAIT CLEAR

WITH oHttp
        ? .status && returns "200"
        ? .GetResponseHeader("Request_Confirmation")
        ? .ResponseText
ENDWITH