Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > Ссылки из фреймов Webbrowser

Автор: Visp 23.1.2007, 17:17

нужно вытянуть все ссылки из всех фреймов на странице которые указывают на определённый сайт например www.mysite.com
делаю так

Код


  for f := 0 to WebBrowser1.OleObject.Document.Frames.Length - 1 do
          for i := 0 to WebBrowser1.OleObject.Document.Frames.Item(f).Document.links.Length - 1 do
try
            begin
              hr := WebBrowser1.OleObject.Document.Frames.Item(f).Document.Links.Item(i).href; //Exception тут
              if Pos('www.mysite.com', hr) > 0 then
                begin
                  ShowMessage(hr);
                end;
            end;
except
end;

но вылетает Exception
поставил try/except и вообще ничего smile

Автор: _hunter 23.1.2007, 17:23

такие:
WebBrowser1.OleObject.Document.Frames.Item(f).Document.Links.Item(i).href;
конструкции можно применять только если на 100% уверен что все объекты точно существуют.
проверь кого именно нету...

Автор: Visp 23.1.2007, 17:32

Цитата(_hunter @ 23.1.2007, 17:23

)

кого именно нету...

?
страница на которой тестирую - 2 фрейма оба со ссылками smile

может по другому как-то надо делать ?

Автор: _hunter 23.1.2007, 17:45

можно и по-другому (через COM) -- ищи на форуме ihtmldocument2

Автор: December 23.1.2007, 17:55

Какой именно exception? от этого всё зависит