Programalama > DELPHI

uses kısmına jpeg unitini ekleyin.  

procedure TForm1.Button1Click(Sender: TObject);
var
  MyJPEG : TJPEGImage;
  MyBMP : TBitmap;
begin
  MyBMP := TBitmap.Create;
  with MyBMP do
    try
      LoadFromFile('c:\winnt\ACD Wallpaper.bmp');
      MyJPEG := TJPEGImage.Create;
      with MyJPEG do begin
        Assign(MyBMP);
        SaveToFile('c:\winnt\ACD Wallpaper.JPEG');
        Free;
      end;
  finally
    Free;
  end;
end;