Код:
procedure TForm1.Button4Click(Sender: TObject);
var
doc: IHTMLDocument2;
i: Integer;
img: IHTMLImgElement;
begin
doc:=WebBrowser1.Document as IHTMLDocument2;
for i:=0 to doc.all.length-1 do
if doc.all.item(i, 0).QueryInterface(IID_IHTMLImgElement, img)=S_OK then
if img.width=121 then
ShowMessage(img.src);
end;
Все хорошо, src показывает правельный. Но если:
Код:
ShowMessage(img.fileSize);
То он показывает "-1". В чем-то ошибка у меня?