Pesquisar na Comunidade

Olá a todos! Estou tentando sem sucesso consumir a API do PayPal, retorna o erro "HTTP/1.0 400 Bad Request" parece ser pacote mal formado, imagino que tenha alguma coisa (ou muita coisa errada) nos parâmetros que escrevi. Alguém teria algum exemplo de integração com PayPal ou pode me ajudar no código abaixo, hoje estamos tentando seguir a documentação fornecida pelo site do PayPal? //curl -v https://api.sandbox.paypal.com/v1/oauth2/token \ // -H "Accept: application/json" \ // -H "Accept-Language: en_US" \ // -u "client_id:secret" \ // -d "grant_type=client_credentials" //Retirado de: https://developer.paypal.com/docs/api/get-an-access-token-curl/ procedure TFPrincipal.Button3Click(Sender: TObject); var http: TIdHTTP; Handler: TIdSSLIOHandlerSocketOpenSSL; listaDeParametros : TStringStream; UrlConexao : string; slParameters : TStringStream; clienteID, secret : string; ResultadoEnvio : string; begin clienteID := '99999999999999999999999999999999999999999999999999999999999999999999999999999999'; secret := '88888888888888888888888888888888888888888888888888888888888888888888888888888888'; UrlConexao := 'https://api.sandbox.paypal.com/v1/oauth2/token'; Handler := TIdSSLIOHandlerSocketOpenSSL.create; Handler.SSLOptions.Method := sslvTLSv1_2; Handler.SSLOptions.Mode := sslmClient; http := TIdHTTP.Create(Application); http.Request.ContentType := 'application/x-www-form-urlencoded'; http.Request.Accept := 'application/json'; http.Request.AcceptLanguage := 'en_US'; http.Request.BasicAuthentication := true; http.Request.Username := clienteID; http.Request.Password := secret; http.IOHandler := Handler; slParameters := TStringStream.Create('grant_type=client_credentials'); try ResultadoEnvio := http.Post(urlconexao,slParameters ); ShowMessage(ResultadoEnvio); finally slParameters.Free; end; end; Desde já agradeço qualquer dica a respeito.

Boa tarde meus amigos, posso tirar uma dúvida aqui pelo nosso grupo? Estou implementando uma integração entre um banco de dados local e outro na nuvem da Amazon. Estou com um problema sério aqui: ao fazer o Putclientes, por exemplo, ou seja, ao enviar ao servidor as alterações e inserções do Banco local, se, após um insert em lote na tabela da nuvem, o Result da função Put não conseguir retornar ao cliente rest que o chamou, por uma queda do link de internet, por exemplo, esses inserts já foram commitados na nuvem, mas os relacionamentos entre o código externo gerado e o código interno enviado, não pode ser concebida. Sendo assim, no próximo Put, os clientes sem a relação entre os códigos, serão inseridas novamente, gerando duplicidade de cadastros na nuvem. Meu problema é saber como commitar a transação na nuvem somente após o Result chegar ao cliente rest que fez a chamada. Alguém pode me ajudar com isso?

Olá pessoal! Estou há alguns dias com um problema sem solução, realizando a integração do meu sistema em Delphi com o iFood estou me deparando com um erro no método de Atualizar um Item do cardápio. Segue a rotina que estou utilizando e logo abaixo o erro apresentado: restClient := TRESTClient.Create(nil); restClient.Accept:='application/json, text/plain; q=0.9, text/html;q=0.8,'; restClient.AcceptCharset:='utf-8, *;q=0.8'; RESTClient.BaseURL:='https://pos-api.ifood.com.br/v1.0/skus/'+externalCode; restRequest:=TRESTRequest.Create(nil); restRequest.Client := restClient; restRequest.Method := rmPATCH; RESTResposta:=TRESTResponse.Create(Self); restRequest.Response := RESTResposta; restRequest.AddParameter('Content-Type','multipart/form-data',pkHTTPHEADER,[poDoNotEncode]); RESTRequest.AddParameter('Authorization','bearer '+aToken,pkHTTPHEADER,[poDoNotEncode]); RESTRequest.AddParameter('Accept','application/json',pkHTTPHEADER,[poDoNotEncode]); jsonObject := TJSONObject.Create; jsonObject.AddPair(TJSONPair.Create('merchantId',TJSONNumber.Create(dados.FDDadosiFoodMERCHANT_ID.value))); jsonObject.AddPair(TJSONPair.Create('name',TJSONString.Create(dados.FDProdutosNOME_PROD.AsString))); jsonObject.AddPair(TJSONPair.Create('price',TJSONObject.Create(TJSONPair.Create('value',TJSONNumber.Create(dados.FDProdutosPRECO1.AsString))))); restRequest.AddBody(jsonObject); restRequest.Execute; if(RESTResposta.StatusCode=202)then begin MemoStatus.Lines.Add('Produto alterado com sucesso!'); Result:=true; end else begin MemoStatus.Lines.Add(RESTResposta.Content); Result:=false; end; Erro apresentado: "500 - Internal Server Error" '{"timestamp":"2020-03-31T13:59:27.583+0000","status":500,"error":"Internal Server Error","exception":"org.springframework.web.multipart.MultipartException","message":"org.springframework.web.util.NestedServletException: Request processing failed; nested exception is org.springframework.web.multipart.MultipartException: Could not parse multipart servlet request; nested exception is java.io.IOException: Missing initial multi part boundary","path":"/skus/1"}' Se alguém puder me auxiliar ou já tenha implementado isso ou passado por esse erro, fico no aguardo. Obrigado!

Boa tarde, Ofereço-me para desenvolvimento de aplicativos moveis em Delphi (firemonkey) . Integrações de aplicativos ao seu ERP. Apps como Força de Vendas, Comanda Eletrônica , Representantes Comerciais , App Gerencial , Prospecção de Clientes e muitos outros. Comunicação via servidor Datasnap ou HttpServer (Json/Rest). Contato : [email protected]