PbIdea功能系列之PowerBuilder高级图像处理功能

Posted 2022-01-29 lxbin2003

PbIdea功能系列之PowerBuilder高级图像处理功能

我们知道，PowerBuilder是CS桌面应用的开发利器，具方便、快捷、高效的特点。然而，PowerBuilder的特长在数据库方面，对于图像处理这块，功能几乎是一片空白，只有几个简单的图形形状，更谈不上图片处理与加工，甚至有些格式都不支持。

本文着重于介绍利用PbIdea扩展库，增强PB图片处理功能。

一、uo_image对象

uo_image对象着重于图片显示、转换、缩放等处理的一些基础功能，着重实现图片的工具性功能。

1、显示图片。uo_image本身是一个可视控件，直接拖放到窗口上，再使用打开图片功能即可以显示图片。支持的图片格式有：bmp,jpg,png,gif。例如：

uo_1.open(“test.bmp”)

参数可以是文件名，也可以是blob数据，数据可以是从数据库中取出，也可以是从网上下载等等:

Selectblob into :pic from … 然后 uo_1.open(pic)

httpclient.request(……)    然后 uo_1.open(httpclient.response.data)

均可以直接显示图片，不需要存为图片文件再显示。

对于一些下载通过base64编码的图片，可以直接打开显示,例如：

Ls_pic = “data:image/jpg;base64,/9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAIBAQ………..”

uo_1.open(ls_pic)

是不是感觉比PB自带的Picture控件强大了不少？

2、显示功能增强。我们显示图片文件到窗口的功能会了，支持的图片格式多，内容多。同时也支持一些增强功能。

增强一：uo_1. SetAlpha(180) 以 180/255的透明度显示。0为全透明，255为不透明。

 

增强二：使指定颜色变成透明。uo_3.SetMaskColor(RGB(255,255,255))，即让图片的白色背景变成透明颜色。

增强三：旋转图片角度。Uo_1. Rotate(15) ,即旋转15度。

 

增强四：基于上列一和三，实现渐变或者旋转动画显示效果。

增强五：支持动画gif播放

增强六：uo_1. Flip()，图片上下翻转

增强七：uo_1.Paint(…) ，将本控件的图片内容绘制到其他控件上去，本控件可以隐藏。可以由多个uo_image把图片绘制到同一个控件上，形成图片叠加效果，在使用带有透明效果png图片时，这个功能比较有用。比如下列这张图就是一个透明的蝴蝶被叠加到窗口背景上无缝对接。

3、图片处理功能。除了作为显示控件，uo_image 也可以直接做一些图片处理。在这些处理功能中，上面列出的大部分增强功能也都可以使用。同时还有额外功能。

uo_image img

img = create uo_image

img.open(…) //打开图片

img. GetSize(w,h) //获取图片宽度和高度

img. ReplaceColor(…)//实现颜色替换，有域值设置，比如张纸的背景有点脏点模糊，可以替换为纯白背景，或者其他颜色背景。如果存为png图片，也可以把背景替换为透明色，类似于PS的扣图。

Img.zoom(…) //图片缩放，可以指定大小尺寸进行缩放，也可以指定缩放比例进行缩放。

Img. Save(…) //另存为图片，格式由给定的图片名称的文件扩展名决定。

Open，然后再指定文件名Save，通常可以作为图片格式转换的通用方式。

4、二维码。二维码是现在比较常见的功能。Uo_image可以生成并显示二维码，也可以将生成的二维码存为图片文件。

uo_1.OpenQrCode("大自在 [e-mail]", 1, 3,RGB(0,0,0), RGB(255,255,255), "..\\demores\\images\\logo.png")

uo_1.save(…) 可另存为图片文件。

具体函数定义是：function boolean OpenBarCode(readonly string codeText,string barType, int nHeight,double scale,readonly string options) system library "PbIdea.dll" alias for "imageOpenBarCode"

5、条码。支持多种条码。其中也包括二维码。（文档https://www.zint.org.uk/manual）

//条码类型定义

CONSTANT int BARCODE_CODE11 = 1

CONSTANT int BARCODE_C25MATRIX = 2

CONSTANT int BARCODE_C25INTER = 3

CONSTANT int BARCODE_C25IATA = 4

CONSTANT int BARCODE_C25LOGIC = 6

CONSTANT int BARCODE_C25IND = 7

CONSTANT int BARCODE_CODE39 = 8

CONSTANT int BARCODE_EXCODE39 = 9

CONSTANT int BARCODE_EANX = 13

CONSTANT int BARCODE_EAN128 = 16

CONSTANT int BARCODE_CODABAR = 18

CONSTANT int BARCODE_CODE128 = 20

CONSTANT int BARCODE_DPLEIT = 21

CONSTANT int BARCODE_DPIDENT = 22

CONSTANT int BARCODE_CODE16K = 23

CONSTANT int BARCODE_CODE49 = 24

CONSTANT int BARCODE_CODE93 = 25

CONSTANT int BARCODE_FLAT = 28

CONSTANT int BARCODE_RSS14 = 29

CONSTANT int BARCODE_RSS_LTD = 30

CONSTANT int BARCODE_RSS_EXP = 31

CONSTANT int BARCODE_TELEPEN = 32

CONSTANT int BARCODE_UPCA = 34

CONSTANT int BARCODE_UPCE = 37

CONSTANT int BARCODE_POSTNET = 40

CONSTANT int BARCODE_MSI_PLESSEY = 47

CONSTANT int BARCODE_FIM = 49

CONSTANT int BARCODE_LOGMARS = 50

CONSTANT int BARCODE_PHARMA = 51

CONSTANT int BARCODE_PZN = 52

CONSTANT int BARCODE_PHARMA_TWO = 53

CONSTANT int BARCODE_PDF417 = 55

CONSTANT int BARCODE_PDF417TRUNC = 56

CONSTANT int BARCODE_MAXICODE = 57

CONSTANT int BARCODE_QRCODE = 58

CONSTANT int BARCODE_CODE128B = 60

CONSTANT int BARCODE_AUSPOST = 63

CONSTANT int BARCODE_AUSREPLY = 66

CONSTANT int BARCODE_AUSROUTE = 67

CONSTANT int BARCODE_AUSREDIRECT = 68

CONSTANT int BARCODE_ISBNX = 69

CONSTANT int BARCODE_RM4SCC = 70

CONSTANT int BARCODE_DATAMATRIX = 71

CONSTANT int BARCODE_EAN14 = 72

CONSTANT int BARCODE_CODABLOCKF = 74

CONSTANT int BARCODE_NVE18 = 75

CONSTANT int BARCODE_JAPANPOST = 76

CONSTANT int BARCODE_KOREAPOST = 77

CONSTANT int BARCODE_RSS14STACK = 79

CONSTANT int BARCODE_RSS14STACK_OMNI = 80

CONSTANT int BARCODE_RSS_EXPSTACK = 81

CONSTANT int BARCODE_PLANET = 82

CONSTANT int BARCODE_MICROPDF417 = 84

CONSTANT int BARCODE_ONECODE = 85

CONSTANT int BARCODE_PLESSEY = 86

CONSTANT int BARCODE_TELEPEN_NUM = 87

CONSTANT int BARCODE_ITF14 = 89

CONSTANT int BARCODE_KIX = 90

CONSTANT int BARCODE_AZTEC = 92

CONSTANT int BARCODE_DAFT = 93

CONSTANT int BARCODE_MICROQR = 97

CONSTANT int BARCODE_HIBC_128 = 98

CONSTANT int BARCODE_HIBC_39 = 99

CONSTANT int BARCODE_HIBC_DM = 102

CONSTANT int BARCODE_HIBC_QR = 104

CONSTANT int BARCODE_HIBC_PDF = 106

CONSTANT int BARCODE_HIBC_MICPDF = 108

CONSTANT int BARCODE_HIBC_BLOCKF = 110

CONSTANT int BARCODE_HIBC_AZTEC = 112

CONSTANT int BARCODE_AZRUNE = 128

CONSTANT int BARCODE_CODE32 = 129

CONSTANT int BARCODE_EANX_CC = 130

CONSTANT int BARCODE_EAN128_CC = 131

CONSTANT int BARCODE_RSS14_CC = 132

CONSTANT int BARCODE_RSS_LTD_CC = 133

CONSTANT int BARCODE_RSS_EXP_CC = 134

CONSTANT int BARCODE_UPCA_CC = 135

CONSTANT int BARCODE_UPCE_CC = 136

CONSTANT int BARCODE_RSS14STACK_CC = 137

CONSTANT int BARCODE_RSS14_OMNI_CC = 138

CONSTANT int BARCODE_RSS_EXPSTACK_CC = 139

CONSTANT int BARCODE_CHANNEL = 140

CONSTANT int BARCODE_CODEONE = 141

CONSTANT int BARCODE_GRIDMATRIX = 142

/*

条码参数说明：

bind      选项，添加绑定条

hidetext  选项，不显示文字

show_hrt  选项，删除人类可读文本

bold      选项，使用粗体文本

box       选项，在符号周围加一个方框

cymk      选项，在EPS符号中使用cmyk颜色

dotty     选项，多蒂用点代替方块来表示矩阵符号

dmre      选项，允许数据矩阵矩形扩展

esc       选项，处理输入数据中的转义字符

gs1       选项，将输入视为与gs1兼容的数据

small     选项，在图像中使用小文本

square    选项，平方力数据矩阵符号为平方

type   =  n ,条码类型数(默认为20 (=Code128))

bg     =  ffffff,指定背景色，十六进制方式，6个字符长， ,默认白色

fg     =  000000,指定前景色，十六进制方式，6个字符长， ,默认黑色

align  = left / right ，文本居左，居右，默认居中

border = n, 边框的宽度

cols   = n, 设置符号中的数据列数

rows   = n, 设置符号中的数据行数

dotsize = n ,点在dotty模式下的数量设置半径

eci     = n, 设置原始数据的eci模式

filetype = PNG/EPS/SVG/PNG/EPS/GIF/TXT，设置输出文件类型

height   = n ,设置高度

mode     = n,设置编码模式(Maxicode/组合)

output  = out.png ,文件发送输出到文件。(缺省为out.png)

primary = STRING Set结构化主消息(Maxicode/Composite)

secure  = NUMBER ,Set error correct level

scale   = n,缩放比例,默认为1

rotate  = 0/90/180/270,旋转角度,(PNG/BMP/PCX)

vers    = n,设置符号版本(二维码/Han Xin)

whitesp = n,维数倍数下空格的数量设置宽度

*/

function boolean OpenBarCode(readonly string codeText,string barType, int nHeight,double scale,readonly string options) system library "PbIdea.dll" alias for "imageOpenBarCode"

uo_barcode.OpenBarCode("12345678901234567890123456789012345678901234567890", “code128”, ai_height,1.0," hidetext ") 通过成不显示文本内容的128码

uo_barcode.save(…) 可另存为图片文件。

uo_json jsBar

jsBar = create uo_json

jsBar.set("width",180)

jsBar.set("height",24)

jsBar.set("text","1234567890123456789012345678901234567890")

jsBar.set("fontsize",48)

jsBar.set("type",20) //或"code128"

//jsBar.set("type",58) //或"qrcode"

//jsBar.set("vers",5)

//jsBar.set("secure",3)

jsBar.set("show_hrt",1)

jsBar.set("scale",1.0)

img.OpenBarCode(jsBar)

destroy jsBar

二、uo_painter对象

在开始本章节前，我们先闭上眼睛做一个瞑想：假如你是一位画师，你要准备画画了，你得有一些基本元素，首先你得有一大张纸（或者是空白墙壁），上面有底色，或者是有现成的底案图纹，然后你往上面安置你想到的各种图片元素（各种类型的图片），或者各种图形元素（圆、矩、文字等），绘制结束后，你可以把成果保存起来，成为一幅画或图片文件。具体到PC里面，你会想到，这不就是windows操作系统自带的“画图”工具吗？我们打开画图工具，可以拉伸图片大小、填底色、粘贴图片、放文字、放各种图形元素，最后我们还可以另存为各种格式的图片文件。

没错，uo_painter就是windows操作系统自带的“画图”工具一样神奇工具，由于是用程序实现这些功能，可以通过计算机强大计算功能实现更加复杂的功能。接下来，我们按照上面暝想的步骤来实现一些基本功能。本章介绍所函数，都是uo_painter的成员函数，需要先对uo_painter实例化才能使用，例如：

uo_painter p;

p = create uo_painter;

p. SetCanvas(this,”ue_paint”);

destroy p;

 

（一）先了解图形的基本元素

1、画板。画板可以是窗口，可以是HDC，可以是一张图，可以是内存的一块区域。

（1）对于窗口，绝大多数很好理解 ，就是把内容画到一个窗口上面，我们可以看得到显示效果。

（2）HDC是什么呢？这个东西有点难理解，微软文档里就这个名词，也没有很好的办法去翻译这个缩写。我们可以把它看作是一个指向硬件的绘图句柄，它可以根据窗口句柄创建一个指向屏幕或桌面的绘图句柄，它也可以是根据打印机创建的一个指向打印机的绘图句柄，也可以是指向绘图仪或其他什么硬件的绘图句柄。我们常用的就2个：屏幕和打印机。同一句绘图语句，当HDC指向屏的时候，会显示显示到窗口，指向指印机时，操作系统会把这些内容输出到打印机上。

（3）一张图，可以是内存的一块区域。图片在内存里加载的时候，其实它就是一块连续的内存区域。也就是我们可以创建一张空白图，或者使用一张现有的图，只不过这些图不显示 ，只是加载在内存里，然后在这个图上进行绘图。就象画家在纸上作画一样。

2、图片。我们知道图片有各种格式，常见的有bmp、jpg(jpeg)、png、gif等等。各种图片格式，只是图片保存时使用，当一张图片加载到内存里后，实际上都是bmp点阵图，使用一块内存区域保存。uo_painter里使用CacheImage/CacheImageBase64函数，对图片加载，缓存到内存里面，缓存后返回一个唯一ID号代表被缓存的这张图，后面需要用到这张图时，以这人ID作为图片参数传入即可。用完后可以使用RemoveImage函数把这张缓存的图片从内存里释放掉。那么为什么我们要缓存图片到内存里呢，完全可以需要时直接传递文件名，从硬盘读取的呀？是的，这想法也没错。但我们为了追求高效率，就得使用缓存方式。比如在一个窗口的存在周期里，使用一张图上作为绘制背景，每次刷新时如果都要从硬盘读文件，这将是一个非常低效率的事情，甚至导致背景绘制停滞或者闪烁，而缓存到内存，就非常高效。

3、背景、前景色与透明度。这些颜色为大家所熟知。除了背景色与前景色，还有一个透明度。当使用png图片的时候，自然这张图片就有一部分是透明，一部分不透明，当把它叠加在其他图片上时，透明部分就不会遮住底图相应部分。此外，还有整图透明度形成上图与下图你中有我、我中有你的那种朦胧感。绘图函数中经常会需要指定背景色、前景色和透明度。

4、形状元素。

（1）点，是线的基础。多点可以连成线。函数：AddPoint

（2）直线，多直线可以连成固定形状。函数：DrawLines

（3）弧线，DrawCurve和DrawBezier。

（4）多边形，函数：DrawPolygon

（5）矩形条状，函数DrawBar

（6）圆角矩形，函数DrawRoundRect

（7）菱形，函数DrawRhombus

（8）箭头，函数DrawArrow 

（9）椭圆，函数：DrawEllipse

（10）扇形，其实也是圆形，函数DrawPie

5、文字。绘制文本，可以有前景色、背景色、字体名称、字号等各种属性，可以计算指定字体属性前提下的相应文本所占位置大小等等。函数DrawText、CalcTextSize、InstallFontPlus

（二）准备一张“白纸”，为所有的绘图做准备。

1、在窗口或控件上绘制。在窗口或控件上绘制内容，并不象我们想像的那么容易，下面我简称UI绘制。UI绘制由操作系统负责调度，什么时候需要绘制，什么时候不需要绘制，完全由操作系统管理、控制，所以，我们只能响应操作系统的绘制请求，做出正确绘制，才是有效的，否则绘制无效，看不到结果。

UI有背景擦除时，操作系统会发送WM_ERASEBKGND消息，有刷新绘制需求时，会发送WM_PAINT消息。作为控件绘图，我们默认忽略WM_ERASEBKGND消息，只响应WM_PAINT消息就可以了。具体到PB里面，有个pbm_paint消息对应于WM_PAINT。但是，这个消息与其他消息不同，这个消息只能响应一次，PB内部因绘制需要已响应过一次，我们再去自定义事件响应这个消息是无效的。因此，uo_painter提供了SetCanvas函数响应绘制消息。

步骤一、为窗口或可视自定义控件声明一个实例变量

uo_painter p;

步骤二、open事件，或者的Constructor事件里对控件实例化，并且将当前UI对象变成可响应消息画板：

p = create uo_painter;

p. SetCanvas(this,”ue_paint”);

步骤三、close事件，或者的Destructor事件里销毁实例，释放资源

destroy p;

步骤四、然后再给这个窗口或控件添加一个事件，命名为ue_paint，给它一个 ulong类型的参数，命名为hdc。

经过以上4个步骤，当前窗口或控件就具备在ue_paint事件里响应绘制动作，并且显示绘制效果即可。我们可以直接使用 hdc 参数：

p.BeginPaint(hdc,RGB(255,255,255))  //以白色背景开始绘制

………. //接下来可以完成自己的绘制任务

由于Uo_painter采用了双缓存绘图机制，这时候绘制的内容实际上是在内存里创建的一个虚拟屏幕上，我们要将内容显示到实际hdc上，最后还必要须：

p. EndPaint() //将绘制内容刷新到物理屏幕上，形成可视效果

2、在现在图片上绘制。前面我们说过缓存存图，在这个基础上进行图片绘制。可以在一张图片上添加水印、文字等。

Long li_image

Li_image = p.CacheImage(“back.bmp”) //加载一张图开缓存

p. BeginPaintImage(li_image) //以上面加载的图为底图，开始绘制

………. //接下来可以完成自己的绘制任务

p. SaveMemoryImage (“new.bmp”) //将内容另存为图，释放资源

或者

Blob pic

Pic = p.GetMemoryImage(“jpg”) //以JPG格式返回BLOB数据，自己另行使用。

p.RemoveImage(li_image) //原背景不用了要释放掉

3、开启空白图片进行绘制。可以开启一张底色为指定颜色的空白图片，然后在这个基础上绘制，就和系统的画图工具一样的功能。

p. BeginPaintImage(400,600,RGB(255,255,255)) //开启一张宽400高600背景色为白色的空白图

………. //接下来可以完成自己的绘制任务

或者

Blob pic

Pic = p.GetMemoryImage(“jpg”) //以JPG格式返回BLOB数据，自己另行使用。

（三）绘图命令

具体绘图命令，就不一一介绍了，可以直接打开 uo_painter对象，切换到Local External Functions看函数声明，都有具体中文注释。

有一点请注意，图片处理同时支持文件操作和内存BLOB操作，不是必须要存为文件或者从文件加载。甚至直接支持打开图片base64编码，内部自动进行解码还原为图片数据。

（四）一些常用功能示例操作

1、图片格式转换

uo_painter p; p = create uo_painter

long image

image = p.CacheImage(“test.bmp”) //加载原图

p.SaveImage(image,”test.png”) //另存为png格式

p.SaveImage(image,”test.jpg”) //另存为jpg格式

p.RemoveImage(image)

destroy p

2、图片缩放

uo_painter p; p = create uo_painter

long image1,image2

image1 = p. CacheImageThumb (“test.bmp”,200,0.5) //加载图片，透明度为200，宽和高缩小50%

image2 = p. CacheImageThumb (“test.bmp”,200,1.5) //加载图片，透明度为200，宽和高放大150%

p.SaveImage(image1,”test.png”)

p.SaveImage(image,2”test.jpg”)

p.RemoveImage(image1)

p.RemoveImage(image2)

destroy p

3、图片拼接

将a.bmp和b.bmp按左右方式进行拼接，生成新图

uo_painter p; p = create uo_painter

long a,b

int width,height,wa,ha,wb,hb

a = p. CacheImage ("a.bmp") //加载图片

b = p. CacheImage ("b.bmp") //加载图片

p.GetImageSize(a,wa,ha) //获取A图片大小

p.GetImageSize(b,wb,hb) //获取图片大小

width = wa + wb //计算合并后的宽度

height = ha

if ha < hb then height = hb //以最大高度为新图片的高度

p.BeginPaintImage(width,height,RGB(255,255,255)) //开启一张新图

p.DrawImage(0,(height - ha)/2,wa,ha,a,0) //把A图片绘制到指定位置

p.DrawImage(wa,(height - hb)/2,wb,hb,b,0) //把B图片绘制到指定位置

p.SaveMemoryImage ("c.png") //合并后的图片另存为c.png

p.RemoveImage(a)

p.RemoveImage(b)

destroy p

合并后效果如下：

4、图片拼接2

Uo_painter也提供了现成拼接函数

uo_painter p; p = create uo_painter

p. MergeImageInit(8, 0, true, 2, 1, RGB(255,255,255), “back.jpg”, 180, false,”c.png”)//边距为8，边距有效，2行，2列，背景为白色，背景图片back.jpg透明度为180，不进行缩放，拼完后存为c.png

p. MergeImageAdd(1, 1, 1, 1, “a.bmp”,255,0)  //添加b.bmp放到第1行第1列，只占1行1列范围

p. MergeImageAdd(2, 1, 1, 1, “hd.png”,255,0) //添加b.bmp放到第2行第1列，只占1行1列范围

p. MergeImage()//完成合并

destroy p

效果如下图

5、图片上写字和加水印

 

uo_painter p; p = create uo_painter

long image,water,dzz

int width,height

image = p.cacheImage("tmp/f.jpg")

water = p.cacheImage("tmp/hd.png")

dzz   = p.cacheImage("tmp/dzz.png")

p.GetImageSize(image,width,height)

p.BeginPaintImage(image)

p.DrawImage(200,236,64,64,water,0)

p.DrawImage(8,height - 84,84,84,dzz,0)

p.DrawText(0,8,width,32,"漂亮美女人人爱","黑体",28,RGB(250,250,250),1)

p.DrawText(0,height - 38,width,32,string(datetime(today(),now()),"yyyy-mm-dd hh:mm_ss"),"黑体",28,RGB(255,0,0),2)

p.SaveMemoryImage ("tmp/new.png")

p.removeImage(image)

destroy p

效果图如下：

6、更多其他功能，请加参考 PbIdea DEMO 之uo_painter部分。

                                              大自在 于2022年元旦假日

                                            QQ:781770213 QQ群:624409252