質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
86.12%
JSON

JSON(JavaScript Object Notation)は軽量なデータ記述言語の1つである。構文はJavaScriptをベースとしていますが、JavaScriptに限定されたものではなく、様々なソフトウェアやプログラミング言語間におけるデータの受け渡しが行えるように設計されています。

POST

POSTはHTTPプロトコルのリクエストメソッドです。ファイルをアップロードしたときや入力フォームが送信されたときなど、クライアントがデータをサーバに送る際に利用されます。

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

解決済

VB.NET(2010)でJSONをリクエスト送信したいのですが

akiras
akiras

総合スコア8

JSON

JSON(JavaScript Object Notation)は軽量なデータ記述言語の1つである。構文はJavaScriptをベースとしていますが、JavaScriptに限定されたものではなく、様々なソフトウェアやプログラミング言語間におけるデータの受け渡しが行えるように設計されています。

POST

POSTはHTTPプロトコルのリクエストメソッドです。ファイルをアップロードしたときや入力フォームが送信されたときなど、クライアントがデータをサーバに送る際に利用されます。

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。

3回答

0リアクション

1クリップ

10797閲覧

投稿2019/01/30 06:34

編集2019/01/31 00:55

##【やりたいこと】
・VB.NETでJSONデータを送信したいのですが、エラーが消えません
→ リストリモート サーバーがエラーを返しました: (400) 要求が不適切です
・簡易的にリクエストを受取るソースを作りました(リクエストデータをそのまま返すだけ)
・ARC(google Chromeの拡張機能‎)でリクエストすると、正しく返ります

##【環境】
visual stadio 2010
VB.NET 2010
.net framework 4.0

##【ソース・サーバー側の簡易コントローラ】
<ServiceContract(namespace:="http://aaa/bbb/api/ccc/")>
<AspNetCompatibilityRequirements(RequirementsMode:=AspNetCompatibilityRequirementsMode.Allowed)>
Public Class KaniCntl

Inherits System.Web.UI.Page '-------------------------------------------------------------------- ' report簡易コントローラー(構造型のリクエストJSONをそのまま返す) '--------------------------------------------------------------------

<OperationContract(), WebInvoke()>
Public Function report(req As List(Of RequestJson3)) As List(Of RequestJson3)

Dim RequestHeaders = WebOperationContext.Current.IncomingRequest.Headers ' リクエストヘッダー Return req End Function

End Class

##【JSON定義側】
'--------------------------------------------------------------------
' リクエスト・メインクラス(JSON List)
'--------------------------------------------------------------------
Public Class RequestJson3
Property headerlist3 As New List(Of HeaderList3) '--- 配列データ 
Property reqdat3 As New List(Of DataList3) '--- 配列データ 
End Class

'--------------------------------------------------------------------
' リクエスト・ヘッダークラス(List)
'--------------------------------------------------------------------
Public Class HeaderList3
Property recordNo As String = "" '--- レコード番号
Property appVer As String = "" '--- 識別情報
Property houkokuTime As String = "" '--- データ作成日時
End Class

'--------------------------------------------------------------------
' リクエスト・データクラス(List)
'--------------------------------------------------------------------
Public Class DataList3
Property recordNo As String = "" '--- レコード番号
Property okozukai As String = "" '--- お小遣い
Property actiondate As String = "" '--- 使った日
End Class

  ※もちろん、実際の中身とは異なります

##【ソース・リクエスト側】
Private Function RequestToPMS3(ByRef json As RequestJson3) As String

'文字コードを指定する Dim enc As System.Text.Encoding = System.Text.Encoding.GetEncoding("UTF-8") 'POST送信する文字列を作成 Dim postData As String postData = System.Web.HttpUtility.UrlEncode(json.ToString, enc)  `※ JSONではなく、"xxx.RequestJson3"の文字になっている` 'バイト型配列に変換 Dim postDataBytes As Byte() = enc.GetBytes(postData) Dim wc As New System.Net.WebClient '--- ヘッダ --- ' Content-Type wc.Headers.Add("Content-Type", "application/json; charset=utf-8") ' 連携リクエストID wc.Headers.Add("X-Request-Id", getRequestId()) Dim eMsg As String = "" Try '***** データを送信し、結果を受信する ***** reqCount = reqCount + 1 Dim resData As Byte() resData = wc.UploadData(pmsRequestUrl, postDataBytes)    `※ここで400のエラーになります` wc.Dispose() '受信した結果(JSONデータ)を表示する Dim resText As String = enc.GetString(resData) Console.WriteLine(resText)

     ~



End Function

##【問い合わせ内容】
いろいろサンプル試したのですが、ことごとくエラーになります
0. どこがいけないのかご教授願います

  1. JSONですが、汎用的にどんな形や項目がきても受取れるプログラミングはできないのでしょうか?

  どれも事前にJSONの項目をクラス定義しとかないといけないサンプルばかりでしたので不便かなと。。。

  1. postData = System.Web.HttpUtility.UrlEncode(json.ToString, enc)の結果がJSONではなく、"xxx.RequestJson3"の文字になってしまう(これがまずNG)

以上、よろしくお願いいたします。

以下のような質問にはリアクションをつけましょう

  • 質問内容が明確
  • 自分も答えを知りたい
  • 質問者以外のユーザにも役立つ

リアクションが多い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

気になる質問をクリップする

クリップした質問は、後からいつでもマイページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

下記のような質問は推奨されていません。

  • 間違っている
  • 質問になっていない投稿
  • スパムや攻撃的な表現を用いた投稿

適切な質問に修正を依頼しましょう。

SurferOnWww

2019/01/30 09:11

上手くいく環境があるとのことですが、であればキャプチャツールを利用して要求・応答をキャプチャして、うまくいく場合と行かない場合の違いを比較してみてはいかがですか。それに絶対ヒントがあるはずです。
akiras

2019/01/30 11:06

回答ありがとうございます。 ARCでリクエストするとうまくいくので多分【ソース・リクエスト側】のどこかが間違っていると思われます。 キャプチャツールとはデバックのことでしょうか? ARCはプログラミングではなくリクエストツールなので追うことができないと思います。
SurferOnWww

2019/01/30 11:29

> キャプチャツールとはデバックのことでしょうか? HTTP 通信の要求・応答をキャプチャするなら Fiddler がお勧めです。ただし、相手が localhost ではダメなので、hosts ファイルで何とかするという対応が必要ですが。
akiras

2019/01/30 13:09

重ね重ね回答ありがとうございます。 明日、Fiddlerで検索して解析してみます。

まだ回答がついていません

会員登録して回答してみよう

アカウントをお持ちの方は

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
86.12%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問

同じタグがついた質問を見る

JSON

JSON(JavaScript Object Notation)は軽量なデータ記述言語の1つである。構文はJavaScriptをベースとしていますが、JavaScriptに限定されたものではなく、様々なソフトウェアやプログラミング言語間におけるデータの受け渡しが行えるように設計されています。

POST

POSTはHTTPプロトコルのリクエストメソッドです。ファイルをアップロードしたときや入力フォームが送信されたときなど、クライアントがデータをサーバに送る際に利用されます。

VB.NET

Microsoft Visual Basic .NETのことで、Microsoft Visual Basic(VB6)の後継。 .NET環境向けのプログラムを開発することができます。 現在のVB.NETでは、.NET Frameworkを利用して開発を行うことが可能です。