Работа с изображения в JPEG-Делфи, Delphi графики в, статии, програмиране - програмиране

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

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

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

процедура TForm1.Button1Click (Sender: TObject);
започвам
ако opendialog1.execute след това
image1.Picture.LoadFromFile (opendialog1.filename);
приключи;

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

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

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

употреби
Windows, Съобщения, SysUtils, Уроци, графика, контроли, форми, диалогови прозорци,
ComCtrls, ExtCtrls, StdCtrls, JPEG;

тип
TForm1 = клас (TForm)
Button1: TButton;
BUTTON2: TButton;
Image1: TImage;
TrackBar1: TTrackBar;
OpenDialog1: TOpenDialog;
CheckBox1: TCheckBox;
процедура Button1Click (Sender: TObject);
процедура Button2Click (Sender: TObject);
частен

обществен

приключи;

Var
Form1: TForm1;

процедура TForm1.Button1Click (Sender: TObject);
започвам
ако opendialog1.execute след това
image1.Picture.LoadFromFile (opendialog1.filename);
приключи;

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