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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> twebbrowser Как получить ссылки на которые ведут к 
:(
    Опции темы
darkcoder
Дата 6.3.2008, 19:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



Как получить ссылки на которые ведут картинки?
<a href="нужно узнать что тут для данной картинки"><img src=""></a>
Код приведенные ниже пытался модифицировать, не вышло.

for i := 0 to EmbeddedWB1.OleObject.Document.Images.Length - 1 do
begin
     Document := Embeddedwb1.Document as IHtmlDocument2;
     // Retrieves the calculated width of the image.
    ImageWidth := Embeddedwb1.OleObject.Document.Images.Item(i).Width;
     // Retrieves the height of the image.
    ImageHeight := Embeddedwb1.OleObject.Document.Images.Item(i).Height;
     // Retrieves the file size of the image.
    ImageFileSize := (Document.Images.Item(i, 0) as IHTMLImgElement).FileSize;
     // Retrieves the entire URL that the browser uses to locate the image
    ImageHref := (Document.Images.Item(i, 0) as IHTMLImgElement).Href;
     // Retrieves a text alternative to the graphic.
    ImageTextAlternative := (Document.Images.Item(i, 0) as IHTMLImgElement).alt;
     // Show image information in a TListbox
    ListBox1.Items.Add(Format('%s : %d x %d Pixels; %s Bytes; %s',
       [ImageHref, ImageWidth, ImageHeight, ImageFileSize, ImageTextAlternative]));
   end;
PM MAIL   Вверх
darkcoder
Дата 7.3.2008, 00:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



решено
PM MAIL   Вверх
MetalFan
Дата 7.3.2008, 08:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Аццкий Сотона
****


Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 3
Всего: 128



расскажи уж как решил...


--------------------
There are always someone smarter than you...
PM MAIL   Вверх
darkcoder
Дата 7.3.2008, 14:09 (ссылка) |  (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

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



img:= (Embeddedwb1.Document as IHTMLDocument2).images.item(i, 1) AS IHTMLImgElement;
if ((img as IHTMLElement).parentElement.tagName = 'A') then
tmpx:=(((img as IHTMLElement).parentElement as IHTMLAnchorElement).Href);
PM MAIL   Вверх
MMONSTERR
  Дата 16.3.2008, 16:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: -1



Здраствуйте .  smile  Не подскажете как можно сохранить картинку из webbrousera (visual basic ).
Может есть какое-то свойство этого объекта Document.images.Item(i) ?  Или может подскажете как можно сохранить весь докумен с картинками на диск, но без диалоговых окон Web.Document.ExecCommand ("SaveAs", True, FileName), чтобы молча и тупо сохранился на диске.

Заранее спасибо !
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: ActiveX/СОМ/CORBA"

Rrader
Girder

Запрещено:

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

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


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

Если Вам помогли, и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Rrader, Girder.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: ActiveX/СОМ/CORBA | Следующая тема »


 




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


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

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