unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ImgList, StdCtrls, OleCtrls, SHDocVw, ToolWin,
  ExtCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP,mshtml, Grids, DBGrids, Sockets, ShellApi;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    ImageList1: TImageList;
    StatusBar1: TStatusBar;
    WebBrowser1: TWebBrowser;
    IdHTTP1: TIdHTTP;
    Label6: TLabel;
    Label5: TLabel;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    Panel2: TPanel;
    Label2: TLabel;
    Edit2: TEdit;
    Button2: TButton;
    Panel1: TPanel;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    TcpServer1: TTcpServer;
    TcpClient1: TTcpClient;
    procedure WebBrowser1DownloadBegin(Sender: TObject);
    procedure WebBrowser1DownloadComplete(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure WebBrowser1DocumentComplete(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
    procedure Button2Click(Sender: TObject);
    procedure WebBrowser1ProgressChange(Sender: TObject; Progress,
      ProgressMax: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Doc : IHTMLDocument2;
  i:integer;
implementation

{$R *.dfm}

procedure TForm1.WebBrowser1DownloadBegin(Sender: TObject);
begin
StatusBar1.Panels[0].Text:='正在連接：'+Edit1.text;
end;

procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
begin
StatusBar1.Panels[0].Text:='完成  '+WebBrowser1.LocationURL ;
end;

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
WebBrowser1.GoBack;
end;

procedure TForm1.ToolButton5Click(Sender: TObject);
begin
WebBrowser1.Stop;
end;

procedure TForm1.ToolButton7Click(Sender: TObject);
begin
WebBrowser1.Refresh;
end;

procedure TForm1.ToolButton9Click(Sender: TObject);
begin
WebBrowser1.GoHome;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  p:integer;
  s:string;
begin
  if Edit1.Text='' then
  ShowMessage('地址不能為空');
WebBrowser1.Navigate(Edit1.Text);
 s := idHTTP1.Get('http://data.alexa.com/data?cli=10&dat=snba&url=' + Edit1.Text) ;
//先得到網(wǎng)頁(yè)代碼
  p:=pos('" TEXT="',s) + Length('" TEXT="');   //然后查找到text的字符,然后得到他的位置
  s:=copy(s,P,30);  //復(fù)制字符和得到正確位置(加" text="的長(zhǎng)度后加30位置,開(kāi)始取值)
  p:=pos('"/>',s); //在同行中遇到"/>結(jié)束
  Label3.Caption:=Copy(s,1,P -1); //將取得到的值賦給label3
end;

procedure TForm1.ToolButton3Click(Sender: TObject);
begin
 WebBrowser1.GoForward;
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  begin
  Doc:=WebBrowser1.Document as IHTMLDocument2;  //獲得 一個(gè)IHTMLDocument2對(duì)象
  edit2.Text:=Doc.cookie;    //Doc.cookie就是頁(yè)面COOKIE信息了
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  SList: TStrings;
begin
        if Edit2.Text = '' then Exit;
        SList := TStringList.Create; {修改瀏覽器的Cookies}
        Slist.CommaText := Edit2.Text;
        for i := 0 to SList.Count - 1 do {將Cookies分段提交給瀏覽器}
          Doc.cookie := SList.Strings[i];
        Webbrowser1.Refresh; {修改后Cookies后刷新瀏覽器}
        SList.Free; {釋放}
end;

procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,
  ProgressMax: Integer);
begin
  if WebBrowser1.LocationURL <> 'about:blank' then
    edit1.Text := WebBrowser1.LocationURL
  else
    Edit1.Text := '';
end;

end.