【请教】关于图片自动剪切的问题~~请高手帮忙~~

解决方案 »

  1.   


    procedure TForm1.Button1Click(Sender: TObject);
    begin
      Image2.Canvas.CopyRect(
        Rect(0,0,Image2.Width,Image2.Height),
        Image1.Canvas,
        Rect(
          0,
          0,
          Image2.Width,
          Image2.Height));
    end;procedure TForm1.Button2Click(Sender: TObject);
    var
      ARect: TRect;
    begin
      ARect.Left:= 10;
      ARect.Top:= 10;
      ARect.Right:= 300;
      ARect.Bottom:= 30;
      Image2.Canvas.CopyRect(ARect,Image1.Canvas,ARect);
    end;
    上面的Image1是源图,你自己设Rect吧,截出的来savetofile就可以保存了
      

  2.   

    关键就是这个rect丫。。我需要自动检测出这个rect区域。。就是要分析他们的边缘~~我首先做了二值化处理，所以只有黑白两种颜色~~我的设想是只有分析出黑白边沿就可以了。。但是就是不知道怎么实现~
      

  3.   

    很简单的，判断像素点，来个遍历，得到RECT区域，然后剪切一下就可以了。目前我已经实现了裁剪PNG格式的图片，就更虽说BMP和JPG这些更简单了。
      

  4.   

    帮楼主顶一下，关键就是自动检测出这个rect区域，绘制出矩形框。(最好用Matlab程序）