使用Indy HTTP get 400的Delphi Google oauth2令牌请求错误请求

Question

我在Delphi XE5中使用IdHTTP和IdSSLIOHandlerSocketOpenSSL处理程序。我有我的客户端ID，客户端机密和API密钥。我有授权码。

IdHTTP配置为：

AllowCookies = True
HandleRedirects = True
HTTPOptions.hoKeepOrigProtocol = True
HTTPOptions.hoNoProtocolErrorException = True

其他的都是默认的。

var  Params: TStringList;
     Resp: TStringStream;
     URI: String;
begin

     Params := TStringList.Create;
     Resp := TStringStream.Create;

     try
        URI := 'https://accounts.google.com/o/oauth2/token';

        Params.Add('client_id=' + clientID);
        Params.Add('client_secret=' + clientSecret);
        Params.Add('code=' + authCode);
        Params.Add('redirect_uri=http://localhost');
        Params.Add('grant_type=authorization_code');

        IdHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
        IdHTTP.Post(URI, Params, Resp);

        Memo1.Lines.LoadFromStream(Resp);
        Memo1.Lines.Insert(0, IdHTTP.ResponseText);

        finally
        FreeAndNil(Params);
        FreeAndNil(Resp);
        end;

end;

我将Accept标头更改为在其他地方找到的设置。
我将charset=utf-8添加到content-type。
我替换了clientid和clientsecret。

这是IdHTTP发送的内容：

POST /o/oauth2/token HTTP/1.1<br>
Content-Type: application/x-www-form-urlencoded; charset=utf-8<br>
Content-Length: 240<br>
Host: accounts.google.com<br>
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8<br>
Accept-Encoding: identity<br>
User-Agent: Mozilla/3.0 (compatible; Indy Library)<br>

client_id=clientid&client_secret=clientsecret&code=4%2ftmtyuvpcsmikoyjcfmicfxqedpyiw_qilko2dxv_nuc&redirect_uri=http%3a%2f%2flocalhost&grant_type=authorization_code

Answer 1

我解决了！

印第才是问题所在。

我使用了Synapse4.0组件，让它在10分钟内工作。