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.