Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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


WebSQLNeederr ©   (2007-06-05 15:50:00) 

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


Wahnsinng   (2007-06-14 06:51:00) [1]

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

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


WebSQLNeederr   (2007-06-13 16:28:00) [2]

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


nali   (2007-06-13 14:10:00) [3]

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

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-12 17:18:00) [4]

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


etc   (2007-06-12 16:53:00) [5]


> WebSQLNeederr   (12.06.07 16:28) [6]

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

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


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

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


etc   (2007-06-12 16:14:00) [7]


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

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


WebSQLNeederr   (2007-06-12 15:59:00) [8]

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

ModalWebBrowser.Navigate(url)

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


clickmaker   (2007-06-06 13:21:00) [9]


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

ModalWebBrowser.Navigate(url)


WebSQLNeederr   (2007-06-06 12:35:00) [10]

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


nali   (2007-06-06 06:59:00) [11]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо