unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls,jpeg, ExtCtrls;type  TForm1 = class(TForm)    Button1: TButton;    imgEdit: TImage;    Button2: TButton;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);  private    {
     Private declarations }  public    {
     Public declarations }  end;var  Form1: TForm1;implementation{
    $R *.dfm}procedure TForm1.Button1Click(Sender: TObject); var  bitCut: TBitmap;  bitEdit: TBitmap;  picOriginal: TPicture;begin    picOriginal := TPicture.Create;  picOriginal.LoadFromFile(ExtractFilePath(ParamStr(0)) + '1.jpg'); //fileName为jpg文件路径  bitCut := TBitmap.Create;  bitCut.Width := 100;  //355  bitCut.Height := 441;  bitCut.Canvas.StretchDraw(Rect(0, 0, bitCut.Width, bitCut.Height), picOriginal.Graphic);  bitEdit := TBitmap.Create;  bitEdit.Width := picOriginal.Width;//  bitCut.Canvas.CopyRect(Rect(0, 0, bitCut.Width, bitCut.Height),//    bitEdit.Canvas, Rect(801, 149, 2595, 2359));  imgEdit.Picture.Bitmap.Assign(bitCut);  // 该释放的对象要释放  bitEdit.Free;  bitCut.Free;  picOriginal.Free;end;procedure TForm1.Button2Click(Sender: TObject);varMyJpeg: TJpegImage;Bmp,Bmp2:TBitmap;begin  MyJpeg:= TJpegImage.Create;  MyJpeg.LoadFromFile(ExtractFilePath(ParamStr(0)) + '2.jpg'); // 1600* 900  Bmp:=TBitmap.create;  Bmp.Width:=1024;  Bmp.Height:=768;     Bmp.Canvas.StretchDraw(Rect(0,0,Bmp.Width,Bmp.Height),MyJpeg);    Canvas.Draw(0,0,Bmp);  Canvas.Draw(100,100,MyJpeg);  Bmp.SaveToFile('2.bmp');  Bmp.Free;  MyJpeg.Free;  end;end.