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("大自在 781770213@qq.com", 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
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/402592.html
標籤：其他