Obtener la lista y propiedades de las imágenes contenidas en la página mostrada

Artículo por Club Developers · 13 marzo 2006

3305 vistas

Tl número de imágenes que contiene la página web mostrada, se almacena en la variable WebBrowser1.OleObject.Document.Images.Length

También es posible obtener información de cada imagen (alto, ancho, URL, tamaño y texto):
Largo: WebBrowser1.OleObject.Document.Images.Item(i).Width;
Ancho: WebBrowser1.OleObject.Document.Images.Item(i).Height;
Tamaño: WebBrowser1.OleObject.Document.Images.Item(i).FileSize;
Texto: WebBrowser1.OleObject.Document.Images.Item(i).Href;

Ejemplo:



delphi
  1. procedure TIexplore.ToolButton5Click(Sender: TObject);
  2. var
  3.   i: Word;
  4.   Ancho, Alto: Integer;
  5.   Texto, Bytes, URL: string;
  6. begin
  7.   for i := 0 to WebBrowser1.OleObject.Document.Images.Length - 1 do
  8.   begin
  9.     Ancho := WebBrowser1.OleObject.Document.Images.Item(i).Width;
  10.     Alto := WebBrowser1.OleObject.Document.Images.Item(i).Height;
  11.     Bytes := WebBrowser1.OleObject.Document.Images.Item(i).FileSize;
  12.     URL := WebBrowser1.OleObject.Document.Images.Item(i).Href;
  13.     Texto := WebBrowser1.OleObject.Document.Images.Item(i).alt;
  14.     ListBox1.Items.Add(Format('%s : %d x %d PÃxels; %s bytes; %s',
  15.       [URL, Ancho, Alto, Bytes, Texto]));
  16.   end;
  17. end;