Как я могу сделать запрос HTTP POST в F #?

Question

Следующий код отправляет запрос GET. Это сводит меня с ума.

let postDocRaw (url:string) (data: string) : string =
      let data' : byte[] = System.Text.Encoding.ASCII.GetBytes(data);

      let request = WebRequest.Create(url)
      request.Method        <- "POST"
      request.ContentType   <- "application/x-www-form-urlencoded"
      request.ContentLength <- (int64) data'.Length

      use wstream = request.GetRequestStream() 
      wstream.Write(data',0, (data'.Length))
      wstream.Flush()
      wstream.Close()
(*
      use writer = new StreamWriter (wstream) 
      writer.Write(data')
      writer.Flush()
      writer.Close()
*)

      let response  = request.GetResponse()
      use reader     = new StreamReader(response.GetResponseStream())
      let output = reader.ReadToEnd()

      reader.Close()
      response.Close()
      request.Abort()

      output

В настоящий момент я не уверен, что кто-нибудь когда-либо использовал F # для отправки HTTP POST. Кто-нибудь видел документацию по этому поводу?

Answer 1

Кажется, работает нормально для меня. Например (posttestserver.com действительно существует):

printfn "response: %A" (postDocRaw "http://posttestserver.com/post.php" "hello=data")
Console.ReadLine() |> ignore

Результат:

response: "
Successfully dumped 1 post variables.Post body was 0 chars long.
"

Может быть, вы используете его по-другому?

Answer 2

Я нашел одну статью MSDN о Тестировании запроса-ответа с F #