delphi fmx idhttp post 案列，android测试通过

 //Tyrion

unit Unit1;

interface

uses

  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,

  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.WebBrowser,

  IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP,

  FMX.Controls.Presentation, FMX.StdCtrls, FMX.ScrollBox, FMX.Memo,

  FMX.TabControl, FMX.Edit, FMX.DateTimeCtrls, FMX.ListBox,IdGlobal, FMX.Layouts,

  System.Actions, FMX.ActnList, FMX.Gestures ;

type

  TForm1 = class(TForm)

    Button1: TButton;

    IdHTTP1: TIdHTTP;

    WebBrowser1: TWebBrowser;

    TabControl1: TTabControl;

    TabItem1: TTabItem;

    TabItem2: TTabItem;

    ToolBar1: TToolBar;

    TabItem3: TTabItem;

    Edit1: TEdit;

    Panel1: TPanel;

    Label1: TLabel;

    Label2: TLabel;

    Edit2: TEdit;

    Label3: TLabel;

    DateEdit1: TDateEdit;

    Label4: TLabel;

    Label5: TLabel;

    TimeEdit1: TTimeEdit;

    ComboBox1: TComboBox;

    ListBox1: TListBox;

    ListBoxItem1: TListBoxItem;

    ListBoxItem2: TListBoxItem;

    ListBoxItem3: TListBoxItem;

    ListBoxItem4: TListBoxItem;

    ToolBar2: TToolBar;

    Button2: TButton;

    ToolBar3: TToolBar;

    Button3: TButton;

    Edit3: TEdit;

    Label6: TLabel;

    Edit4: TEdit;

    Label7: TLabel;

    WebBrowser2: TWebBrowser;

    Label8: TLabel;

    Edit5: TEdit;

    WebBrowser3: TWebBrowser;

    GestureManager1: TGestureManager;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;

      Shift: TShiftState);

    procedure TabControl1Gesture(Sender: TObject;

      const [Ref] EventInfo: TGestureEventInfo; var Handled: Boolean);

  private

    { Private declarations }

    function CheckValues: boolean;

    procedure sbPriorClick(Sender: TObject);

    procedure sbNextClick(Sender: TObject);

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.fmx}

{$R *.LgXhdpiTb.fmx ANDROID}

procedure TForm1.Button1Click(Sender: TObject);

var

  ls: TStringList;

  lstr: string;

begin

  inherited;

// idHttp1.Request.CustomHeaders.Text :=

//  'Accept: image/gif, image/jpeg, image/pjpeg, application/x-ms-application, application/xaml+xml, application/x-ms-xbap, */*' + #13#10

// +'Referer: http://www.china95.net/PAipan/bazi/' + #13#10

// +'Accept-Language: zh-Hans-CN,zh-Hans;q=0.8,en-US;q=0.5,en;q=0.3' + #13#10

// +'Content-Type: application/x-www-form-urlencoded' + #13#10

// +'User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 10.0; WOW64; Trident/7.0; .NET4.0C; .NET4.0E; .NET CLR 2.0.50727; .NET CLR 3.0.30729; .NET CLR 3.5.30729)' + #13#10

// +'Accept-Encoding: gzip, deflate' + #13#10

// +'Host: www.china95.net' + #13#10

// +'Content-Length: 184' + #13#10

// +'DNT: 1' + #13#10

// +'Connection: Keep-Alive' + #13#10

// +'Cache-Control: no-cache';

  CheckValues;

  ls := TStringList.Create;

  ls.Add('name=' + edit1.Text);

  ls.Add('area=' + edit2.Text);

  if combobox1.ItemIndex = 0 then

  ls.Add('sex=1') else  ls.Add('sex=2');

  ls.Add('year=' + formatdatetime('yyyy',dateedit1.Date));

  ls.Add('month=' + formatdatetime('mm',dateedit1.Date));

  ls.Add('date='+ formatdatetime('dd',dateedit1.Date));

  ls.Add('hour=' + formatdatetime('hh',timeedit1.DateTime));

  ls.Add('minute=' + formatdatetime('nn',timeedit1.DateTime));

  ls.Add('jingdu=120');

  ls.Add('jingdufen=0');

  ls.Add('taiyang=0');

  ls.Add('quanpai=1');

  ls.Add('submit=在线排八字盘');

  idhttp1.Request.CharSet := 'utf-8';

  idhttp1.Request.ContentEncoding := 'utf-8';

  lstr := idhttp1.Post('http://www.china95.net/PAipan/bazi/bazi_show.asp',ls,IndyTextEncoding(TEncoding.ANSI));

  FreeAndNil(ls);

  lstr := Copy(lstr,Pos('<td><b>姓名',lstr) - Length('<td><b>姓名'),Length(lstr));

  lstr := Copy(lstr,1,Pos('<br><br><p></td>',lstr) + Length('<br><br><p></td>')) ;

  lstr := StringReplace(lstr,'元亨利贞网四柱八字在线排盘系统','',[rfReplaceAll]);

  lstr := StringReplace(lstr,'http://bbs.china95.net','',[rfReplaceAll]);

  webbrowser1.LoadFromStrings(lstr,'');

end;

procedure TForm1.Button2Click(Sender: TObject);

var

  ls: TStringList;

  lstr: string;

begin

//   idHttp1.Request.CustomHeaders.Text :=

//  'Accept: text/html, application/xhtml+xml, */*' + #13#10

// +'Referer: http://www.jjdzc.com/xm_xm.html' + #13#10

// +'Accept-Language: zh-CN' + #13#10

// +'Content-Type: application/x-www-form-urlencoded' + #13#10

// +'User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 10.0; WOW64; Trident/7.0; .NET4.0C; .NET4.0E; .NET CLR 2.0.50727; .NET CLR 3.0.30729; .NET CLR 3.5.30729)' + #13#10

// +'Accept-Encoding: gzip, deflate' + #13#10

// +'Host: www.jjdzc.com' + #13#10

// +'DNT: 1' + #13#10

// +'Connection: Keep-Alive' + #13#10

// +'Cache-Control: no-cache';

  ls := TStringList.Create;

  ls.Add('ming=' + edit4.Text);

  ls.Add('type=2');

  ls.Add('xing='+ edit3.Text);

  lstr := idhttp1.Post('http://www.jjdzc.com/xm.php',ls);

  FreeAndNil(ls);

  lstr := Copy(lstr,Pos('<h4 class="cut_tit">总评及建议</h4>',lstr) - Length('<h4 class="cut_tit">总评及建议</h4>'),Length(lstr));

  lstr := Copy(lstr,1,Pos('按此操作一切后果自负！',lstr) + Length('按此操作一切后果自负！') - 1) ;

//  lstr := StringReplace(lstr,'元亨利贞网四柱八字在线排盘系统','',[rfReplaceAll]);

//  lstr := StringReplace(lstr,'http://bbs.china95.net','',[rfReplaceAll]);

  webbrowser2.LoadFromStrings(lstr,'');

end;

procedure TForm1.Button3Click(Sender: TObject);

var

  lstr: string;

begin

   idHttp1.Request.CustomHeaders.Text :=

  'Accept: text/html, application/xhtml+xml, */*' + #13#10

 +'Referer: http://mobile.9om.com/' + #13#10

 +'Accept-Language: zh-CN' + #13#10

 +'Content-Type: application/x-www-form-urlencoded' + #13#10

 +'User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 10.0; WOW64; Trident/7.0; .NET4.0C; .NET4.0E; .NET CLR 2.0.50727; .NET CLR 3.0.30729; .NET CLR 3.5.30729)' + #13#10

 +'Accept-Encoding: gzip, deflate' + #13#10

 +'Host: mobile.9om.com' + #13#10

 +'DNT: 1' + #13#10

 +'Connection: Keep-Alive' + #13#10

 +'Cache-Control: no-cache' +#13#10

 +'cookie display=1';

  idhttp1.HandleRedirects := true;

  lstr := idhttp1.Get('http://mobile.9om.com/?lang=zh-cn&q=' + edit5.Text);

  lstr := Copy(lstr,Pos('<div class=detail>',lstr) + Length('<div class=detail>') ,Length(lstr));

  lstr := Copy(lstr,1,Pos('</span></div><div',lstr) -1 ) ;

  webbrowser3.LoadFromStrings(lstr,'');

end;

function TForm1.CheckValues: boolean;

begin

  result := false;

  if trim(edit1.Text) = '' then  raise exception.Create('请输入姓名');

  if trim(edit2.Text) = '' then  raise exception.Create('请输入地区');

  if combobox1.ItemIndex < 0 then  raise exception.Create('请选择性别');

  result := true;

end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;

  Shift: TShiftState);

begin

  if Key = vkHardwareBack then

  begin

    if TabControl1.TabIndex > 0 then

    begin

      TabControl1.TabIndex := TabControl1.TabIndex - 1 mod TabControl1.TabCount;

      Key := 0;

    end;

  end;

end;

procedure TForm1.sbNextClick(Sender: TObject);

begin

if tabcontrol1.ActiveTab.Index < tabcontrol1.TabCount - 1 then

  tabcontrol1.Next();

end;

procedure TForm1.sbPriorClick(Sender: TObject);

begin

if tabcontrol1.ActiveTab.Index > 0 then

  tabcontrol1.Previous();

end;

procedure TForm1.TabControl1Gesture(Sender: TObject;

  const [Ref] EventInfo: TGestureEventInfo; var Handled: Boolean);

begin

  case EventInfo.GestureID of

  sgiRight:

    begin

    tabcontrol1.Previous();

    Handled:=True;

    end;

  sgiLeft:

    begin

    tabcontrol1.Next();

    Handled:=True;

    end;

end;

end;

end.