Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 2 августа!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Получить все 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;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS