Convert- Delphi de Bmp den Jpg Formatına Çevirme İşlemi

Delphi ile bmp uzantılı bir resmi ;jpg formatına çevirmek için ;
formunuza iki adet button ,bir adet label, bir adet image1 ,birer adet opendialog ve savedialog yerleştirin.
Code bölümüne gelerek Uses bölümüne JPEG; ekleyin.Var altında değişkenimizi tanımlayın

"  Bitmap: TBitmap; "

button1 in click eventina 

" 
 if OpenDialog1.Execute then
  begin
    Bitmap:=TBitmap.Create;
    Bitmap.LoadFromFile(OpenDialog1.FileName);
    Image1.Picture.LoadFromFile(OpenDialog1.FileName);
  end; "

ekleyin. 

Button2 in eventına 

"

var
  JPEGImage: TJPEGImage;
begin
  try
    JPEGImage:=TJPEGImage.Create;
    JPEGImage.CompressionQuality:=80;
    JPEGImage.Assign(Bitmap);
    if SaveDialog1.Execute then
      JPEGImage.SaveToFile(SaveDialog1.FileName);
    Label1.Caption:='Convertation finished';
  finally
    Bitmap.Free;
    JPEGImage.Free;
  end; 

"
 

Açıklamalı Code aşağıdaki gibidir. 

 uses JPEG; //jpeg kütüphanesi eklenir
...
var
  Bitmap: TBitmap; //Bitmap değişkeni tanımlanır
...
procedure TForm1.Button1Click(Sender: TObject); //button 1 eventı
begin
  if OpenDialog1.Execute then //opendialog çalıştırılır
  begin
    Bitmap:=TBitmap.Create; //bitmap değişkenine bitmap üretilir
    Bitmap.LoadFromFile(OpenDialog1.FileName); //open dialogtan seçine bitmap alınır
    Image1.Picture.LoadFromFile(OpenDialog1.FileName); //image1 e alınan resim konur
  end;
end;

procedure TForm1.Button2Click(Sender: TObject); //button2 eventi
var
  JPEGImage: TJPEGImage; //jpegimage değişkenı tanıtılır
begin
  try //deneme bloğu
    JPEGImage:=TJPEGImage.Create; //jpeg image üretilir
    JPEGImage.CompressionQuality:=80; //sıkıştırma kalitesi %80 ayarlanır
    JPEGImage.Assign(Bitmap); //bitmap değişkeni jpeg aktarılır
    if SaveDialog1.Execute then //save dialog çalıştırışır
      JPEGImage.SaveToFile(SaveDialog1.FileName); //seçilen dosya ismine jpeg değişkeni aktarılır.(Yani dosya saklanır)
    Label1.Caption:='Dönüştürme işlemi yapıldı'; //label1 de işlemin başarılı olduğu yazılır
  finally
    Bitmap.Free;
    JPEGImage.Free;
  end;
end;