浅谈如何利用PB实现图片透明叠加(改编)
来源:互联网 发布:iphone7 usb共享网络 编辑:程序博客网 时间:2024/05/16 15:00
作者:BALLOONMAN2002 2004年6月26日
本文拟结合POWERBUILDER语言,简述如何实现图片透明叠加效果,本例参考并改编了以前流传甚广的一篇VB文章,由于时间太久,源出处已无从查找,在此向原作者致意。程序效果图见:
http://blog.csdn.net/images/blog_csdn_net/balloonman2002/17312/r_PIC_OVERLAP.JPG
一、基本思路
程序的原理是先创建两个用于起屏蔽作用的模板DC(装载单色掩码位图,且这二者正好是相反的关系,通过NotSrcCopy实现),分别与源DC和目标DC进行与操作(SrcAnd),这时就能将源DC和目标DC中要透明的区域和不要透明的区域正好各自划分成黑色部分(即象素颜色为0)(具体为源DC中透明区域为黑色,目标DC中不要透明区域为黑色),最后将“操作后”的源DC和目标DC二者再进行“异或”(SrcXor)操作即可实现二者的透明叠加。这里面关键的就是利用0和无论其他什么值(0、1)进行“异或”操作的结果都仍是原值(即仍是0、1),这样就可以保证象素最后XOR的结果是保留了叠加的效果。类似的我们还可以1和其他任何值相“与”的结果仍是原值来实现同样的效果。
这里面关键是创建的起屏蔽作用的模板DC,其就是利用CREATEBITMAP、SETBKCOLOR、BITBLT结合创建的。详见下述代码。
二、具体实现
(一)基本工作
创建一个WINDOW窗口和三个PICTURE控件,分别用于显示源图片、目标图片、合成结果图片。
声明本地外部函数:
Function ulong CreateCompatibleDC(ulong hdc) LIBRARY "gdi32.dll"
Function ulong CreateBitmap(ulong nWidth,ulong nHeight,ulong nPlanes,ulong nBitCount,ulong lPBits) LIBRARY "gdi32.dll"
Function ulong CreateCompatibleBitmap(ulong hdc,ulong nWidth,ulong nHeight) LIBRARY "gdi32.dll"
Function ulong SelectObject(ulong hdc,ulong hObject) LIBRARY "gdi32.dll"
Function ulong SetBkColor(ulong hdc,ulong crColor) LIBRARY "gdi32.dll"
Function ulong BitBlt(ulong hDestDC,ulong x,ulong y,ulong nWidth,ulong nHeight,ulong hSrcDC,ulong xSrc,ulong ySrc,ulong dwRop) LIBRARY "gdi32.dll"
Function ulong DeleteObject(ulong hObject) LIBRARY "gdi32.dll"
Function ulong DeleteDC(ulong hdc) LIBRARY "gdi32.dll"
Function ulong GetDC(ulong hwnd) LIBRARY "user32.dll"
Function ulong ReleaseDC(ulong hwnd,ulong hdc) LIBRARY "user32.dll"
Function ulong LoadImage(ulong hInst,ref string lpsz,ulong un1,ulong n1,ulong n2,ulong un2) LIBRARY "user32.dll" ALIAS FOR "LoadImageA"
(二)具体代码
Long OrigColor
Long OrigMode
Long saveDC
Long maskDC
Long invDC
Long resultDC
Long hSaveBmp
Long hMaskBmp
Long hInvBmp
Long hResultBmp
Long hSavePrevBmp
Long hMaskPrevBmp
Long hInvPrevBmp
Long hDestPrevBmp
Long hsrcdc
Long hDestDC
Long nWidth,nHeight
Long transcolor
long ret,hBitmap
string ls_tmp
hsrcdc = CreateCompatibleDC(getdc(handle(p_1)))
hDestDC = getdc(handle(p_3))
nWidth = UnitsToPixels(p_1.width, XUnitsToPixels!)
nHeight = UnitsToPixels(p_1.height, YUnitsToPixels!)
//这里由于PB默认采用PB UNIT单位,而API处理度量单位采用象素单位因此需要进行单位转换
transcolor = 0
//此处设置要透明的RGB颜色,此处为黑色;
ls_tmp = "srce.bmp"
hBitmap = LoadImage(0, ls_tmp, 0, 0, 0, 16)
saveDC = CreateCompatibleDC(hDestDC)
maskDC = CreateCompatibleDC(hDestDC)
invDC = CreateCompatibleDC(hDestDC)
resultDC = CreateCompatibleDC(hDestDC)
hMaskBmp = CreateBitmap(nWidth, nHeight, 1, 1, 0)
hInvBmp = CreateBitmap(nWidth, nHeight, 1, 1, 0)
hResultBmp = CreateCompatibleBitmap(hDestDC, nWidth, nHeight)
hSaveBmp = CreateCompatibleBitmap(hDestDC, nWidth, nHeight)
ret = SelectObject(hsrcdc, hBitmap)
hSavePrevBmp = SelectObject(saveDC, hSaveBmp)
hMaskPrevBmp = SelectObject(maskDC, hMaskBmp)
hInvPrevBmp = SelectObject(invDC, hInvBmp)
hDestPrevBmp = SelectObject(resultDC, hResultBmp)
OrigColor = SetBkColor(hSrcDC, TransColor)
ret = BitBlt(maskDC, 0, 0, nWidth, nHeight, hSrcDC, 0, 0, 13369376 )
//注:13369376为BitBlt函数的参数-SRCCOPY,表示将源矩形区域直接拷贝到目标矩形区域
TransColor = SetBkColor(hSrcDC, OrigColor)
ret = BitBlt(invDC, 0, 0, nWidth, nHeight, maskDC, 0, 0, 3342344)
//注:3342244为BitBlt函数的参数-NOTSRCCOPY,表示将源矩形区域颜色取反后拷贝到目标矩形区域
ret = BitBlt(resultDC, 0, 0, nWidth, nHeight, hDestDC, 0, 0, 13369376)
ret = BitBlt(resultDC, 0, 0, nWidth, nHeight, maskDC, 0, 0, 8913094)
//注:8913094为BitBlt函数的参数-SRCAND,表示通过使用AND(与)操作符来将源和目标矩形区域内的颜色合并
ret = BitBlt(saveDC, 0, 0, nWidth, nHeight, hSrcDC, 0,0, 13369376)
ret = BitBlt(saveDC, 0, 0, nWidth, nHeight, invDC, 0, 0, 8913094)
ret = BitBlt(resultDC, 0, 0, nWidth, nHeight, saveDC, 0, 0, 6684742)
/注:6684742为BitBlt函数的参数-SRCINVERT,表示通过使用布尔型的XOR(异或)操作符将源和目标矩形区域的颜色合并
ret = BitBlt(hDestDC, 0, 0, nWidth, nHeight, resultDC, 0, 0, 13369376)
ret = SelectObject(saveDC, hSavePrevBmp)
ret = SelectObject(resultDC, hDestPrevBmp)
ret = SelectObject(maskDC, hMaskPrevBmp)
ret = SelectObject(invDC, hInvPrevBmp)
ret = DeleteObject(hSaveBmp)
ret = DeleteObject(hMaskBmp)
ret = DeleteObject(hInvBmp)
ret = DeleteObject(hResultBmp)
ret = DeleteDC(saveDC)
ret = DeleteDC(invDC)
ret = DeleteDC(maskDC)
ret = DeleteDC(resultDC)
ret = ReleaseDC(handle(p_1),hsrcdc)
ret = ReleaseDC(handle(p_3),hDestDC)
至此,图片透明叠加效果全部完成,效果图见:
http://blog.csdn.net/images/blog_csdn_net/balloonman2002/17312/r_PIC_OVERLAP.JPG
如需要进一步资料,请联系QQ:27855043,MSN:WEIYIN2001@MSN.COM
如有不当之处,敬盼您的指点。
- 浅谈如何利用PB实现图片透明叠加(改编)
- 浅谈如何利用PB实现图片透明叠加(改编)
- 浅谈如何利用PB实现动态添加菜单(原创)
- 浅谈如何利用PB实现动态添加菜单(原创)
- Overlay实现叠加透明图片
- 浅谈如何利用PB实现仿QQ自动显示/隐藏窗口(原创)
- 浅谈如何利用PB实现树型列表动态半透明提示(原创)
- 浅谈如何利用PB实现树型列表动态半透明提示(一)(原
- 浅谈如何利用PB实现树型列表动态半透明提示(二)(原
- 浅谈如何利用PB实现树型列表动态半透明提示(三)(原
- 浅谈如何利用PB实现树型列表动态半透明提示(四)(原
- 如何在PB中编写PING代码?(改编)
- 如何在PB中实现透明DATAWINDOW?
- 如何在PB中实现透明DATAWINDOW?
- 利用Camera实现图片叠加效果
- 如何在网页图片上面叠加透明的文字层
- C# 多个图片叠加,图片透明.
- 浅谈如何查阅PB利用OLE操作WORD、EXCEL的函数?(原创)
- SQL Server Yukon 中的XML 数据类型
- ASP.NET中Cookie编程的基础知识(4)
- 一些oracle的论坛和网站
- c#接简单数据库操作类
- SYBAES ASE 12.0 上一个横表转纵表的简单例子
- 浅谈如何利用PB实现图片透明叠加(改编)
- 与Visual Basic .NET一起使用.NET Framework(转)
- 学习笔记(3)--Using RAS SDK
- Csharp+Asp.net系列教程(一)
- Installing Oracle 10g on SuSE 9.1 professional
- HOW TO: Update a Database from a DataSet Object Us
- 查询锁定表中所有记录。
- ASP+全新接触(4) {转}
- 用Visual C#中轻松浏览数据库记录(转)