如何在F＃中创建HTTP POST请求？

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文章关于Request-Response Testing With F#