Pessoal, bom dia!
Estou precisando acessar um serviço tipo application/json, via POST no Delphi 2010.
Quando efetuo a conexão retorna: Socket Error # 10054 Connection reset by peer.
Não sei mais o que fazer, tentei diversas formas. Alguém aí, qualquer ideia é bem vinda!
Criei um projeto no Delphi e inseri os componentes tIdHTTP e outro TIdSSLIOHandlerSocketOpenSSL.
Segue o código:
procedure TForm1.Button2Click(Sender: TObject);
var
response, toSend: String;
j: AnsiString;
JsonToSend: tStringStream;
begin
// Configurar o tIdHTTP
HTTP.Request.CacheControl := 'no-cache';
HTTP.Request.ContentType := 'application/json';
HTTP.Request.ContentEncoding:= 'utf-8';
j:= '{"data":{' +
'"idCliente": "216269",' +
'"token":".9318CLBNLDP",' +
'"listaDeProdutos":[{' +
'"codInterno":"4",' +
'"ean":"7896658007255",' +
'"descricaoProduto":"TESTE",' +
'"ncm":""}]}}';
JsonToSend := TStringStream.Create(j, TEncoding.UTF8);
toSend:= 'https://contilfiscoteste.maistre.com.br/api/v1/consulta-lista-produtos';
response:= HTTP.Post(toSend, JsonToSend);
JsonToSend.Free;
end;