添加2个edit，3个button

如图所示：

2.原图代码如下: 

1. var
   
       jpg:TJPEGImage;
   
       jUrl:string;
   
       bmp:TBitmap;
   
   begin
   
       try
   
        jUrl:=edt1.Text;
   
        bmp:=TBitmap.Create;
   
        bmp.Height:=200;
   
        bmp.Width:=200;
   
        jpg:=TJPEGImage.Create;
   
        jpg.LoadFromFile(jUrl);
   
        bmp.Canvas.StretchDraw(Rect(5,5,bmp.Width,bmp.Height),jpg);
   
        img1.Canvas.Draw(0,0,bmp);
   
       except
   
         bmp.Free;
   
        jpg.Free;
   
   end;

VAR

  jpg:TJPEGImage;

   bmp:TBitmap;

begin

  try

   bmp:=TBitmap.Create;

   jpg:=TJPEGImage.Create;

   jpg.LoadFromFile(edt2.Text);

   img1.Canvas.Draw(5,0,jpg);

  except

    jpg.Free;

    Exit;

  end;

注意事项