Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Интернет и сети \ Браузер \ Получить все URLs фреймов в TWebBrowser

Получить все URLs фреймов в TWebBrowser

procedure TForm1.Button2Click(Sender: TObject); 
var 
  i: Integer; 
begin 
  Listbox1.Clear; 
  //if frames available 
  if Webbrowser1.OleObject.Document.Frames.Length <> 0 then 
  begin 
    //walk through all frames and get the url 
    //to the Listbox 
    for i := 0 to Webbrowser1.OleObject.Document.Frames.Length - 1 do 
    begin 
      Listbox1.Items.Add(Webbrowser1.OleObject.Document.Frames.item(i).Document.URL); 
    end; 
  end; 
end;

Название: Получить все URLs фреймов в TWebBrowser
Дата публикации: 2004-09-02 (2400 Прочтено)

 
 

 

Page generation 0.030 seconds