图片批量叠加文字的问题

jzg272727 2016-07-25 11:47:03
在文件夹下有一批图片,图片是在不同的地点拍摄的,拍摄地点在文件名上,文件名为:01-市场-2016-07-21-09-54-06、02-超市-2016-07-21-09-55-33....10-电影院-2016-07-21-10-01-06等,我怎么才能批量的把图片文件名内的拍摄地址提取出来叠加到图片上,感觉挺难的,请帮帮忙!
...全文
624 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
jjpweb 2016-07-25
  • 打赏
  • 举报
回复
filelistbox1.Directory:=你的图片目录 for i:=0 to filelistbox1.items.count do begin image1 加载图片 FileListBox1.Items.Strings[i] ;文件名 根据文件名分割出地点 image1.canvas.textOut(0,0,'地点'); image1导出图片 end;
lyhoo163 2016-07-25
  • 打赏
  • 举报
回复
还需要用到Tbmp等等.....
lyhoo163 2016-07-25
  • 打赏
  • 举报
回复
1、Image显示图像 2、读入文件名相关字符; 3、Image的Canvas上,outText加入字符。

16,748

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧