Модераторы: MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Ссылки и TWebBrowser 
:(
    Опции темы
Cosmologist
Дата 3.12.2006, 16:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 53
Регистрация: 13.8.2006

Репутация: нет
Всего: 0
Всем доброго времени суток.
Вопрос следующий - в TWebBrowser получаю список ссылок в документе:

Код

procedure TForm1.Button3Click(Sender: TObject);
 var
   i: Integer;
 begin
   for i := 0 to Webbrowser1.OleObject.Document.links.Length - 1 do
   Listbox1.Items.Add(Webbrowser1.OleObject.Document.Links.Item(i));
 end;


Как мне узнать текст ссылки?
PM MAIL   Вверх
Matematik
Дата 3.12.2006, 17:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: нет
Всего: 50
Код

   for i := 0 to Webbrowser1.OleObject.Document.links.Length - 1 do
   begin
     Memo1.Lines.Add(Webbrowser1.OleObject.Document.Links.Item(i).href);
     Memo1.Lines.Add(Webbrowser1.OleObject.Document.Links.Item(i).innerText);
   end
PM MAIL WWW ICQ   Вверх
December
Дата 3.12.2006, 17:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Antitheorist
****


Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 12
Всего: 57
для вопросов по TWebBrowser существует спец подраздел ActiveX etc



--------------------
Для друзей с винграда - скидки на разработку сайтов
PM MAIL WWW ICQ   Вверх
Cosmologist
Дата 3.12.2006, 17:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 53
Регистрация: 13.8.2006

Репутация: нет
Всего: 0
2 Matematic: innerText пробовал - выдает access violation smile 
PM MAIL   Вверх
Matematik
Дата 3.12.2006, 17:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: нет
Всего: 50
Цитата(Cosmologist @ 3.12.2006,  17:31)
2 Matematic: innerText пробовал - выдает access violation smile

А у меня работает Ж)
Тогда можно сделать по-человечески

Код

procedure TForm1.Button1Click(Sender: TObject);
var
  j,k         : Integer;
  IDoc        : IHTMLDocument2;
  ITag        : IHTMLElement;
  ILink       : IHTMLAnchorElement;
  p           : OleVariant;
begin
  if webbrowser1.Document.QueryInterface(IHTMLDocument2, IDoc)=S_OK then
  begin
    k := IDoc.links.length - 1;
    for j:=0 to k do
    begin
      if (IDoc.links.item(j,0).QueryInterface(IHTMLElement, ITag)=S_OK) and
         (IDoc.links.item(j,0).QueryInterface(IHTMLAnchorElement, ILink)=S_OK) then
      begin
        memo1.Lines.Add(ILink.href);
        memo1.Lines.Add(ITag.innerText);
      end
    end
  end
end;
PM MAIL WWW ICQ   Вверх
Cosmologist
Дата 4.12.2006, 13:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 53
Регистрация: 13.8.2006

Репутация: нет
Всего: 0
2 Matematik: Спасибо второй вариант заработал
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: ActiveX/СОМ/CORBA"

Rrader
Girder

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Delphi
  • Вопросы по SQL и вопросы по базам данных, не связанные с Delphi, задавать здесь

Если Вам помогли, и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Rrader, Girder.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: ActiveX/СОМ/CORBA | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0806 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.