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

Artículo por Club Developers · 13 March 2006

3776 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;