Коллеги добрый день.
Необходимо отправить на сервер следующий запрос
Accept:application/json
Content-Type:application/xml
Authorization:Mindbox secretKey="5jiFKYsb0kOSbtM2WEY"
<operation>
<page>
<firstMindboxId>1</firstMindboxId>
<pageNumber>1</pageNumber>
<itemsPerPage>200</itemsPerPage>
</page>
</operation>
делаю так
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.
41.
42.
43.
44.
45.
46.
47.
begin
HandlerSocket := TIdSSLIOHandlerSocket.Create(HTTP);
HandlerSocket.SSLOptions.Mode := sslmClient;
HandlerSocket.SSLOptions.Method := sslvSSLv23;
HTTP:= TIdHTTP.Create(nil);
HTTP.IOHandler := HandlerSocket;
HTTP.HandleRedirects:=true;
HTTP.Request.BasicAuthentication := false;;
XML:='<operation>' +EOL+
'<page>' +EOL+
'<firstMindboxId>1</firstMindboxId>'+EOL+
'<pageNumber>1</pageNumber>' +EOL+
'<itemsPerPage>10</itemsPerPage>' +EOL+
'</page>' +EOL+
'</operation>';
HTTP.Request.CustomHeaders.Add('Mindbox secretKey="5jiFKYsb...."');
HTTP.Request.Host := 'api.mindbox.ru';
HTTP.Request.Accept :='application/xml';
HTTP.Request.ContentType :='application/xml';
HTTP.Request.BasicAuthentication:=false;
URL:='https://api.mindbox.ru/v3/operations/sync&operation=BalanceChanges';
LOGN:=TStringList.Create();
RESP:= TStringStream.Create('');
LOGN.Clear;
LOGN.Add('Accept:application/xml');
LOGN.Add('Content-Type:application/xml');
LOGN.Add('Authorization:Mindbox secretKey="5jiFKYsb0k....."');
LOGN.Add(XML);
repeat
try RSP:=HTTP.Post(URL,LOGN) except writeln('ERR>'+HTTP.ResponseText+HTTP.Response.ResponseText) end;
writeln(RSP);
получаю 401 Bad Request
подскажите куда сувать эти поля
Accept:application/json
Content-Type:application/xml
Authorization:Mindbox secretKey="5jiFKYsb0k........"
в общий StringList или в HTTP.Request
а так же правильно ли я передаю XML ?
