我在Delphi中怎么复制不到图像

procedure   TForm1.FormCreate(Sender:   TObject);  
  var  
      rect1,rect2:Trect;  
  begin  
        rect1.Left:=image1.Left;  
        rect1.Top:=image1.Top;  
        rect1.Right:=rect1.Left+image1.Width;  
        rect1.Bottom:=rect1.Top+image1.Height;  
   
        rect2.Left:=image2.Left;  
        rect2.Top:=image2.Top;  
        rect2.Left:=rect2.Left+image2.Width;  
        rect2.Bottom:=rect2.Top+image2.Height;  
   
        image2.Canvas.CopyRect(rect2,image1.Canvas,rect1);  
  end;  
   
   
  在我电脑运行后image2就是纯白色的一片,那位大哥大姐可怜可怜我这小^^^^^^^^^  
  我家太穷没什么分!!!!

var  
      RectFrom,   RectTo:   TRect;  
  begin  
      RectFrom   :=Rect(0,0,768,304);  
      RectTo       :=Rect(0,0,768,304);  
      Image1.Canvas.BrushCopy(RectTo,   tempImage.Picture.Bitmap,   RectFrom,   clBlack);  
  end;

失踪的月亮  
        你好!你所说的方法是很好!  
        我想实现拷贝一个指定图像的指定区域填充另一个图像的指定区域,用你说的那个方法不行,你有没有办法实现啊!有就请告诉我,十分感谢你的热心帮助!!!!  
        你有没有关于图像编程的电子书资料什么的啊,要是有给我一份好吗?我的邮箱是:[e-mail]       QQ是:476636971  
 

你说的那个方法能实现,刚才说错了.不好意思

图像编程你可以看看opencv   ，intel的视觉库sourceforge上有下载，论坛你可以去阿须论坛

--------------------------
新闻：中国移动将简化资费套餐至10套以内
导航：博客园首页  知识库  新闻  招聘  社区  小组  博问  网摘  找找看