Последние записи

made in programmersforum 10

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

28th
Мар

Как узнать размер содержимого TJpegImage не сохраняя это содержимое в файл?

Posted by Chas under Delphi

Если делать это через TMemoryStream, то рассчитывается размер изображения в памяти., а он там храниться в BMP.

Аватар

procedure TForm1.Button1Click(Sender: TObject);

var Image: TJpegImage;

    Stream: TMemoryStream;

begin

  Image:=TJpegImage.Create;

  Image.LoadFromFile('e:\Безымянный.jpg');

  Stream:=TMemoryStream.Create;

  Image.SaveToStream(Stream);

  Label1.Caption:=IntToStr(Stream.Size);

  Stream.Free;

  Image.Free;

end;

с компрессией

procedure TForm1.Button1Click(Sender: TObject);

const FileName = 'e:\Безымянный.jpg';

      FileNameOut = 'e:\БезымянныйOut.jpg';

var JpegIn: TJpegImage;

    Bitmap: TBitmap;

    MS: TMemoryStream;

function GetFileSize(PFileName: String): Int64;

var FS: TFileStream;

begin

  FS:=TFileStream.Create(PFileName,fmOpenRead);

  Result:=FS.Size;

  FS.Free;

end;

begin

  {загрузили jpg из файла}

  Label1.Caption:=Format('Размер исходного файла - %d',[GetFileSize(FileName)]);

  JpegIn:=TJpegImage.Create;

  JpegIn.LoadFromFile(FileName);

  {сконвертировали в bmp}

  Bitmap:=TBitmap.Create;

  Bitmap.Assign(JpegIn);

  {компрессия}

  JpegIn.Assign(Bitmap);

  Bitmap.Free;

  JpegIn.CompressionQuality:=50;

  JpegIn.Compress;

  {посмотрели размер в стреам}

  MS:=TMemoryStream.Create;

  JpegIn.SaveToStream(MS);

  Label3.Caption:=Format('Размер в стреам - %d',[MS.Size]);

  MS.Free;

  {записали в файл}

  JpegIn.SaveToFile(FileNameOut);

  Label2.Caption:=Format('Размер выходного файла - %d',[GetFileSize(FileNameOut)]);

  JpegIn.Free;