Http Example 2

execute ibeblock
as
begin
 json = '{"filter":{"sgtin":"046700124610051059C43A31A82"},"start_from":0,"count":1}';
 url  = 'URL=https://api.mdlp.crpt.ru/api/v1/reestr/sgtin/filter';
 sess   = ibec_http_OpenSession(:url);
 header = 'Authorization: token 6006af8e-91e4-4350-a903-0886908fd771'||ibec_CRLF()||'Content-Type: application/json';
 ibec_http_SetHeader(:sess,:header);
 ibec_http_Post(:sess,:json);
 lHeaders = ibec_http_GetProperty(sess, 'LastSentHeaders');
 ibec_ShowMessage(:lHeaders);
 scode = ibec_http_StatusCode(:sess);
 sdesc = ibec_http_Data(:sess);
 ibec_ShowMessage('Ответ: '||:scode||'  '||ibec_UTF8ToAnsiString(:sdesc));
 ibec_http_CloseSession(:sess);
end