[cyborgg4655]

Сообщение от M.A.D.M.A.N.

Объем штоле? Так бы и писал. Вон там пример со стримом, stream.size взять.

Код:

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
 memo1.Text:=img.fileSize; //Но размер определяется как -1

А как мне по этому аналогу из памяти взять? Чтобы если в памяти есть картинка шириной 121px then memo1.text= ее размер в байтах??
Нашел такой код:

Код:

var
 stream:Tfilestream;
 v:variant;
 begin
 stream:=TfileStream.create('c:1.jpg',fmOpenRead);
 V:=VarArrayCreate([0, stream.size - 1], varByte);
 stream.read(v,stream.size);
 stream.free;
 end;

Но это наверное не совсем то что нужно?