使用Indy10访问Mashape API服务的问题

Question

我正在尝试使用Delphi XE3和Indy10编写一个使用Mashape API服务的客户端应用程序，但是我遇到了一点障碍。

这是我尝试过的:

我将TIdHTTP和TIdSSLIOHandlerSocketOpenSSL组件放在我的表单上，并使用TIdHTTP.IOHandler属性将它们链接在一起。然后，我在表单上放置了一个按钮和备忘录，并在按钮OnClick事件上放置了以下代码位:

procedure TForm1.Button2Click(Sender: TObject);
begin
 IdHTTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
 IdHTTP1.Request.CustomHeaders.AddValue('X-Mashape-Key: ','<my_api_key>');
 Memo1.Lines.Text := IdHTTP1.Get('https://hbrd-v1.p.mashape.com/anime/log-horizon');
end;

然后我启动我的应用程序，当我按下按钮，应用程序将等待一会儿，然后吐出一个HTTP/1.1 403 Forbidden错误信息。第二次按下按钮会产生HTTP/1.1 500 Internal Service Error消息。

我已经检查了，看看我是否有需要的SSL库文件在我的系统和我做，我已经测试了我的凭据一次又一次，他们似乎是正确的，我知道url是正确的，所以我必须在我的代码中缺少一些东西，以导致这些错误显示。我希望在这方面有经验的人能给我一些建议。

更新:这里是TRESTClient代码的工作:

unit Unit1;
interface
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IPPeerClient, Vcl.StdCtrls,
  REST.Response.Adapter, REST.Client, Data.Bind.Components,
  Data.Bind.ObjectScope;
type
  TForm1 = class(TForm)
    RESTClient1: TRESTClient;
    RESTRequest1: TRESTRequest;
    Button1: TButton;
    Memo1: TMemo;
    RESTResponse1: TRESTResponse;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
 RESTClient1.BaseURL := 'https://hbrd-v1.p.mashape.com/anime/log-horizon';
 RESTRequest1.Execute;
 Memo1.Lines.Text := RESTResponse1.Content;
// The only thing not shown here is the RESTRequest1.Params which are
// Name: 'X-Mashape-Key'
// Value: 'my-api-key'
// Kind: pkHTTPHEADER
// Everything else is included here which isn't much.
end;
end.

我想对TIdHTTP做同样的事情。

Answer 1

如果没有看到实际的HTTP消息来回传递，就很难知道实际发生了什么。当HTTP响应指示错误时，将引发EIdHTTPProtocolException异常，其ErrorMessage属性包含服务器响应的主体。它是否提示了错误发生的原因?

但是，你确实需要改变这个:

IdHTTP1.Request.CustomHeaders.AddValue('X-Mashape-Key: ','<my_api_key>');

:

IdHTTP1.Request.CustomHeaders.Values['X-Mashape-Key'] := '<my_api_key>';

并且去掉编程的IdHTTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;赋值，因为您已经在表单设计器中处理了它。

除此之外，403错误意味着您的凭据不被服务器接受。我没有看到你分配任何凭证到TIdHTTP.Request.Username和TIdHTTP.Request.Password属性在你的代码，你在表单设计器?

TIdHTTP使用一个插件系统来处理HTTP认证方案。如果服务器允许BASIC认证，您可以将TIdHTTP.Request.BasicAuthentication属性设置为true，以便在没有其他认证方案可用时使用BASIC作为默认认证方案。您可以使用TIdHTTP.OnSelectAuthorization事件查看服务器实际支持哪些身份验证。

如果服务器想要一个非BASIC的身份验证，你将需要在你的uses子句中添加相关的IdAuthentication...来启用该插件。例如:DIGEST鉴权设置为IdAuthenticationDigest, NTLM鉴权设置为IdAuthenticationNTLM等。或者，添加IdAllAuthentications单元来启用所有插件。

如果您需要使用Indy不支持的HTTP身份验证(例如OATH)，您可以:

1. 使用TIdHTTP.Request.CustomHeaders.Values['Authorization']手动提供相关凭据数据

2. 实现一个自定义的TIdAuthentication派生类，并将其实例赋值给TIdHTTP.Request.Authorization属性，或者将其类类型赋值给TIdHTTP.OnSelectAuthorization事件的VAuthenticationClass参数。