Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Как купить рекламу на форуме


Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы Поиск в этой теме
Старый 06.03.2008, 19:26   #1
darkcoder
 
Регистрация: 31.03.2007
Сообщений: 9
По умолчанию twebbrowser Как получить ссылки на которые ведут картинки?

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

for i := 0 to EmbeddedWB1.OleObject.Document.Imag es.Length - 1 do
begin
Document := Embeddedwb1.Document as IHtmlDocument2;
// Retrieves the calculated width of the image.
ImageWidth := Embeddedwb1.OleObject.Document.Imag es.Item(i).Width;
// Retrieves the height of the image.
ImageHeight := Embeddedwb1.OleObject.Document.Imag es.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;
darkcoder вне форума Ответить с цитированием
Старый 07.03.2008, 14:10   #2
darkcoder
 
Регистрация: 31.03.2007
Сообщений: 9
По умолчанию

решено - - -- - -- -
darkcoder вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме 20000 рублей в месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как в TWebBrowser узнать адрес ссылки которая находится под курсором мышки SeRhy Общие вопросы Delphi 0 10.08.2008 09:11
Получить имена всех файлов, которые были открыты с помощью приложения Kn793 Общие вопросы Delphi 9 10.07.2008 14:31
Программы которые мы используем Fainder Софт 18 28.07.2007 04:43
5 дат, которые должен знать каждый Гриха Свободное общение 37 23.02.2007 18:41


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS