estou tentando comunicação com a API de um ecommerce e de todas as dezenas de tentativas que fiz somente recebo como resposta "HTTP request failed 400 HTTP/1.1 400 Bad Request".
Pelo que me informaram tenho que enviar um post e no body informar consumer_key, consumer_secret e code.
Uma coisa importante é que tenho que passar essas informações no body do post e não como parametros.
Testei pelo Postman usando x-www-form-urlencoded, informei a url e coloquei as informações acima no Body e deu certo.
No Delphi estou enviando da forma abaixo:
lHTTP:= TIdHTTP.Create(nil);
IdSSLIOHandlerSocketOpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
StringList := TStringList.Create;
StringStream := TStringStream.Create('', TEncoding.UTF8);
StringList.Add('consumer_key = abcdefg');
StringList.Add('&consumer_secret = hijklmn');
StringList.Add('&code = opqrstuvxz');
StringStream.WriteString(StringList.text);
lHTTP.Request.CustomHeaders.Clear;
lHTTP.IOHandler := IdSSLIOHandlerSocketOpenSSL;
lHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
lHTTP.Request.CharSet:= 'utf-8';
lHTTP.HandleRedirects := True;
lHTTP.Request.UserAgent := 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/60.0.3112.113 Safari/537.36';
lHTTP.Request.Method:='POST';
Result:= lHTTP.Post(Url, StringStream);
Abaixo o exemplo em PHP disponibilizado pelo ecommerce:
$params["consumer_key"] = "### Chave da Aplicação ###";
$params["consumer_secret"] = "### Chave Secreta da Aplicação ###";
$params["code"] = "### Código de Autorização ###";
$url = "https://{api_address}/auth/?".http_build_query($params);
ob_start();
$ch = curl_init();
curl_setopt($ch, CURLOPT_URL, $url);
curl_setopt($ch, CURLOPT_CUSTOMREQUEST, "POST");
curl_setopt($ch, CURLOPT_POSTFIELDS, $params);
curl_exec($ch);
O que esta faltando ? Ou o que estou fazendo de errado ?
Agradeço antecipadamente.