【正文】 18）GetDC函數(shù)獲取指定窗口的設備場景Private Declare Function GetDC Lib user32 (ByVal hWnd As Long) As Long（19）GetDesktopWindow函數(shù)獲得代表整個屏幕的一個窗口（桌面窗口）句Private Declare Function GetDesktopWindow Lib user32 () As Long（20）ReleaseDC函數(shù)釋放由調(diào)用GetDC或GetWindowDC函數(shù)獲取的指定設備場景。（1）圖像的灰度處理圖像由彩色轉(zhuǎn)化為灰度的過程叫做灰度化，由于位圖為點陣圖像，它的每一個像素點有R、G、B三個分量組成，R、G、B的變化可以產(chǎn)生1600多萬種顏色，Delphi中灰度化有幾種方法可以實現(xiàn)：方法一：求出每一個像素點的R、G、B的平均值，然后把這個平均值賦給該像素點的R、G、B三個分量。（2）圖像的二值化 圖像的二值化的具體辦法是：通過設定閾值（Threshold），把灰度圖像變換成僅用兩個值（0或1）來分別表示的圖像目標和圖像背景的二值圖像，其中目標取值為1，背景值取值為0。全局閾值是對整個圖像采用一個閾值進行劃分，例如固定閾值法二值化、判斷分析法二值化、基于灰度差直方圖的閾值法等。局部閾值是將圖像分成一些子塊，對于每一子塊選定一個閾值。（3）圖像對比度圖像對比度是指圖像上兩點問信號的差異。在Delphi程序設計中，一個簡化的方法是：區(qū)間調(diào)節(jié)即首先設定一個閾值，通常是128；然后判斷像素點的R，G，B值，凡是大于128的，增加一個值，小于128的，減少一個值。那么到底新圖中的左上角點對應原圖中的哪一點呢？將左上角點的坐標（0，0）代入逆變換，得到x0=tx；y0=ty；所以新圖中的（0，0）點的顏色和原圖中（tx，ty）的一樣。（6）圖像鏡像所謂的鏡像顯示，就是好像一幅圖像放在鏡頭里面，形成兩幅絕對對稱的圖像，具體操作時具有水平鏡向和垂直鏡像之分，這其中包括兩幅圖像的顯示過程，即正面圖像和反面圖像，正面圖像的顯示方法非常簡單，關鍵之處是反面圖像的顯示過程，這其中涉及圖像的變形操作；實現(xiàn)圖像變形的一種簡單方法是重新安排像素位置，比如左面和右面的像素條一一對換，即可得到水平方向的反面圖像，同樣通過上下像素條的對換則可得到垂直方向的反面圖像。（9）顏色空間轉(zhuǎn)換對于任何3個單位化到[0,1]范圍內(nèi)得R、G、B值，其對應的HSL模型中的H、S、L可由下面的計算： 公式（10）HSL轉(zhuǎn)換RGB，要先把S、L單位化，R、G、B也在[0,1]之間。圖1611 模糊邊緣帶來的影響圖像銳化（Image Sharpening）是一種使圖像具有的信息讓人們易于觀察的圖像質(zhì)量改善方法，從數(shù)學角度上講就是對圖像進行微分化處理。如果將其應用在圖像上，可使圖像的輪廓清晰。卷積可以看成是加權求和的過程，卷積時使用一個很小的矩陣來表示，矩陣的維數(shù)為奇數(shù)，該矩陣體現(xiàn)在程序中就是模板概念，區(qū)域中的每個像素分別與模板中相應的元素相乘，相乘之和即為區(qū)域中心像素新值，例如一個33的區(qū)域A和模板P卷積后，區(qū)域A的中心像素A5像素值表示為：其中， 不同的模板可以得到不同的效果，一般所用模板采用33矩陣，在采用模板操作時必須解決兩個問題，即邊界點問題，一般可以忽略第一列和最后一列像素的操作，或者直接進行邊界像素的拷貝，還有一個問題即是越界問題，必須保證中心像素點的各分量在0～255范圍。此外在印刷彩色復制過程中為了保證諸如膚色、絲綢質(zhì)感之類的復制及藝術再現(xiàn)需要，亦需要圖像平滑、柔和、降低銳度。主要有鄰域平均法，低通濾波法，和多圖像濾波法等，本節(jié)主要介紹鄰域平均法。圖像平滑的模板大致有以下幾個：，（12）中值濾波中值濾波是把數(shù)字圖像中的一點的值用該點的一個領域的各個點的值的中值代替，中值的定義如下：一組數(shù)假如排序如下：為數(shù)為數(shù)y稱為的中值，加入一個序列（10，20，30，40，50，60，70）則中值為40。（13）Hough變換Hough變換用來在圖像中查找直線。為什么會這樣呢？仔細看看那個模板就明白了，它的意思是將右鄰點的灰度值減左鄰點的灰度值作為該點的灰度值。同理梯度為45度方向模板，可以檢測出135度方向的邊沿。與和 相比，sobel算子對于像素的位置的影響做了加權，因此效果更好。它把我們在第3講中介紹的高斯平滑濾波器和拉普拉斯銳化濾波器結(jié)合了起來，先平滑掉噪聲，再進行邊沿檢測，所以效果會更好。 實例演示本實例演示將在介紹實例實現(xiàn)時介紹實例的運行。因為本系統(tǒng)功能非常強大，因此很多功能都是集成在其他的類模塊、基本模塊中。DIB的含義就是設備無關的位圖。—創(chuàng)建DIB空間 m_hDC = CreateCompatibleDC(0) If (m_hDC 0) Then 39?！獎?chuàng)建成功 Create = (m_hDIB 0)End FunctionCreate函數(shù)用于創(chuàng)建一個設備無關的位圖該函數(shù)是通過CreateCompatibleDC 和CreateDIBSection函數(shù)來實現(xiàn)的。代碼省略（3）CreateFromStdPicture函數(shù)，該函數(shù)根據(jù)源圖像創(chuàng)建一個新圖像；Public Function CreateFromStdPicture(Picture As StdPicture, Pal As cDIBPal, Dither As cDIBDither) As Long Dim tBI As Bitmap Dim lhDC As Long Dim lhOldBmp As Long Dim nColors As Integer Dim tBIH As BITMAPINFOHEADER Dim aData() As Byte If (Not Picture Is Nothing) Then 39?！d入源圖像數(shù)據(jù) Call BitBlt(m_hDC, 0, 0, , , lhDC, 0, 0, SRCCOPY) 39?！獎h除臨時設備描述表 Call SelectObject(lhDC, lhOldBmp) Call DeleteDC(lhDC) CreateFromStdPicture = IIf( = 8, , 24) End If End If End If End IfEnd Function（4）CopyToClipboard函數(shù)，該函數(shù)將圖像復制到剪貼板中；Public Sub CopyToClipboard() Dim dsk_hWnd As Long Dim dsk_hDC As Long Dim clp_hDC As Long Dim clp_hObj As Long Dim clp_hOldObj As Long If (m_hDIB 0) Then If (OpenClipboard(0) 0) Then 39。釋放設備描述表 Call ReleaseDC(dsk_hWnd, dsk_hDC) End If End IfEnd Sub（5）GetBestFitInfo函數(shù)，該函數(shù)根據(jù)窗口的大小顯示圖像39。本系統(tǒng)實現(xiàn)了大多數(shù)常用的濾鏡效果。代碼省略，詳細代碼請參見光盤 Blue濾鏡的效果如圖1614所示。代碼省略，詳細代碼請參見光盤 （4）Diffuse濾鏡39。代碼省略，詳細代碼請參見光盤 （8）Noise濾鏡 39。代碼省略，詳細代碼請參見光盤 （12）ReplaceHS濾鏡39。代碼省略，詳細代碼請參見光盤 （16）Sharpen濾鏡39。代碼省略，詳細代碼請參見光盤 本系統(tǒng)還有其他大量濾鏡，希望讀者參照本書源代碼進行學習。（1）Save_BMP函數(shù)，該函數(shù)用于將圖像數(shù)據(jù)保存成BMP文件格式；Public Sub Save_BMP(ByVal sFilename As String, DIB As cDIB, Pal As cDIBPal, Dither As cDIBDither, ByVal BPP As Byte) Dim hFile As Integer Dim tBFH As BITMAPFILEHEADER 39。創(chuàng)建BMP文件頭 With tBFH .bfType = amp。 Header If (BPP = 8) Then 39。 RGB based (Get RGB bits) Call GetDIBits(, , 0, , aData(0, 0), tBIH, DIB_RGB_COLORS) End Select 39。8．mBrowseFolder模塊mBrowseFolder類主要用于瀏覽各種圖像文件、圖像材質(zhì)文件。顏色選擇對話框如圖1615所示。11．mGDIpEx模塊mGDIpEx模塊為圖形設備接口的擴展，普通的GDI設備接口只能打開BMP圖像，為了能夠打開JPG、TIFF以及PNG等其他格式的圖形，必須使用該類中定義的若干函數(shù)。—輸入條件: RGB 參數(shù)在[0,1]范圍內(nèi) Max = pvMaximum(rR, rG, rB) Min = pvMinimum(rR, rG, rB) L = (Max + Min) / 2 39。—計算色度 delta = Max Min If (rR = Max) Then H = (rG rB) / delta ElseIf (rG = Max) Then H = 2 + (rB rR) / delta ElseIf (rB = Max) Then H = 4 + (rR rG) / delta End If End IfEnd Sub（2）HSLtoRGB函數(shù)，該函數(shù)將HSL轉(zhuǎn)化成RGB。代碼省略，詳細代碼請參見光盤 （2）GetINI函數(shù)39。15．mSettings模塊mSettings模塊用于讀寫注冊表信息。（1）HookWheel函數(shù)Public Sub HookWheel() 39。放大 Case Else Call (1) 39。其中“Crop”表示剪切當前被選擇的圖像區(qū)域、“Copy”表示復制被選擇的區(qū)域，而“Remove Frame”則表示取消選取?！獮楸贿x擇的圖像創(chuàng)建臨時DIB Call (x2 x1, y2 y1) Call (, x1, y1) 39?！@取坐標 Call (x1, y1, x2, y2) 39。Crop Mode”可以使得當前圖像處于裁減模式，可以用鼠標直接在圖像上畫出螞蟻線，然后進行剪切或者復制。18．cInfo控件ucInfo控件用于顯示當前處理圖像的信息，如顯示當前圖像的顯示比例、當前圖像的路徑、當前圖像的大小。該類中使用了大量的API函數(shù)來進行圖像處理進程的管理。該類中也使用了很多的API函數(shù)。為了實現(xiàn)預覽功能，本系統(tǒng)實現(xiàn)定義了一個預覽窗體，窗體的名稱為fDialogEx。然后調(diào)用GetFileName來調(diào)用fDialogEx對話框?qū)嵗齭Ret = GetFileName(m_LastPath, Supported files|*.bmp。*. tif|Bitmap files (*.bmp)|*.bmp|GIF files (*.gif)|*.gif|JPEG files (*.jpg)|*. jpg|PNG files (*.png)|*.png|TIFF files (*.tif)|*.tif, 0, Open, True, fDlg)通例，在圖像另存的時候，也會使用到該預覽對話框，如果保存成JPG格式，會讓用戶選擇保存的質(zhì)量，如圖1621所示。選擇材質(zhì)的對話框名稱為fTexturize。 fTexturize窗體的代碼省略，請讀者參考光盤詳細代碼。fResize窗體的代碼省略，請讀者參考光盤詳細代碼。24．打印圖像的窗體在主窗體中，單擊菜單【File224。25．實現(xiàn)圖像全景的窗體 在主界面中，通過菜單“View224。圖1626 圖像全景視圖通過移動上圖中的紅色方框（因為書本為黑白打印，因此可能是灰色方框），就可以快速的查看到指定的圖像內(nèi)容。該窗體代碼省略。Filter Browser”可以顯示出該對話框，界面如圖1627所示。由于本系統(tǒng)比較龐大，而且有一定的難度，讀者需要配合本書、光盤源代碼以及微軟提供的MSDN幫助，才能夠完全掌握本系統(tǒng)的精華內(nèi)