Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.12.21;
Скачать: CL | DM;

Вниз

twebbrowser Как получить ссылки на которые ведут картинки?   Найти похожие ветки 

 
darkcoder   (2008-03-06 19:07) [0]

Как получить ссылки на которые ведут картинки?
<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   (2008-03-07 00:29) [1]

решено



Страницы: 1 вся ветка

Текущий архив: 2008.12.21;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.018 c
2-1226567217
Tugodum
2008-11-13 12:06
2008.12.21
невидимая форма


15-1224012169
guav
2008-10-14 23:22
2008.12.21
А мужики не знали


2-1226415188
Maksim
2008-11-11 17:53
2008.12.21
Изменение размера шрифта в поле Memo


15-1223761025
МемТест
2008-10-12 01:37
2008.12.21
Под Windows XP максимум памяти - это 2 или 4 Гб?


15-1224211471
Slider007
2008-10-17 06:44
2008.12.21
С днем рождения ! 17 октября 2008 пятница