1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
TCppWebBrowser * Browser = (TCppWebBrowser * ) AHandle;
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);
}
} |
