TIdHttp + Método Post D2010
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:
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
Curtidas 0