1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
|
Comment lister les images d'une page, ainsi que leurs propriétés ?
Variant vDocument = Browser->ControlInterface->Document;
if (((IDispatch *)vDocument) != NULL)
{
Variant vImages = vDocument.OlePropertyGet("Images");
Variant vImagesCount = vImages.OlePropertyGet("Length");
for (int i = 0 ; i < vImagesCount ; i++)
{
Variant vImage = vImages.OleFunction("Item",i);
Variant vImageURL = vImage.OlePropertyGet("Src");
Variant vImageWidth = vImage.OlePropertyGet("Width");
Variant vImageHeight = vImage.OlePropertyGet("Height");
Variant vImageWeight = vImage.OlePropertyGet("FileSize");
Variant vImageAlt = vImage.OlePropertyGet("Alt");
AnsiString aInfoImage = Format("%s : %d x %d Pixels; %d octets; %s",
ARRAYOFCONST((vImageURL,(int)vImageWidth,(int)vImageHeight,(int)vImageWeight,vImageAlt)));
ListBox1->Items->Add(aInfoImage);
}
}
|
Partager