android - Delphi XE6 发布请求和印地

Question

我有一个 Delphi XE6 应用程序，我想将其安装在 Android 手机上。我正在 Windows 平台上测试它。下面是我的单元源代码。在我的表单上，我有一个按钮、idHttp Indy 工具和一个备忘录字段。

问题是当我点击按钮时出现错误

HTTP/1.1 403 Forbidden.

但我可以通过浏览器访问该站点，因此该页面未被禁止。任何人都可以看出问题吗？

我搜索了如何使用 firemonkey 和 delphi 进行发布请求，我找到了这些链接:

• How to send a HTTP Post Request in Delphi 2010 using WinInet
• POST request in Delphi XE
• How are parameters sent in an HTTP POST request?

这些都对我没有帮助。

unit Start_Interface_u;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes,
  System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,
  FMX.Layouts, FMX.Memo;

type
  TForm1 = class(TForm)
    btnLogin: TButton;
    IdHTTP1: TIdHTTP;
    Memo1: TMemo;
    procedure btnLoginClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

  {$R *.fmx}


  procedure TForm1.btnLoginClick(Sender: TObject);
  Var
    sResult: String;
    DataToSend :TStringList;
  begin

  DataToSend := TStringList.Create;
  //DataToSend.Add('login_email=some_email');
  //DataToSend.Add('login_pass=some_password');
  IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';

  Memo1.Lines.Add(idHTTP1.Post('http://mysite.co.za/dash.php', DataToSend));

  end;

end.

Answer 1

例如，我会尝试将用户代理设置为模拟普通网络浏览器(摘自 this 答案)

Request.UserAgent := 
      'Mozilla/5.0 (Windows NT 5.1; rv:2.0b8) Gecko/20100101 Firefox/4.0b8';