【正文】 該窗體代碼省略。fResize窗體的代碼省略，請(qǐng)讀者參考光盤(pán)詳細(xì)代碼。然后調(diào)用GetFileName來(lái)調(diào)用fDialogEx對(duì)話(huà)框?qū)嵗齭Ret = GetFileName(m_LastPath, Supported files|*.bmp。18．cInfo控件ucInfo控件用于顯示當(dāng)前處理圖像的信息，如顯示當(dāng)前圖像的顯示比例、當(dāng)前圖像的路徑、當(dāng)前圖像的大小。其中“Crop”表示剪切當(dāng)前被選擇的圖像區(qū)域、“Copy”表示復(fù)制被選擇的區(qū)域，而“Remove Frame”則表示取消選取。代碼省略，詳細(xì)代碼請(qǐng)參見(jiàn)光盤(pán) （2）GetINI函數(shù)39。顏色選擇對(duì)話(huà)框如圖1615所示。創(chuàng)建BMP文件頭 With tBFH .bfType = amp。代碼省略，詳細(xì)代碼請(qǐng)參見(jiàn)光盤(pán) （12）ReplaceHS濾鏡39。本系統(tǒng)實(shí)現(xiàn)了大多數(shù)常用的濾鏡效果。代碼省略（3）CreateFromStdPicture函數(shù)，該函數(shù)根據(jù)源圖像創(chuàng)建一個(gè)新圖像；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。因?yàn)楸鞠到y(tǒng)功能非常強(qiáng)大，因此很多功能都是集成在其他的類(lèi)模塊、基本模塊中。同理梯度為45度方向模板，可以檢測(cè)出135度方向的邊沿。主要有鄰域平均法，低通濾波法，和多圖像濾波法等，本節(jié)主要介紹鄰域平均法。圖1611 模糊邊緣帶來(lái)的影響圖像銳化（Image Sharpening）是一種使圖像具有的信息讓人們易于觀察的圖像質(zhì)量改善方法，從數(shù)學(xué)角度上講就是對(duì)圖像進(jìn)行微分化處理。在Delphi程序設(shè)計(jì)中，一個(gè)簡(jiǎn)化的方法是：區(qū)間調(diào)節(jié)即首先設(shè)定一個(gè)閾值，通常是128；然后判斷像素點(diǎn)的R，G，B值，凡是大于128的，增加一個(gè)值，小于128的，減少一個(gè)值。（2）圖像的二值化 圖像的二值化的具體辦法是：通過(guò)設(shè)定閾值（Threshold），把灰度圖像變換成僅用兩個(gè)值（0或1）來(lái)分別表示的圖像目標(biāo)和圖像背景的二值圖像，其中目標(biāo)取值為1，背景值取值為0。源和目標(biāo)DC相互間必須兼容。2．API的應(yīng)用由于本系統(tǒng)是進(jìn)行圖像處理，眾所周知，數(shù)字圖像一般都比較大，如果使用Visual Basic自帶的一些圖像控件來(lái)進(jìn)行各種圖像處理，則會(huì)極大的影響速度。開(kāi)發(fā)自定義控件，很多語(yǔ)言都可以實(shí)現(xiàn)，如Visual C ++、Visual Basic、Delphi等，在Visual Basic中開(kāi)發(fā)控件，非常簡(jiǎn)單方便，下面簡(jiǎn)單介紹自定義開(kāi)發(fā)組件的過(guò)程。載入圖像后就可以對(duì)圖片進(jìn)行相應(yīng)的操作，點(diǎn)擊“編輯”欄中的“放大”命令按鈕，“操作區(qū)域”中的圖片行對(duì)于“對(duì)比區(qū)域”將被放大，你可以拉動(dòng)水平或垂直滾動(dòng)條來(lái)瀏覽放大后的圖像（如圖164所示）和縮小后的圖像（如圖165所示）。此系統(tǒng)能夠?qū)崿F(xiàn)圖片的瀏覽、放大和縮小、旋轉(zhuǎn)、灰暗化，以及在圖片上畫(huà)出能夠設(shè)置顏色和線條寬度的線。圖像綜合處理中的畫(huà)圖如圖162所示。 本節(jié)介紹的系統(tǒng)將提供以下功能：（1）能夠顯示各種文件類(lèi)型的圖片；（2）能夠保存成多種文件格式的圖片；（3）能夠?qū)崿F(xiàn)圖像漫游， 瀏覽大圖片的時(shí)候，可以通過(guò)鼠標(biāo)拖動(dòng)圖片或者通過(guò)鍵盤(pán)方向鍵來(lái)移動(dòng)大圖片；（4）能夠選取圖像；（5）能夠進(jìn)行圖像的復(fù)制粘貼；（6）能夠放大、縮小圖像、查看原始圖像大小、以及自適應(yīng)顯示圖像即隨著窗體的大小將圖像全部顯示在窗體中；（7）能夠撤銷(xiāo)或者重復(fù)上一步的操作；（8）當(dāng)前編輯圖像的狀態(tài)顯示；（9）能夠進(jìn)行多種顏色之間的轉(zhuǎn)化，如黑白圖、16色灰度圖、256色灰度圖等；（10）能夠改變圖像的大?。唬?1）能夠旋轉(zhuǎn)圖像；（12）能夠鏡像圖像；（13）常用的圖像參數(shù)調(diào)整，如飽和度調(diào)整、亮度調(diào)整、 對(duì)比度調(diào)整；（14）能夠選取圖像中任一像素的顏色值；（14）常用的各種圖像處理技術(shù)，如Greys、Negative、Sepia、Colorize、Replace HS、Replace L、Shift、Blur、Soften、Sharpen、Diffuse、Pixelaze、Despeckle、Contour、Emboss、Outline、Relieve、Noise、Scanlines、Dilate、Erode、Texturize等；（15）各種常見(jiàn)的圖像特效效果，如百葉窗效果、馬賽克效果、翻頁(yè)效果等；（16）快速查看放大圖像的局部位置； 編程原理本系統(tǒng)文件很多，設(shè)計(jì)了很多的編程技術(shù)和原理，下面就重點(diǎn)介紹其中的一些比較重要的編程技術(shù)和原理。省略代碼End Function因此如果在其他工程中引用了該控件，則可以同使用其他控件一樣使用這些定義的屬性和方法，如下所示：ucInfo. TextFile=hellomyText= ucInfo. TextFile(LoadResPicture(BITMAP_TBQUICK, vbResBitmap), amp。Private Declare Function SelectObject Lib gdi32 (ByVal hDC As Long, ByVal hObject As Long) As Long（8）DeleteObject函數(shù)刪除GDI對(duì)象，比如畫(huà)筆、刷子、字體、位圖、區(qū)域以及調(diào)色板等等。方法二：求出每一個(gè)像素點(diǎn)R、G、B三個(gè)分量的最大值，然后把這個(gè)最大值賦給原來(lái)像素點(diǎn)的R、G、B三個(gè)分量。在一幅灰階圖像上，信號(hào)的差異是通過(guò)灰度（或亮度）的明暗來(lái)體現(xiàn)的，高對(duì)比度意思是圖像上兩個(gè)不同觀察點(diǎn)一個(gè)非常暗，另一個(gè)非常亮，而低對(duì)比度表示兩點(diǎn)的相對(duì)亮度差別較小，當(dāng)在提高對(duì)比度時(shí)，圖像中的暗色調(diào)變得更暗，亮色區(qū)域變得更亮，而人眼在辯認(rèn)一件事物時(shí)，更多地是從色彩的差錯(cuò)對(duì)比中得出結(jié)論，因此更大的對(duì)比度會(huì)帶來(lái)更為醒目的效果。當(dāng)H在[00,1200]時(shí)：當(dāng)H在[1200,2400]時(shí)： 當(dāng)H在[2400,3600]之間時(shí)：（10）圖像銳化在圖像系統(tǒng)中由于攝影系統(tǒng)的聚焦不良和信號(hào)傳輸系統(tǒng)信號(hào)頻帶過(guò)窄，造成圖像中目標(biāo)輪廓的模糊是必然的。因此這種消除圖像的噪聲及滿(mǎn)足彩色復(fù)制特殊需要的方法，在圖像處理中稱(chēng)為圖像平滑。在灰度相近的區(qū)域內(nèi)，這么做的結(jié)果使得該點(diǎn)的灰度值接近于0，而在邊界附近，灰度值有明顯的跳變，這么做的結(jié)果使得該點(diǎn)的灰度值很大，這樣就出現(xiàn)了上面的結(jié)果。 實(shí)例實(shí)現(xiàn)本系統(tǒng)功能比較強(qiáng)大，因此包含了大量的文件，下面列出一些重點(diǎn)的文件：（1），該文件為系統(tǒng)的主界面，由菜單和工具欄組成 ；（2），該文件為圖像打印設(shè)置窗體；（3），該文件為圖像材質(zhì)編輯窗體；（4），該文件為圖像縮放設(shè)置窗體；（6），該文件為圖像屬性顯示窗體；（7），該文件為放大圖形時(shí)，快速查看目標(biāo)圖像的窗體；（8），該文件用于對(duì)文件進(jìn)行旋轉(zhuǎn)設(shè)置、以及進(jìn)行水平和垂直鏡像；（9），該文件用于查看圖像應(yīng)用各種濾鏡后的效果；（10），該文件為打開(kāi)圖片時(shí)進(jìn)行圖片預(yù)覽；（11），該文件為類(lèi)模塊，用于進(jìn)行圖像的基本操作；（12），該文件為類(lèi)模塊，用于對(duì)圖像顏色進(jìn)行各種操作；（13），該文件為類(lèi)模塊，用于對(duì)圖像進(jìn)行各種濾鏡操作；（14），該文件為類(lèi)模塊，用于對(duì)圖像的模板進(jìn)行處理； （15），該文件為類(lèi)模塊，用于對(duì)將當(dāng)前的圖像保存成其他文件格式；（16），該文件為類(lèi)模塊，用于操作內(nèi)存中的圖像數(shù)據(jù)；（17），該文件為基本模塊，用于進(jìn)行系統(tǒng)的各種設(shè)置；（18），該文件為基本模塊，用于對(duì)鼠標(biāo)的滾輪進(jìn)行處理；（19），該文件為基本模塊，用于對(duì)文件進(jìn)行處理；（20），該文件為基本模塊，用于讀寫(xiě)INI文件；（21），該文件為基本模塊，用于進(jìn)行HSL、RGB等顏色的轉(zhuǎn)換；（22），該文件為基本模塊，用于聲明各種GDI函數(shù)和變量；（23），該文件為基本模塊，用于創(chuàng)建打開(kāi)圖像文件對(duì)話(huà)框，并且能夠進(jìn)行圖像預(yù)覽；（24），該文件為基本模塊，用于選擇圖像中的文件；（25），該文件為基本模塊，用于選擇文件夾；（26），該文件為自定義控件，用于作為圖像的畫(huà)布；（27），該文件為自定義控件，用于顯示圖像處理的各種信息；（28），該文件為自定義控件，用于顯示圖像處理的進(jìn)度；（29），該文件為自定義控件，用于顯示系統(tǒng)的工具欄。通常在創(chuàng)建一個(gè)新的位圖、或者對(duì)一個(gè)圖像進(jìn)行旋轉(zhuǎn)、鏡像等處理時(shí)，都需要?jiǎng)?chuàng)建DIB位圖。代碼省略3．cDIBDither類(lèi)模塊cDIBDither類(lèi)主要進(jìn)行圖像顏色的處理，如將圖像進(jìn)行二值化處理、轉(zhuǎn)化成灰度圖調(diào)色板、轉(zhuǎn)換成彩色調(diào)色板等。代碼省略，詳細(xì)代碼請(qǐng)參見(jiàn)光盤(pán) （9）Outline濾鏡39。 14 bytes Dim tBIH As BITMAPINFOHEADER 39。該模塊的代碼省略，請(qǐng)讀者參考光盤(pán)詳細(xì)代碼。Public Sub HSLtoRGB(ByVal H As Single, ByVal S As Single, ByVal L As Single, R As Byte, G As Byte, B As Byte)39?？s小 End Select End If End With End Select pvWindowProc = CallWindowProc(m_OldWindowProc, hWnd, wMsg, wParam, lParam)End Function17．ucCanvas控件ucCanvas為自定義開(kāi)發(fā)控件，用來(lái)作為顯示和處理圖像的容器。如圖1616所示。其設(shè)計(jì)界面如圖1620所示。22．更改圖像大小的窗體在主窗體中，通過(guò)菜單“Edit224。隨著圖像的進(jìn)一步放大，紅色的方框會(huì)越來(lái)越小。該窗體名稱(chēng)為fFilter，通過(guò)菜單“Adjust224。fProperties窗體的代碼省略，請(qǐng)讀者參考光盤(pán)詳細(xì)代碼。*.png。圖1617 ucInfo控件19．ucProgress控件ucProgress控件用于顯示正在處理圖像的進(jìn)程?！@得選取的坐標(biāo) Call (x1, y1, x2, y2) 39。該模塊的代碼省略，請(qǐng)讀者參考光盤(pán)詳細(xì)代碼。帶預(yù)覽功能的文件選擇對(duì)話(huà)框界面請(qǐng)參考21小節(jié)。—?jiǎng)?chuàng)建保存圖像數(shù)據(jù)數(shù)組 ReDim aBI(1 To 40 + IIf(BPP = 8, 4 * (2 ^ BPP), 0)) Call CopyMemory(aBI(1), tBIH, 40) 39。代碼省略，詳細(xì)代碼請(qǐng)參見(jiàn)光盤(pán) （15）Scanlines濾鏡39。（1）Blur濾鏡39。創(chuàng)建DIB lhDC = CreateCompatibleDC(0) If (lhDC 0) Then lhOldBmp = SelectObject(lhDC, ) 39。在該類(lèi)中利用了大量的API函數(shù)，在編程原理中已經(jīng)有介紹，這里就不再介紹了。有兩個(gè)，一個(gè)是檢測(cè)水平邊沿的即，一個(gè)是檢測(cè)垂直平邊沿的即。一般的鄰域有四點(diǎn)鄰域和八點(diǎn)鄰域，八點(diǎn)鄰域效果要好于四點(diǎn)鄰域，和銳化一樣，采用模板來(lái)編制程序。微分運(yùn)算可用來(lái)求信號(hào)的變化率，因而具有加強(qiáng)高頻分量的作用。很顯然，該點(diǎn)是原圖中的某一點(diǎn)經(jīng)過(guò)平移后得到的，這兩點(diǎn)的顏色肯定是一樣的，所以只要知道了原圖那點(diǎn)的RGB值即可。閾值的選擇主要可以分為兩類(lèi)：全局閾值和局部閾值。這個(gè)函數(shù)會(huì)在設(shè)備場(chǎng)景中定義一個(gè)目標(biāo)矩形，并在位圖中定義一個(gè)源圖像。這是一個(gè)非常有用的函數(shù)，通過(guò)它我們可以用DIB替代DDB。在圖169中，選擇“AciveX 控件”，然后單擊【打開(kāi)】按鈕，創(chuàng)建后界面如圖1610所示。如果想旋轉(zhuǎn)更大的角度只需要多點(diǎn)擊幾次就可以實(shí)現(xiàn)，不過(guò)旋轉(zhuǎn)的角度要是90的整數(shù)倍。這個(gè)方法的功能是復(fù)制圖像，其基本語(yǔ)法如下： picture, x1, y1, width1, height1, x2, y2,_ width2, height2, opcode 這里的Picture來(lái)自Form等的Picture屬性，而x1，y1是目標(biāo)區(qū)域的左上角坐標(biāo)，而x2，y2是源區(qū)域的左上角坐標(biāo)，width1和height1是目標(biāo)區(qū)域的寬度和高度，而width2和height2是源區(qū)域的寬度和高度，如果width1=width2且height1=height2，那么就是等比例復(fù)制，只需要選擇適當(dāng)?shù)膮?shù)就可以實(shí)現(xiàn)圖片的縮小與放大。在程序的主界面中，有兩個(gè)PictureBox，左面的為“操作區(qū)域”，右面的為“對(duì)比區(qū)域”，“對(duì)比區(qū)域”用來(lái)與在“操作區(qū)域”載入圖片進(jìn)行放大、縮小等處理時(shí)的對(duì)比。 綜合圖像處理系統(tǒng)本節(jié)將介紹一個(gè)功能強(qiáng)大的數(shù)字圖像處理系統(tǒng)。以下兩個(gè)函數(shù)定義了屬性TextFile39。一次選入設(shè)備場(chǎng)景的只能有一個(gè)對(duì)象。對(duì)象使用的所有系統(tǒng)資源都會(huì)被釋放Private Declare Functio