Delphi. Графіка і Ігри. JPEG
Робота з JPEG зображенням в Delphi
Мене дуже часто запитують як можна вставити зображення в форматі Jpeg в виконуваний модуль або як можна переглядати jpeg-зображення в програмі. У цій статті я спробую розповісти і показати на прикладах як можна працювати з jpeg-зображеннями.
Для цих цілей в Дельфи передбачено два класи TJpegImage і TJpegData. Ми будемо використовувати перший, він описаний в модулі JPEG (його треба підключити в uses).
Обробник події OnClick для першої кнопки може мати такий вигляд:
До речі не забудьте налаштувати фільтр для OpenDialog1, щоб можна було відкривати тільки картинки в форматі * .bmp.
Тепер безпосередньо займемося написанням основної частини програми, тобто створення jpeg-зображення. Всі дії будемо проводити по кліку на другий кнопці. Нам необхідно буде створити об'єкт типу TJpegImage, провести з ним необхідні дії, а потім за допомогою методу Compress, упакувати зображення і залишається тільки зберегти зображення в файл. Ще необхідно налаштувати властивості TrackBar'a: властивість Max треба зробити рівним 100 і властивість Position рівним також 100. Отже, обробник натискання на другу кнопку може бути таким:
Як ви бачите все дуже просто! Про всяк випадок приведу повний код програми:
Для зворотного перетворення з Jpg в Bmp необхідно скористатися методом DibNeeded.
а чи можна якимось хитрим способом намалювати, наприклад квадрат, на TImage якщо в нього довантажуючи JPEG-малюнок?
Можна, але потрібно іспользивать не стандартні копаненти, наприклад DevExpress