[英]Why F# code yields different result than C#
為什么這個 C# 代碼有效,但不是等效的 F# 版本(通過 F# 交互運行)? 結果應該是僅包含數字的 HTML 表。
C# 版本:
var url = "https://www.investing.com/instruments/HistoricalDataAjax";
var httpRequest = (HttpWebRequest)WebRequest.Create(url);
httpRequest.Method = "POST";
httpRequest.Headers["Origin"] = "http://www.investing.com";
httpRequest.Headers["X-Requested-With"] = "XMLHttpRequest";
httpRequest.ContentType = "application/x-www-form-urlencoded";
httpRequest.UserAgent = "Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.36 (KHTML, like Gecko) Ubuntu Chromium/51.0.2704.79 Chrome/51.0.2704.79 Safari/537.36";
var data = "curr_id=1073048&smlID=2627117&header=SE0010296574%20Historical%20Data&st_date=04%2F12%2F2020&end_date=05%2F12%2F2021&interval_sec=Daily&sort_col=date&sort_ord=DESC&action=historical_data";
using (var streamWriter = new StreamWriter(httpRequest.GetRequestStream()))
{
streamWriter.Write(data);
}
var httpResponse = (HttpWebResponse)httpRequest.GetResponse();
using (var streamReader = new StreamReader(httpResponse.GetResponseStream()))
{
var result = streamReader.ReadToEnd();
Console.WriteLine(result);
}
Console.WriteLine(httpResponse.StatusCode);
F# 版本:
let url = "https://www.investing.com/instruments/HistoricalDataAjax"
let httpRequest = WebRequest.Create(url) :?> HttpWebRequest
httpRequest.Method <- "POST"
httpRequest.Headers.["Origin"] <- "http://www.investing.com"
httpRequest.UserAgent <- "Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.36 (KHTML, like Gecko) Ubuntu Chromium/51.0.2704.79 Chrome/51.0.2704.79 Safari/537.36"
httpRequest.Headers.["X-Requested-With"] <- "XMLHttpRequest"
httpRequest.ContentType <- "application/x-www-form-urlencoded"
let data = "curr_id=1073048&smlID=2627117&header=SE0010296574%20Historical%20Data&st_date=04%2F12%2F2020&end_date=05%2F12%2F2021&interval_sec=Daily&sort_col=date&sort_ord=DESC&action=historical_data";
let streamWriter = new StreamWriter(httpRequest.GetRequestStream())
streamWriter.Write(data)
let httpResponse = httpRequest.GetResponse() :?> HttpWebResponse
let streamReader = new StreamReader(httpResponse.GetResponseStream())
let html = streamReader.ReadToEnd()
printfn "%A" httpResponse.StatusCode
(更新)
您會得到不同的結果,因為 POST 是在沒有正文的情況下發送的。 stream 寫入器需要刷新:
( use streamWriter = new StreamWriter(httpRequest.GetRequestStream())
streamWriter.Write(data) )
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.