Conversia jpeg la bmp și înapoi la delphi, blogul melfis

Astăzi vom scrie un program pentru conversia fișierelor JPEG în BMP și invers. În primul rând, să vedem ce este JPEG. JPEG (denumit în mod corect "jeep" Joint Photographic Experts Group, denumit organizație-dezvoltator) este unul dintre formatele grafice populare folosite pentru a stoca imagini foto și imagini similare. Fișierele care conțin date JPEG au, de obicei, extensii .jpeg. JFIF. jpg. JPG sau .JPE. Totuși, dintre ele .jpg este cea mai populară extensie pe toate platformele. Tipul MIME este imagine / jpeg. Algoritmul JPEG este cel mai potrivit pentru comprimarea fotografiilor și a imaginilor care conțin scene realiste cu tranziții ușoare de luminozitate și culoare. Cel mai răspândit JPEG a fost fotografia digitală și pentru stocarea și transferul imaginilor utilizând Internetul.
Și BMP. Formatul BMP (Imagine bitmap) pentru stocarea imaginilor bitmap. Cu formatul BMP, funcționează un număr mare de programe, deoarece suportul său este integrat în sistemele de operare Windows și OS / 2. Fișierele BMP pot avea extensii .bmp. dib și .rle. În plus, datele din acest format sunt incluse în fișierele de resurse binare RES și în fișierele PE. Adâncimea de culoare în acest format poate fi 1, 2, 4, 8, 16, 24, 32, 48 biți per pixel, dimensiunile maxime ale imaginii fiind 65535 × 65535 pixeli.
Creați un nou proiect de Formulare și adăugați următoarele elemente în formularul nostru:

OpenDialog
Cu aceasta, vom selecta fișierul pentru conversie.

SaveDialog
În consecință, salvați fișierul convertit.

RadioGroup
În proprietatea Items, adăugați două linii "JPEG To BMP" și "BMP To JPEG". Nimic altceva nu va fi necesar de la aceasta, cu excepția indicării către operatorul IF ce fel de procedură trebuie efectuată.

LabeledEdit.
Două bucăți. Unul din proprietatea EditLabel-> Caption va scrie "Fișierul sursă", iar celălalt "Fișier final".

Pentru LabeledEdit1, scrieți următorul cod în procesatorul de evenimente OnClick:

Pentru OnClick Labeled2, apelați dialogul de salvare:

Și adăugați un buton Buton. Când faceți clic pe acesta, conversia are loc. Dar mai târziu despre managerul său. Iată formularul pe care l-am primit:

Conversia jpeg la bmp și înapoi la delphi, blogul melfis

Conectați modulul Usues Jpeg.

Și adăugați două dintre procedurile noastre:

Acum scrieți aceste două proceduri în codul nostru:

Creați un handler de evenimente OnClick pentru butonul nostru Button1:

Puteți rula programul și încercați să convertiți fișierele.

Link-uri de afiliere

Articole similare