unit1.~pas

利用锚点实现网页中的标题定位 我吴斌通过9年的不懈研究,写出的宇宙无敌定位原代码,这下大家满足了吧~!

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    Edit2: TEdit;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   WebBrowser1.Navigate('http://www.tongyi.net/article/20050615/200506154265.shtml'); //连接页
  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://www.tongyi.net/article/20050615/200506154265.shtml#11.Pos',nil,nil, SW_SHOWNORMAL);
end;

end.