Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.059 c
3-1161965081
Ag@nt
2006-10-27 20:04
2007.01.14
Posgre+C++


1-1164283828
Krants\
2006-11-23 15:10
2007.01.14
Копирование из проводника


15-1166725442
Tirael
2006-12-21 21:24
2007.01.14
срочно нудно достать пароль из бата


15-1167066549
ocean
2006-12-25 20:09
2007.01.14
Программа кодирования папки


15-1166603244
alexandr
2006-12-20 11:27
2007.01.14
подскажите компонент