Работа с JPEG изображения в Делфи - Delphi източници Често задавани въпроси

Аз съм много често питат как е възможно да вмъкнете изображение в Jpeg формат в изпълнимия файл или как да Разглеждане на JPEG изображения в програмата. В тази статия ще се опитам да обясня и да се покаже с примери как да работят с JPEG изображения.

За тази цел има два Delphi клас TJpegImage и TJpegData. Ние ще използваме първия, той е описан като модул JPEG (тя трябва да се свърже с приложения).

OnClick събитие манипулатор за първия бутон може да има следния вид:

Между другото, не забравяйте да зададете филтър за OpenDialog1, така че може да се отвори само един образ в * .bmp формат.

Нека сега се обърнем директно писане на основната част на програмата, т.е. създаването на JPEG изображения. Всички действия ще произвеждат, като кликнете върху втория бутон. Ние ще трябва да се създаде обект от тип TJpegImage, носят със себе си необходимите действия, а след това с помощта на метод Компресиране, пакет изображението и може да спаси само файла с изображението. И все пак трябва да конфигурирате свойствата TrackBar'a: Макс имот трябва да се правят равен на 100 и имуществото на позиция като равен 100. По този начин, на процесора е натиснат втория бутон могат да бъдат:

Както можете да видите, че е много проста! Във всеки случай, аз донесе пълния код приложение:

За да се превърне от Jpg Bmp необходимо да се използва метод DibNeeded.