Конвертація jpeg в bmp і назад в delphi, melfis blog

Сьогодні ми напишемо програму для конвертації файлів JPEG в BMP і навпаки. Для початку розглянемо що є JPEG. JPEG (правильно вимовляється «джейпег» Joint Photographic Experts Group, за назвою організації-розробника) - один з популярних графічних форматів, застосовуваний для зберігання фотозображень і подібних до них зображень. Файли даних JPEG, зазвичай мають розширення .jpeg. jfif. jpg. JPG, або .JPE. Однак з них .jpg найпопулярніше розширення на всіх платформах. MIME-типом є image / jpeg. Алгоритм JPEG найбільшою мірою придатний для стиснення фотографій і картин, що містять реалістичні сцени з плавними переходами яскравості і кольору. Найбільшого поширення JPEG отримав в цифровій фотографії і для зберігання і передачі зображень з використанням мережі Інтернет.
І BMP. BMP (Bitmap Picture) формат зберігання растрових зображень. З форматом BMP працює величезна кількість програм, так як його підтримка інтегрована в операційні системи Windows і OS / 2. Файли формату BMP можуть мати розширення .bmp. dib і .rle. Крім того, дані цього формату включаються в двійкові файли ресурсів RES і в PE-файли. Глибина кольору в даному форматі може бути 1, 2, 4, 8, 16, 24, 32, 48 біт на піксель, максимальні розміри зображення 65535 × 65535 пікселів.
Створимо новий проект Forms Application і додамо наступні компоненти на нашу форму:

OpenDialog
З його допомогою ми будемо вибирати файл для конвертації.

SaveDialog
Відповідно зберігати сконвертовані файл.

RadioGroup
У властивості Items додамо два рядки «JPEG To BMP» і «BMP To JPEG». Більш нічого від нього не знадобиться крім як вказувати оператору IF яку саме процедуру виконувати.

LabeledEdit.
Дві штуки. У одного в властивості EditLabel-> Caption напишемо «Вихідний файл», а в іншого «Кінцевий файл».

Для LabeledEdit1 напишемо ось такий код в обробнику події OnClick наступний код:

Для OnClick Labeled2 виклик діалогу збереження:

І додамо одну кнопочку Button. При натисканні на яку відбудеться конвертація. Але про її обробнику трохи пізніше. Ось така форма вийшла у мене:

Конвертація jpeg в bmp і назад в delphi, melfis blog

Підключимо в модуль Usues модуль Jpeg.

І додамо в дві наші процедури:

Тепер напишемо ці дві процедури в нашому коді:

Створимо оброблювач події OnClick нашої кнопки Button1:

Можна запустити програму і спробувати виконати конвертацію файлів.

Партнерські посилання

Схожі статті