Последние записи
- Перенести программу из Delphi в Lazarus
- Определить текущую ОС
- Автоматическая смена языка (раскладки клавиатуры)
- Сравнение языков на массивах. Часть 2
- wprintf как напечатать кириллицу
- Взаимодействие через командную строку
- Сравнение языков на массивах. Часть 1
- Сравнение языков по скорости
- Чтение огромных xml-файлов
- Как в Python+Selenium webdriver открыть новую вкладку в уже открытом браузере?
Интенсив по 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;
Похожие статьи
Купить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)