![]() |
Модераторы: MetalFan |
![]() ![]() ![]() |
|
darkcoder |
|
|||
Новичок Профиль Группа: Участник Сообщений: 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; |
|||
|
||||
darkcoder |
|
|||
Новичок Профиль Группа: Участник Сообщений: 16 Регистрация: 31.3.2007 Репутация: нет Всего: нет |
решено
|
|||
|
||||
MetalFan |
|
|||
![]() Аццкий Сотона ![]() ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 3815 Регистрация: 2.10.2006 Где: Moscow Репутация: 3 Всего: 128 |
расскажи уж как решил...
-------------------- There are always someone smarter than you... |
|||
|
||||
darkcoder |
|
|||
Новичок Профиль Группа: Участник Сообщений: 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); |
|||
|
||||
MMONSTERR |
|
|||
Новичок Профиль Группа: Участник Сообщений: 2 Регистрация: 16.3.2008 Репутация: нет Всего: -1 |
Здраствуйте .
![]() Может есть какое-то свойство этого объекта Document.images.Item(i) ? Или может подскажете как можно сохранить весь докумен с картинками на диск, но без диалоговых окон Web.Document.ExecCommand ("SaveAs", True, FileName), чтобы молча и тупо сохранился на диске. Заранее спасибо ! |
|||
|
||||
![]() ![]() ![]() |
Правила форума "Delphi: ActiveX/СОМ/CORBA" | |
|
Запрещено: 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам помогли, и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Rrader, Girder. |
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Delphi: ActiveX/СОМ/CORBA | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |