• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号

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

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
我在Delphi中怎么复制不到图像 Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiMultimedia/html/delphi_20060929084043280.html
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;

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

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

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


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Delphi 进制转换——十六进制 to 十进制浮点数 - 张伦发布时间:2022-07-18
下一篇:
聚类分析matlab发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap