TIdHttp + M�todo Post D2010

14/10/2020

Salve Galera!
Estou precisando consumir um servi�o WEB via POST HTTP no Delphi 2010.
� um servi�o do tipo: application/json.

Quando invoco, retorna: Socket Error # 10054 Connection reset by peer.

Por favor, me deem uma for�a. J� n�o sei o que fazer com essa trunqueira.
Segue o C�digo:

procedure TForm1.Button2Click(Sender: TObject);
var
  response, toSend: String;
  j: AnsiString;
  JsonToSend: tStringStream;
begin

  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';

  try
    response:= HTTP.Post(toSend, JsonToSend);
  except
    on E:EIdHTTPProtocolException do
      ShowMessage(e.ErrorMessage);
  end;
end;

Saulo Cabral

Curtir t�pico + 0

Responder