Показать сообщение отдельно
  #10  
Старый 25.04.2013, 16:07
cyborgg4655 cyborgg4655 вне форума
Начинающий
 
Регистрация: 16.03.2013
Сообщения: 151
Версия Delphi: Delphi 2010
Репутация: 10
По умолчанию

Код:
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". В чем-то ошибка у меня?
Ответить с цитированием