Текущий архив: 2007.01.14;
Скачать: CL | DM;

Вниз

TWebBrowser-ссылка!   Найти похожие ветки 

← →
ssss   (2006-12-21 09:46) [0]

Добрый день у меня такой вопрос можно ли программно нажать ссылку на странице в TWebBrowser??на ум приходит только одна мысль это выцепить кординаты ссылки - направить туда мышь и имитировать клик...??МОжет процедура какая нить есть???

Заранее благодарен...

---

← →
easy ©   (2006-12-21 10:37) [1]

unit Unit1;

interface

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

type
 TForm1 = class(TForm)
   WebBrowser1: TWebBrowser;
   ListBox1: TListBox;
   procedure FormCreate(Sender: TObject);
   procedure WebBrowser1DocumentComplete(Sender: TObject;
     const pDisp: IDispatch; var URL: OleVariant);
   procedure ListBox1Click(Sender: TObject);
   procedure WebBrowser1BeforeNavigate2(Sender: TObject;
     const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
     Headers: OleVariant; var Cancel: WordBool);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 WebBrowser1.Align:=alClient;
 ListBox1.Align:=alRight;
 WebBrowser1.Navigate("delphimaster.ru");
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
 const pDisp: IDispatch; var URL: OleVariant);
var
 Links:OleVariant;
 i:integer;
begin
 Links:=WebBrowser1.OleObject.document.all.tags("A");
 for i:=0 to Links.length-1 do
   if Links.item(i).innerText<>"" then
     ListBox1.Items.Add(Links.item(i).innerText)
   else
     ListBox1.Items.Add(Links.item(i).hRef);
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
 if ListBox1.ItemIndex>=0 then begin
   WebBrowser1.OleObject.document.all.tags("A").item(ListBox1.ItemIndex).click;
 end;
end;

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
 const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
 Headers: OleVariant; var Cancel: WordBool);
begin
 ListBox1.Clear;
end;

end.

---

Страницы: 1 вся ветка

Текущий архив: 2007.01.14;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.043 c