Munka a képeket JPEG-Delphi, Delphi grafika, cikkek, programozás - programozás
Én nagyon gyakran megkérdezik, hogyan lehetséges, hogy helyezzen be egy képet JPEG formátumban a futtatható vagy hogyan lehet megtekinteni jpeg-képek a programban. Ebben a cikkben megpróbálom megmagyarázni, és azt mutatják, példákkal, hogyan kell dolgozni jpeg-képek.
Ezekre a célokra, két Delphi osztály TJpegImage és TJpegData. Fogjuk használni az első, aki le JPEG modul (meg kell csatlakozni használatra).
Onclick eseménykezelő az első gomb a következő formában:
eljárás TForm1.Button1Click (Sender: TObject);
kezdődik
ha opendialog1.execute majd
image1.Picture.LoadFromFile (opendialog1.filename);
végén;
Mellesleg ne felejtsük el beállítani egy szűrőt OpenDialog1, így csak akkor nyit egy kép * .bmp formátumban.
Térjünk most rá közvetlenül írásban a fő része a programnak, azaz a létrehozását jpeg-képek. Minden cselekvés fog kattintva a második gombot. Azt kell, hogy hozzon létre egy objektum típusú TJpegImage, magukkal a szükséges lépéseket, majd módszerrel tömörítése, csomag kép és csak menteni a képfájlt. Még be kell állítania a tulajdonságok TrackBar'a: Max ingatlan kell egyenlő 100 és a pozíció tulajdon egyenlő 100. Így a processzor van nyomva, a második gomb lehetnek:
Mint látható, ez nagyon egyszerű! Mindenesetre, hozok teljes körű alkalmazását kód:
felhasználások
Ablakok, üzenetek, SysUtils, osztályok, grafika, vezérlők, Forms, párbeszédablakok,
ComCtrls, ExtCtrls, StdCtrls, JPEG;
típus
TForm1 = osztály (TForm)
Button1: TButton;
Button2: TButton;
Image1: TImage;
TrackBar1: TTrackBar;
OpenDialog1: TOpenDialog;
CheckBox1: TCheckBox;
eljárás Button1Click (Sender: TObject);
eljárás Button2Click (Sender: TObject);
magán
nyilvános
végén;
var
Form1: TForm1;
eljárás TForm1.Button1Click (Sender: TObject);
kezdődik
ha opendialog1.execute majd
image1.Picture.LoadFromFile (opendialog1.filename);
végén;
Átalakítani a JPG BMP használatához szükséges eljárást DibNeeded.