Pesquisar na Comunidade
Showing results for tags 'http'.
Encontrado 8 registros
-
Bom dia, prezados. Preciso consumir um endpoint de uma api da Conciliadora, enviando um arquivo xml pelo body. Uso o Delphi 2010 e por isso estou usando o ABCrHTTP para consumir os endpoints de consulta, que estão funcionando normalmente. Porém, não encontrei nenhuma documentação sobre como enviar o arquivo através do ACBrHTTP. Não é multifile. É um arquivo por vez. Muito apreciaria se alguém puder me ajudar com um exemplo. A API exige:
-
Galera, Bom dia! Estou com um problema, por alguns dias e não consigo resolver. Estou realizando a integração do meu sistema com o iFood. Estou realizando alguns testes, por enquanto, estava obtendo sucesso, até tentar cadastrar o produto na API do iFood. O procedimento que estou utilizando para cadastro é o seguinte: procedure TfrmPrincipal.btnCriarProdutoClick(Sender: TObject); var iStringListProduto : TStringList; iRespostaIfood : string; iJSON : string; iJSONStream : TStringStream; iJSONEnviar : TIdMultipartFormDataStream; begin iJSONEnviar := TIdMultiPartFormDataStream.Create; try iJSON := ('{"merchantId": MerchantID,' + //CÓD DO RESTAURANTE '"externalCode":"205",' + '"availability": "AVAILABLE",' + '"name": "X BURGUER - TESTE",' + '"description": "PÃO, HAMBURGUER E QUEIJO",' + '"order": 1,' + '"schedules": [],' + '"price":{' + '"originalValue": 0,' + '"promotional": false,' + '"value": 12.50}'+ '}'); mRetorno.Lines.Clear; mRetorno.Lines.Add(iJSON); iJSONEnviar.AddFormField('sku', iJSON); //Configura o HTTP IdHTTPConexao.Request.Clear; //IdHTTPConexao.Request.CharSet := 'UTF-8'; IdHTTPConexao.Request.CustomHeaders.Clear; IdHTTPConexao.Request.CustomHeaders.AddValue('Content-Type', iJSONEnviar.RequestContentType); IdHTTPConexao.Request.CustomHeaders.AddValue('Authorization', 'Bearer ' + self.fToken); IdHTTPConexao.Request.CustomHeaders.AddValue('Content-Type', 'application/json'); IdHTTPConexao.Request.CustomHeaders.AddValue('Content-Disposition', 'form-data; name="sku"'); IdHTTPConexao.Response.CharSet := 'UTF-8'; try iRespostaIfood := IdHTTPConexao.Post('https://pos-api.ifood.com.br/v1.0/skus', iJSONEnviar); //201 = Indica que novos parâmetros foram criados com sucesso if IdHTTPConexao.ResponseCode = 201 then Application.MessageBox(PWideChar('Produto Cadastrado com Sucesso!'), 'Informação', MB_OK+MB_ICONINFORMATION); except on e:EIdHTTPProtocolException do begin if (e.ErrorCode <> 200) or (e.ErrorCode <> 201) then begin Application.MessageBox(PWideChar('Atenção! Ocorreu ao Cadastrar Produto no iFood. ' + e.ErrorMessage), 'Aviso', MB_OK+MB_ICONWARNING); Exit; end; end; end; finally end; end; Estou obtendo o seguinte retorno de erro: --------------------------- Aviso --------------------------- Atenção! Ocorreu ao Cadastrar Produto no iFood. <html><body><h1>Whitelabel Error Page</h1><p>This application has no explicit mapping for /error, so you are seeing this as a fallback.</p><div id='created'> Tue Nov 05 10:50:01 GMT-03:00 2019</div><div>There was an unexpected error (type=Bad Request, status=400).</div><div>Unable to parse form content</div></body></html> Obs. Esse mesmo JSON, executei no POSTMAN e estou obtendo um retorno positivo que o produto é cadastrado com sucesso, porém, o erro está no fonte e não estou conseguindo identificar. Se alguém, conseguir me auxiliar ou ajudar. Obrigado!
-
Bom dia. Já utilizo a consulta CNPJ do ACBr há bastante tempo, mas faz alguns dias que vem apresentando o erro na hora de consultar. Este erro não acontece em todos os computadores, alguns Win 7 funcionam outros não! Já os Win 10 não funcionam em nenhum! Como se fosse algo pra ser configurado, nos SSL e TSL não tenho certeza. Alguém com esse mesmo problema? Alguma solução? Obrigado!
-
Galera...não to conseguindo compilar os fontes do acbr...ta dando um erro [dcc32 Error] httpsend.pas(356): E2003 Undeclared identifier: 'SNIHost' nessa linha: if needssl then begin if (FSock.SSL.SNIHost='') then FSock.SSL.SNIHost:=FTargetHost; FSock.SSLDoConnect; FSock.SSL.SNIHost:=''; //don't need it anymore and don't wan't to reuse it in next connection if FSock.LastError <> 0 then Exit; end;
-
Olá, eu estou com um problema no envio de NFSe, quando tento enviar a NFSe, o sistema retorna o erro : Erro Interno: 0 Erro HTTP: 500 Porem esse erro começou após eu atualizar os fontes. Servidor : Fiorilli | Balsamo-SP Certificados: Testei com Capicom e WinCript
-
Erro HTTP: 404 Not Found em ACBrConsultaCPF
um tópico no fórum postou Luciano Rodrigues Pereira ACBrTCP
Estou fazendo tudo certo, mas na hora de fazer a consulta do CPF via ACBrConsultaCPF estou com a mensagem de erro "Erro Http: 404 not Found", conforme imagem em anexo. O componente está inclusive trazendo o captcha, tudo certo, mas na hora do comando ACBrConsultaCNPJ1.Consulta(edCpf_Cnpj.text, edtCaptcha.Text) me vem a mensagem de erro. Tudo indica que esse endereço para o qual o componente aponta está erro, entrando pelo navegador o site da receita é https://www.receita.fazenda.gov.br/Aplicacoes/SSL/ATCTA/CPF/ConsultaSituacao/ConsultaPublica.asp diferente do endereço do componente. Como corrigir? -
Pessoal, desculpem o Off Topic, mas bateu o desespero. tenho um aplicativo desktop que faz uma consulta no https://stg1da.experian.com/Integration/IntegrationService e até há alguns dias estava tudo OK, mas agora eles mudaram para a versão 1.2 e não vai nem com bomba. o interessante é que pelo soapUI da certo. Uso o delphi XE5. PS já tentei todas as opções IdSSLIOHandlerSocket.SSLOptions.Method := tentei todas IdSSLIOHandlerSocket.SSLOptions.SSLVersions := tentei todas IdSSLIOHandlerSocket.SSLOptions.Mode slmUnassigned; tentei todas IdSSLIOHandlerSocket.SSLOptions.VerifyMode := []; alguém sabe como resolver? desde já agradeço._________________
-
Bom dia pessoal! Estou tentando fazer uma conexão utilizando o acbrsocket, passando uma url para o webbrowser, porém esta retornando um erro do tipo : Erro HTTP: 500 Apenas isso, alguém saberia me dizer do que se trata? Já reinstalei o projeto acbr e não adiantou.
