質問編集履歴
6
ソースを修正しました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -84,6 +84,18 @@
|
|
84
84
|
|
85
85
|
```
|
86
86
|
|
87
|
+
Public Class restApi100
|
88
|
+
|
89
|
+
・
|
90
|
+
|
91
|
+
・
|
92
|
+
|
93
|
+
・
|
94
|
+
|
95
|
+
|
96
|
+
|
97
|
+
|
98
|
+
|
87
99
|
'文字コードを指定する
|
88
100
|
|
89
101
|
Dim enc As System.Text.Encoding = System.Text.Encoding.GetEncoding("UTF-8")
|
5
簡易コントローラーを追記しました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -78,7 +78,7 @@
|
|
78
78
|
|
79
79
|
|
80
80
|
|
81
|
-
## ソース
|
81
|
+
## ソース(エラーになっている送信API)
|
82
82
|
|
83
83
|
ソース
|
84
84
|
|
@@ -168,6 +168,58 @@
|
|
168
168
|
|
169
169
|
|
170
170
|
|
171
|
+
|
172
|
+
|
173
|
+
## ソース(受信側) ※これが簡易コントローラー
|
174
|
+
|
175
|
+
```
|
176
|
+
|
177
|
+
Public Class restApi500
|
178
|
+
|
179
|
+
'--------------------------------------------------------------------
|
180
|
+
|
181
|
+
' 簡易コントローラー
|
182
|
+
|
183
|
+
'--------------------------------------------------------------------
|
184
|
+
|
185
|
+
<OperationContract(), WebInvoke()>
|
186
|
+
|
187
|
+
Public Function report(req As List(Of RequestJsonItem)) As ResponseJsonClass
|
188
|
+
|
189
|
+
|
190
|
+
|
191
|
+
Dim RequestHeaders = WebOperationContext.Current.IncomingRequest.Headers ' リクエストヘッダー
|
192
|
+
|
193
|
+
Dim strConType As String = RequestHeaders("Content-Type") '--- "application/json; charset=utf-8"
|
194
|
+
|
195
|
+
Dim strXXX-RId As String = RequestHeaders("XXX-RId") '--- "2019-07-16-001"
|
196
|
+
|
197
|
+
|
198
|
+
|
199
|
+
・
|
200
|
+
|
201
|
+
・
|
202
|
+
|
203
|
+
・
|
204
|
+
|
205
|
+
※デバックだとヘッダが取得できている
|
206
|
+
|
207
|
+
|
208
|
+
|
209
|
+
|
210
|
+
|
211
|
+
```
|
212
|
+
|
213
|
+
|
214
|
+
|
215
|
+
|
216
|
+
|
217
|
+
|
218
|
+
|
219
|
+
|
220
|
+
|
221
|
+
|
222
|
+
|
171
223
|
---------------------------------------------------------------------------
|
172
224
|
|
173
225
|
|
4
本文の記載を修正
test
CHANGED
File without changes
|
test
CHANGED
@@ -52,7 +52,11 @@
|
|
52
52
|
|
53
53
|
2.こちらから先方へのリクエスト(先方はこちらで作ったvb.netの簡易コントローラーで代用)
|
54
54
|
|
55
|
-
・期待したヘッダ、データが取得できていない
|
55
|
+
・期待したヘッダ、データがFiddlerでは取得できていない
|
56
|
+
|
57
|
+
※但し、visual stadioのデバックでは簡易コントローラーでヘッダ、データが取得できている
|
58
|
+
|
59
|
+
|
56
60
|
|
57
61
|
|
58
62
|
|
3
ソースの不用マークを削除しました
test
CHANGED
File without changes
|
test
CHANGED
@@ -114,13 +114,13 @@
|
|
114
114
|
|
115
115
|
'HttpWebRequestの作成
|
116
116
|
|
117
|
-
Dim req As HttpWebRequest = CType(HttpWebRequest.Create(pmsUrl), HttpWebRequest)
|
117
|
+
Dim req As HttpWebRequest = CType(HttpWebRequest.Create(pmsUrl), HttpWebRequest) ' 暗黙変換できなかったのでCTypeでキャスト
|
118
118
|
|
119
119
|
req.Method = "POST" ' Method
|
120
120
|
|
121
|
-
req.
|
121
|
+
req.ContentType = "application/json; charset=utf-8" ' ※header1
|
122
122
|
|
123
|
-
req.Headers.Add("
|
123
|
+
req.Headers.Add("XXX-RId", "2019-07-16-001") ' ※header2
|
124
124
|
|
125
125
|
req.ContentLength = postDataBytes.Length ' ContentLength
|
126
126
|
|
2
再度修正しました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -78,6 +78,8 @@
|
|
78
78
|
|
79
79
|
ソース
|
80
80
|
|
81
|
+
```
|
82
|
+
|
81
83
|
'文字コードを指定する
|
82
84
|
|
83
85
|
Dim enc As System.Text.Encoding = System.Text.Encoding.GetEncoding("UTF-8")
|
@@ -90,7 +92,7 @@
|
|
90
92
|
|
91
93
|
Using stream As New IO.MemoryStream
|
92
94
|
|
93
|
-
|
95
|
+
'--- シリアライズ
|
94
96
|
|
95
97
|
Dim serializer As New DataContractJsonSerializer(json.GetType)
|
96
98
|
|
@@ -98,7 +100,7 @@
|
|
98
100
|
|
99
101
|
'--- 結果を取得
|
100
102
|
|
101
|
-
result = System.Text.Encoding.UTF8.GetString(stream.ToArray())
|
103
|
+
result = System.Text.Encoding.UTF8.GetString(stream.ToArray())
|
102
104
|
|
103
105
|
End Using
|
104
106
|
|
@@ -158,7 +160,9 @@
|
|
158
160
|
|
159
161
|
・
|
160
162
|
|
161
|
-
|
163
|
+
```
|
164
|
+
|
165
|
+
|
162
166
|
|
163
167
|
---------------------------------------------------------------------------
|
164
168
|
|
1
ソースをインデントしました。
test
CHANGED
File without changes
|
test
CHANGED
@@ -90,7 +90,7 @@
|
|
90
90
|
|
91
91
|
Using stream As New IO.MemoryStream
|
92
92
|
|
93
|
-
'--- シリアライズ
|
93
|
+
``` '--- シリアライズ
|
94
94
|
|
95
95
|
Dim serializer As New DataContractJsonSerializer(json.GetType)
|
96
96
|
|
@@ -98,7 +98,7 @@
|
|
98
98
|
|
99
99
|
'--- 結果を取得
|
100
100
|
|
101
|
-
result = System.Text.Encoding.UTF8.GetString(stream.ToArray())
|
101
|
+
result = System.Text.Encoding.UTF8.GetString(stream.ToArray()) ```
|
102
102
|
|
103
103
|
End Using
|
104
104
|
|