как узнать вес картинки

[designer999]

Здравствуйте

...............
Bitmap:=TBitmap.Create;
...............

есть например картинка в Bitmap, как можно узнать её вес ?

[Virtson]

Свойство TBitmap.PixelFormat определяет 'вес' каждого пикселя. Обычно 3 байта (pf24bit) либо 4 байта (pf32bit).
Данное свойство после загрузки изображения можно менять самостоятельно.

Количество же пикселей также очень легко узнать = Width * Height.

Замечание: скорее всего кол-во выделяемой памяти будет в 2 раза больше, это особенность GDI.

[SERG1980]

взято с инета

function GetFileSize(FileName: string): Integer;
var
FS: TFilestream;
begin
try
FS := TFilestream.Create(Filename, fmOpenRead);
except
Result := -1;
end;
if Result <> -1 then
Result := FS.Size;
FS.Free;
end;

[designer999]

SERG1980 спс большое, немного под себя переделал))