Parsi Coders

کد:
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

Amin_Mansouri