Як програму натиснути на посилання в TWebBrowser
Майстри help, я завантажую в TWebBrowser html-сторінку на якій є посилання, як мені програмно клікнути по якійсь з них?
см http://delphi.mastak.com/cgi-bin/forum.pl?look=1&id=1036333688&n=4 і мій месидж від (03.11.02 19:41)
ЗИ. Анара не слухай.
Дякую спробую розібратися
Ну взагалі-то не зовсім зрозуміло, там все вільніше довкола та довкола. Може, хто конкретно знає?
Ну а до чого тут Navigate? Мені треба завантажити сторінку, вона щоразу буде різна, і саме натиснути посилання а не перейти - мета здійснити клік.
procedure TForm1.Button1Click(Sender: TObject); var Coll : IHTMLElementCollection; Doc: IHTMLDocument2; i: integer; begin Doc:= IHTMLDocument2(WB.Document); if assigned(Doc) then begin Coll:=IHTMLElementCollection(Doc.links); for i:=0 to Coll.length-1 do з HTMLLinkElement(Coll.item(i,varEmpty)) do //далі перевіряємо лінк на яку нитку атрибут (наприклад innerText) //повний список атрибутів дивись у MSHTML.DispHTMLLinkElement //якщо не перевіряти, натисніть на перший лінк if innerText="Текст посилання" then click; end; end;
>int64 дякую, це здається те що потрібно
>int64 це не зовсім те, треба в TWebBrowser завантажити сторінку з банером і по ній натиснути, ось як це зробити?
Ну, тобто. не по "ній" а по банеру:)
А що є "банер"? Я такого елемента не знаю. Покажи, де він у MSDN.
Натяк зрозумів, поекспериментую:)