Admin
Fondateur
Nombre de messages : 197
Age : 40
Localisation : Tlemcen ( Algérie )
Date d'inscription : 04/12/2006
 |  Sujet: Comment obtenir la liste et les propriétés des images conten  Jeu 18 Jan - 16:42 | |
| [url=#webpropimages]Comment obtenir la liste et les propriétés des images contenues dans la page ?[/url] Le nombre d'images contenu dans la page affichée est stocké dans la variable Webbrowser1.OleObject.Document.Images.Length Pour chaque image il est possible d'obtenir la Hauteur, la largeur, l'URL de l'image, le poids de l'image et le texte de l'info bulle. Largeur : WebBrowser1.OleObject.Document.Images.Item(i).Width; Hauteur : Webbrowser1.OleObject.Document.Images.Item(i).Height; Poids : Webbrowser1.OleObject.Document.Images.Item(i).FileSize; Info Bulle : Webbrowser1.OleObject.Document.Images.Item(i).Href; Exemple : - Code:
-
procedure TIexplore.ToolButton5Click(Sender: TObject);
var
i: Word;
Largeur, Hauteur: Integer;
Infobulle, Poids, URLImage: string;
begin
for i := 0 to WebBrowser1.OleObject.Document.Images.Length - 1 do
begin
Largeur := WebBrowser1.OleObject.Document.Images.Item(i).Width;
Hauteur := WebBrowser1.OleObject.Document.Images.Item(i).Height;
Poids := WebBrowser1.OleObject.Document.Images.Item(i).FileSize;
URLImage := WebBrowser1.OleObject.Document.Images.Item(i).Href;
Infobulle := WebBrowser1.OleObject.Document.Images.Item(i).alt;
ListBox1.Items.Add(Format('%s : %d x %d Pixels; %s octets; %s',
[URLImage, Largeur, Hauteur, poids, InfoBulle]));
end;
end;
| |
|
