如何从此 HTTP POST Respose

如何解决如何从此 HTTP POST Respose

我承认我是使用 HTTP POST 的新手……但我认为我已经正确发送了 HTTP POST 请求，在我的远程 Web 端函数中处理了它并返回了响应。

我的 Webside 函数生成如下响应：

 DataTable _table = new DataTable("responseValues");
        DataColumn ColumnToken = new DataColumn("token",typeof(string));_table.Columns.Add(ColumnToken);
        DataColumn ColumnMessage = new DataColumn("message",typeof(string));  _table.Columns.Add(ColumnMessage);
        DaTarow newRow = _table.NewRow();
        newRow["token"] = _token;
        newRow["message"] = responseMessage.ToString();
        _table.Rows.Add(newRow);

        //Create a new response object to return to the HTTPPost request
        HttpResponseMessage response = new System.Net.Http.HttpResponseMessage(System.Net.HttpStatusCode.OK);

        //Populate .Content with json formatted data
        // use system.net.http.Json
        JsonSerializerOptions _JsonSerializerOptions = new JsonSerializerOptions();
        _JsonSerializerOptions.PropertyNameCaseInsensitive = true;
        _JsonSerializerOptions.PropertyNamingPolicy = JsonNamingPolicy.CamelCase;
        response.Content = JsonContent.Create(inputValue: _table,options: _JsonSerializerOptions,mediaType: new MediaTypeHeaderValue("application/json"));

响应内容如下所示。我已经爆炸了，所以我可以理解它：

    {
"version":"1.1","content":
    {
    "objectType":"System.Data.DataTable,System.Data.Common,Version=4.2.2.0,Culture=neutral,PublicKeyToken=b03f5f7f11d50a3a","value":
        [
        {
        "token":"3669a2a1d397e83bcda5","message":"CONNECTION STATE = OpenSUCCESS. Token Created."
        }
        ],"headers":
        [
        {
        "key":"Content-Type",value":
            [
            "application/json"
            ]
        }
        ]
    },"statusCode":200,"reasonPhrase":"OK","headers":[],"trailingHeaders":[],"requestMessage":null,"isSuccessstatusCode":true
}

我的问题是我无法提取（反序列化）已序列化到其中的数据表。 根据我的尝试，我得到了 2 个不同的结果： 如果我试试这个：

        _JsonSerializerOptions.PropertyNameCaseInsensitive = True
        _JsonSerializerOptions.PropertyNamingPolicy = JsonNamingPolicy.CamelCase
        
        Dim Rslt As DataTable = Await _Login_postResponse.Content.ReadFromJsonAsync(type:=GetType(System.Data.DataTable),options:=_JsonSerializerOptions)

Rslt 成为一个没有错误的空数据表。

但是如果我试试这个

    Dim strRslt = Await _Login_postResponse.Content.ReadAsstringAsync
Dim Rslt As DataTable = Newtonsoft.Json.JsonConvert.DeserializeObject(Of DataTable)(strRslt)

我收到此错误：

读取数据表时出现意外的 JSON 标记。预期的 StartArray，得到 起始对象。路径 ''，第 1 行，位置 1。

我已查看此帖子：StackOverflow 并尝试在响应中发回数据集：

结果是这个 response.content:

        DataSet _dset = new DataSet();
        DataTable _table = new DataTable("responseValues");
        DataColumn ColumnToken = new DataColumn("token",typeof(string));  _table.Columns.Add(ColumnMessage);
        DaTarow newRow = _table.NewRow();
        newRow["token"] = _token;
        newRow["message"] = responseMessage.ToString();
        _table.Rows.Add(newRow);
        _dset.Tables.Add(_table);
        //Create a new response object to return to the HTTPPost request
        HttpResponseMessage response = new System.Net.Http.HttpResponseMessage(System.Net.HttpStatusCode.OK);

        //Populate .Content with json formatted data
        // use system.net.http.Json
        JsonSerializerOptions _JsonSerializerOptions = new JsonSerializerOptions();
        _JsonSerializerOptions.PropertyNameCaseInsensitive = true;
        _JsonSerializerOptions.PropertyNamingPolicy = JsonNamingPolicy.CamelCase;
        response.Content = JsonContent.Create(inputValue: _dset,mediaType: new MediaTypeHeaderValue("application/json"));


{
"version":"1.1","content":
    {
    "objectType":"System.Data.DataSet,"value":
        {
        "responseValues":
            [
            {
            "token":"64b2818c1b2d9d09eb42","message":"CONNECTION STATE = OpenSUCCESS. Token Created."
            }
            ]
        },"headers":
            [
            {
            "key":"Content-Type","value":
                [
                "application/json"
                ]
            }
            ]
    },"isSuccessstatusCode":true
}

如果我使用这种方法反序列化：

        Dim strRslt = Await _Login_postResponse.Content.ReadAsstringAsync
Dim Rslt As DataTable = Newtonsoft.Json.JsonConvert.DeserializeObject(Of DataTable)(strRslt)

我收到此错误：

读取数据表时出现意外的 JSON 标记。预期的 StartArray，得到 String。路径“版本”，第 1 行，位置 16。

这个方法返回一个空数据集

Dim Rslt As DataSet = Await _Login_postResponse.Content.ReadFromJsonAsync(type:=GetType(System.Data.DataSet),options:=_JsonSerializerOptions)

我做错了什么？