Скачать: CL | DM;

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

← →
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, спасибо. Вот это сразу видно ответ профессионала.

---

← →
Wahnsinng ©   (2007-06-14 06:51) [11]

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

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

---

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

Скачать: CL | DM;



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