unit1.pas

来自「利用锚点实现网页中的标题定位 我吴斌通过9年的不懈研究,写出的宇宙无敌定位原代」· PAS 代码 · 共 108 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw,MSHTML, StdCtrls,ShellApi, ComCtrls;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    Edit2: TEdit;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    TreeView1: TTreeView;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   WebBrowser1.Navigate('http://localhost/suppoet/Untitled-1.html'); //连接页
  AnimateWindow(Handle, 400, AW_CENTER); //网页的出现效果
end;

procedure TForm1.Button1Click(Sender: TObject);
var 
v:variant;
begin
//webbrowser1.Navigate('http://www.tongyi.net/article/20050615/200506154265.shtml');
//sleep(5000);
v:=webbrowser1.Document;
 Edit1.Text:=v.body.innertext;

end;

procedure TForm1.Button2Click(Sender: TObject);
var
v:variant;
num:Integer;
begin
v:=webbrowser1.Document;
   num:= pos('11.YearOf(所在单元：DateUtils)',v.body.innertext);

   Edit2.Text:=inttostr(num);
    //(WebBrowser1.Document   as   IHtmlDocument2).elementFromPoint(0,200);
   //http://topic.csdn.net/t/20040608/14/3073610.html
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
//ShellExecute(handle,'open', 'http://localhost/suppoet/Untitled-1.html#lanmo',nil,nil, SW_SHOWNORMAL);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
    WebBrowser1.Navigate('http://localhost/suppoet/Untitled-1.html#psp');
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://localhost/suppoet/Untitled-1.html#jbp');
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://localhost/suppoet/Untitled-1.html#grxz');
end;

procedure TForm1.TreeView1Click(Sender: TObject);
begin
if TreeView1.Selected.Text ='psp' then
begin
         WebBrowser1.Navigate('http://localhost/suppoet/Untitled-1.html#psp');
end;
if TreeView1.Selected.Text ='聚宝盆' then
begin
         WebBrowser1.Navigate('http://localhost/suppoet/Untitled-1.html#jbp');
end;
if TreeView1.Selected.Text ='个人闲置' then
begin
         WebBrowser1.Navigate('http://localhost/suppoet/Untitled-1.html#grxz');
end;
end;

end.