بدست آوردن حجم Image

[Saeid59_m]

سلام
فرض کنید که یک تصویر درون Image وجود دارد چگونه می توانید حجم آنرا بدست آوریم

ممنون

[Saeid59_m]

اگه بشه حجم Streem رو هم بدست آورد باز خوبه .

می دونید می خوام به کاربر اجازه ندم عکسهای با حجم زیاد رو اسکن یا وارد بانک بکنه
حجم فایل بدردم نمی خوره چون ممکنه که از اسکنر مستقیما وارد Image بشه

اگه راهنمائی کنید مثل همیشه منو شرمنده می کنید

[MNosouhi]

procedure TForm1.Button1Click(Sender: TObject);
var
ser:TSearchRec;
begin
if OpenDialog1.Execute then
if FindFirst(OpenDialog1.FileName,faAnyFile,ser)=0 then
Label1.Caption:='Size= '+CurrToStrF(ser.Size,ffNumber,0)+' Bytes';
end;

[a_b_toops]

var
Mems:TMemoryStream;
begin
Mems:=TMemoryStream.Create;
Image1.Picture.Bitmap.SaveToStream(Mems);
Mems.Position:=0;
showmessage(inttostr(Mems.Size));
Mems.Free;

end;