Pesquisar na Comunidade
Showing results for tags 'Indy10'.
Encontrado 3 registros
-
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!
-
Pessoal estou tentando integrar com eidaf API, já tentei no REST Debugger e não consegui também segue a imagem da configuração para conseguir o token e manual em anexo. Obs.: Pessoal do governo mandaram estas outras imagens como exemplo. Manual-e-Idaf_1001.pdf
-
Boa tarde. Estava com a necessidade de um projeto do ACBrNFeMonitor adequado para o Indy 10 para uso com o Delphi XE2 e não encontrei nenhum pelo fórum, mas acabei encontrando várias pessoas com o mesmo interesse. Então baixei os fontes atuais a partir do SVN e efetuei as mudanças necessárias para adequar aos componentes do Indy 10. Apenas removi os componentes Rave por não usa-los e nem ter o mesmo instalado em meu Delphi, seria fácil de voltar eles ao projeto através de um Diff, sem maiores complicações. Gostaria de saber se seria possível dar esta contribuição com o projeto para adequá-lo ao Indy 10, ou mesmo se algum usário teria interesse nos fontes do projeto. Att, Evandro.
