سورس کد تبدیل bmp به jpg (دلفی)

کد:
unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Classes, Graphics, Controls,

  Forms, Dialogs, StdCtrls, ExtCtrls;



type

  TForm1 = class(TForm)

    Button1: TButton;

    Image1: TImage;

    procedure Button1Click(Sender: TObject);

  end;



var

  Form1: TForm1;



implementation



{$R *.DFM}



uses JPEG;



procedure TForm1.Button1Click(Sender: TObject);

var

  JPEG: TJPEGImage;

  Bitmap: TBitmap;

begin

  JPEG := TJPEGImage.Create;

  Bitmap := TBitmap.Create;

  try

    // change this to load a suitable bitmap file

    Bitmap.LoadFromFile('C:\MyDir\MyFile.bmp');

    JPEG.Assign(Bitmap);

    Image1.Picture.Assign(JPEG);

  finally

    JPEG.Free;

    Bitmap.Free;

  end;

end;



end