Програмно кликнуть на ссылку из ТВебБровзера

← →
WebSQLNeederr (2007-06-05 15:50) [0]

Есть компонент ТВебБровзер вот и в него загружается какая то страница. Нужно програмно кликнуть на определенную ссылку и что бы она открылась не в отдельном окне ИЕ а в отдельном МОДАЛЬНОМ окне моей программы.

← →
nali (2007-06-06 06:59) [1]

Скачиваешь страницу, потом вписываешь ее в браузер в своем окне.

← →
WebSQLNeederr (2007-06-06 12:35) [2]

А как програмно кликнуть?

← →
clickmaker © (2007-06-06 13:21) [3]

> как програмно кликнуть?

ModalWebBrowser.Navigate(url)

← →
WebSQLNeederr (2007-06-12 15:59) [4]

Блин ну не предлагайте ГЛУПОСТИ !!!

ModalWebBrowser.Navigate(url)

Это просто откроет страницу а все переменные окружение php и javascript исчезнут.

← →
etc (2007-06-12 16:14) [5]

> Блин ну не предлагайте ГЛУПОСТИ !!!

а вы не спрашивайте про них !!!

← →
WebSQLNeederr (2007-06-12 16:28) [6]

etc ты хочешь сказать, что то что было предложено глупостью не является? Или ты хочешь сказать что простое забивание адреса в ТВебБровзер есть аналог клика? Не смешите меня, мне советы дельные нужны а не вольное творчество дилетантов!

← →
etc (2007-06-12 16:53) [7]

> WebSQLNeederr (12.06.07 16:28) [6]

:)
ну поясните дилетантам, что есть "Програмно кликнуть на ссылку", если вы четко знаете, что то что предложено не оно ?

да и ссылки могут быть разные
href="#"
href="javascript:...."
....

← →
WebSQLNeederr (2007-06-12 17:18) [8]

etc я о том и говорю, что простое вбивание адреса ссылки в другой веббровзер это не аналог клика. Ведь в таком случае не передаются сессии, переменные окружения, не сохраняются рефереры и т.д. ...

← →
nali (2007-06-13 14:10) [9]

Кликнуть можно так:

procedure AnchorClick(num:integer);
var
idoc: IHTMLDocument2;
cols:IHTMLElementCollection;
begin
try
idoc:=Form1.WebBrowser1.Document as IHTMLDocument2;
if idoc=nil then exit;
cols:=(idoc.all.tags("A") as IHTMLElementCollection);
if cols=nil then exit;
if cols.length>num then // num - номер ссылки
(cols.Item(num,0) as IHTMLElement).click;
finally

end;
end;

← →
WebSQLNeederr (2007-06-13 16:28) [10]

nali, спасибо. Вот это сразу видно ответ профессионала.

Клик - WebBrowser1.OleObject.Document.Links.Item(0).click;

Получить текст ссылки
S := WebBrowser1.OleObject.Document.Links.Item(0).outerHTML;

Програмно кликнуть на ссылку из ТВебБровзера Найти похожие ветки