delphi截取图像：用TBitMap.canvas.CopyRect，保存后结果失真严重，

Question

delphi图像编辑

Answer 1

var
  bitCut: TBitmap;
  bitEdit: TBitmap;
  picOriginal: TPicture;
begin  picOriginal := TPicture.Create;
  picOriginal.LoadFromFile(fileName); //fileName为jpg文件路径  bitCut := TBitmap.Create;
  bitCut.Width := 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;

Answer 2

忘记了，高手，留个q呗，方便交流，主要是请教，俺是新菜鸟一枚，项目需要，从net转向delphi学习~~我的qq是4056355_45