Теперь не могу отправить json-запрос в видел файла на сервер.
Запрос должен иметь вид:
автор{
"departmentId": "3DB1BE3B-BED1-49F6-AB4C-D138A81A9505",
"isDirect": false,
"format": "Electronic",
"number": "А26-00-000000000",
"createDate": "2016-11-15",
"name": "Иванов Иван Иванович",
"address": "г. Калуга, ул. Циолковского, д.8",
"email": "
user@hostname.com",
"questions": [
{
"code": "0001",
"status": "InWork",
"incomingDate": "2016-11-16",
"registrationDate": "2016-11-17"
}
]
}
Пишу обработчик:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
procedure TForm1.Button2Click(Sender: TObject);
var
JSONObject: TJSONObject;
JsonArray: TJSONArray;
PostData: TStringStream;
begin
JSONObject := TJSONObject.Create;
PostData := TStringStream.Create;
try
JSONObject.AddPair('departmentId',
TJSONString.Create('715db6d9-0988-4ab0-8546-5a7783b1b362'));
JSONObject.AddPair('isDirect', TJSONTrue.Create);
JSONObject.AddPair('format', TJSONString.Create('Electronic'));
JSONObject.AddPair('number', TJSONString.Create('1622'));
JSONObject.AddPair('createDate', TJSONString.Create('2016-11-15'));
JSONObject.AddPair('name', TJSONString.Create('Иванов Иван Иванович'));
JSONObject.AddPair('address', TJSONString.Create
('г.Калуга, ул. Рознина, д.72'));
JSONObject.AddPair('email', TJSONString.Create('mail@yandex.ru'));
JsonArray := TJSONArray.Create();
JSONObject.AddPair('questions', JsonArray);
JsonArray.AddElement(TJSONObject.Create(TJSONPair.Create('code',
TJSONString.Create('0001'))));
JsonArray.AddElement(TJSONObject.Create(TJSONPair.Create('status',
TJSONString.Create('InWork'))));
JsonArray.AddElement(TJSONObject.Create(TJSONPair.Create('incomingDate',
TJSONString.Create('2016-11-16'))));
JsonArray.AddElement(TJSONObject.Create(TJSONPair.Create
('registrationDate', TJSONString.Create('2016-11-17'))));
PostData.WriteString(JSONObject.ToString);
PostData.SaveToFile('1.json');
finally
PostData.Free;
JSONObject.Free;
end;
end;
Получаю json-файл:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
{
"departmentId": "715db6d9-0988-4ab0-8546-5a7783b1b362",
"isDirect": true,
"format": "Electronic",
"number": "1622",
"createDate": "2016-11-15",
"name": "Иванов Иван Иванович",
"address": "г.Калуга, ул. Рознина, д.72",
"email": "mail@yandex.ru",
"questions": [{
"code": "0001"
}, {
"incomingDate": "2016-11-16"
}, {
"registrationDate": "2016-11-17"
}]
}
А далее пытаюсь отправить файл на тестовом стенде и получаю ошибку:
1.
Ошибка: Required property 'status' not found in JSON. Path 'questions[0]', line 1, position 267.
Но свойство status стоит в нужном месте и определено в том же формате что и предлагается, почему так?
