@Omega228

Помогите,Создать программу обработки битовых изображений. Проект – приложение. Нужно использовать два компонента TImage,в одном отображается растровая картинка, в другом - она же с использованием алгоритмов сжатия. Для сжатия использовать класс TJpegImage.

В форме размещены:
- Компоненты Image1 и Image2 для отображения битовых образов.
- Кнопки Button1 (BitMap) и Button2 (JpegImage), нажатие которых приводит к прорисовке изображений.
- Метки Label1 и Label2 для вывода размеров файлов исходного и сжатого изображений.
- Регулятор TrackBar1 для изменения качества сжимаемого изображения.
Метки Label3, Label4 и Label5 для отображения минимального, максимального и текущего значения коэффициента
качества. Диапазон этого коэффициента определен в пределах 1...100.
- Метка Label6 предназначена для заголовка компонент регулятора.
Программа содержит 3 процедуры. Две отрабатывают нажатие кнопок, третья изменение состояния регультора.
В программе используется класс TJpegImage, описанный в ИСР в модуле Jpeg. Поэтому в строке uses нужно добавить
ссылку на этот модуль. В программе определены:
- переменные MyBitmap и MyJpeg для взаимных преобразований картинок.
- переменная MyMemory для создания буфера в памяти, по нему определяются размеры файлов в байтах.
- вспомогательные переменные.
- файлы картинок должны размещаться в папке проекта.

0

@Omega228

Вот готовая программа, но она не работает помогите исправить, пожалуйста

Вложения

Картинка.rar (1.03 Мб, 5 просмотров)

0

@Joy

0

@Joy

Omega228, чего-то наисправлял. Запись/чтение из файлов не трогал, но как-то работает

Вложения

ttt.7z (4.78 Мб, 5 просмотров)

0

@Omega228

А что было,почему не работало ?

0

@D1973

А возьмите 2 PAS-файла: свой и исправленный - и сравните по содержимому...

0