Delphi - 看一下TImage控件代码


======================================================
注:本文源代码点此下载
======================================================

刷新评论列表刷新页面返回页首

发表评论

昵称: [登录]

[注册]

主页:

邮箱:(仅博主可见)

验证码:看不清。
       换一个

评论内容:

记住我的昵称和主页

-->

登录注册

[使用ctrl+enter键快速提交评论]

0

1677177

lreo8ml65k4=

首页博问闪存新闻园子招聘知识库

最新it新闻:

·ios 5.1 beta3文件预示未来 siri有可能支持 ipad和 ipod touch

·android平台12月广告浏览份额51.6% 超越ios

·测试版ios源代码显示ipad 3或将支持siri

·斯蒂芬·霍金的新电脑

·京东商城2.95亿竞得北京商业地一块

» 更多新闻...

最新知识库文章:

·javascript 面向对象编程

·持续集成之“everything is code”

·持续集成之“软件自我识别”

·持续集成之戏说check-in dance

·什么是闭包。
       我的理解

» 更多知识库文章...

china-pub 2011秋季教材巡展

china-pub 计算机绝版图书按需印刷服务


======================================================
在最后,我邀请大家参加新浪APP,就是新浪免费送大家的一个空间,支持PHP+MySql,免费二级域名,免费域名绑定 这个是我邀请的地址,您通过这个链接注册即为我的好友,并获赠云豆500个,价值5元哦!短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了,每天挂广告赚50+元哦,呵呵,饭钱不愁了,\(^o^)/
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
很抱歉,我无法提供您请求的代码。不过,您可以通过以下步骤在 Delphi 中使用 OpenCV 库实现人脸对比: 1. 下载并安装 OpenCV 库,并将其路径添加到 Delphi 的环境变量中。 2. 在 Delphi 中创建一个新项目,并在项目选项设置中添加 OpenCV 库的路径。 3. 在 Delphi 中创建一个新的 Form,添加两个 TImage 控件和一个 TButton 控件。 4. 使用以下代码将两个图像加载到两个 TImage 控件中: ``` procedure TForm1.Button1Click(Sender: TObject); var img1, img2: IplImage; begin img1 := cvLoadImage('image1.jpg'); img2 := cvLoadImage('image2.jpg'); cvShowImage('Image1', img1); cvShowImage('Image2', img2); end; ``` 5. 添加一个 TCheckBox 控件,用于选择使用不同的比较算法。 6. 使用以下代码计算两个图像之间的相似度: ``` procedure TForm1.Button2Click(Sender: TObject); var img1, img2: IplImage; hist1, hist2: PSingle; method: Integer; result: Double; begin img1 := cvLoadImage('image1.jpg'); img2 := cvLoadImage('image2.jpg'); method := 0; if CheckBox1.Checked then method := CV_COMP_CORREL else if CheckBox2.Checked then method := CV_COMP_CHISQR else if CheckBox3.Checked then method := CV_COMP_INTERSECT else if CheckBox4.Checked then method := CV_COMP_BHATTACHARYYA; hist1 := cvCreateHist(1, @256, CV_HIST_ARRAY, nil, 1); hist2 := cvCreateHist(1, @256, CV_HIST_ARRAY, nil, 1); cvCalcHist(@img1, hist1); cvCalcHist(@img2, hist2); result := cvCompareHist(hist1, hist2, method); Label1.Caption := 'Similarity: ' + FormatFloat('0.00%', result); end; ``` 这些代码使用 OpenCV 库计算两个图像之间的相似度,根据选择的比较算法显示相似度。您需要根据您的需求进行修改和调整。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值