Использование TWebBrowser

← →
Infinity1 (2003-08-25 20:46) [0]

Делаю я одну программу. Она лазит по Веб, может заходить на ссылки, может заполнять поля. Но вот надо что бы программа зашла на сложный сайт с 3 фреймами. И где клавный source представляет Java скрипт. Из простой страницы получить могу теги таким способом и произвести навигацию:

var
iDoc:IHtmlDocument2;
i:integer;
ov:OleVariant;
iDisp: IDispatch;
iColl:IHTMLElementCollection;
iInputElement:IHTMLInputElement;
iEl:IHTMLElement;
Test : string ;
a : string ;
begin //
assert (length(ButtonName) > 0);
Test := GetHTMLCode (WebBrowser );
a := Test ;
WebBrowser.ControlInterface.Document.QueryInterface(IHtmlDocument2,iDo c);
if not assigned(iDoc) then begin
ShowMessage(" !!!??? Nothing dowloaded ... ");
Exit;
end;

ov:="INPUT";
IDisp:=iDoc.all.tags (ov);
if assigned(IDisp) then begin
IDisp.QueryInterface(IHTMLElementCollection,iColl);
if assigned(iColl) then begin
for i:=1 to iColl.Get_length do begin
iDisp:=iColl.item(pred(i),0);
iDisp.QueryInterface(IHTMLInputElement,iInputElement);
if assigned(iInputElement) then begin
if iInputElement.Get_name=ButtonName
then
begin
iInputElement.QueryInterface(IHtmlElement,iEl);
iEl.click;
end;
end;
end;
end;
end;
end;

Но в случае с фреймами это не работает. Надо таким способом пробежаться по коллекции тэгов каждого фрейма. Видел я что то вроде tWebBrowser.oleObject.document.frame.item(i), но не работает что то?

Как это реализовать. Пожалусто код, если можно или хотябы ссылку в msdn. Заранее благодарю.

← →
Гера © (2003-08-25 20:48) [1]

билн, ну зачем писать в основную, когда для этого есть вкладка СЕТИ

гера слазь с герыча

Использование TWebBrowser Найти похожие ветки