提取图片中的违法时间方到图片中去(100分)

  • 主题发起人 主题发起人 weilai2570019
  • 开始时间 开始时间
W

weilai2570019

Unregistered / Unconfirmed
GUEST, unregistred user!
我这里有一副车辆抓拍图片width:height768*928
即是:3福违法图片768*288
还有4张违法说明:768*16
=============
=============
图片1
=============
=============
图片2
============
============
图片3
============
============
现在要把这些违法说明性文字方到图片中去
用delphi如何去做清高手指教
 
现编的代码,不完整的地方请谅解,自己看看
Image1.picture.loadfromfile('c:/abc.bmp');
image1.canvas.drawtext(10, 10, '文字说明');
image1.picture.saveToFile('C:/abcabc.bmp');
 
定义一个BMP,将抓拍图加载到BMP中,然后用下面的函数将文字图片加载到Image中,计算好位置放上去就行了。用下面的函数:
StretchDIBits(aCanvas.Handle, Dest.Left, Dest.Top,
Dest.RIght - Dest.Left, Dest.Bottom - Dest.Top,
0, 0, biWidth, biHeight, Image, Info^, DIB_RGB_COLORS, SRCCOPY);
如果两图叠加用SRCCOPY,即文字图片的底色是保留的,
如果是透明用SRCAND,此时文字图片中的白色会被透明化掉。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部