一、FreeImage简介:
FreeImage是一个C语言图像处理库,它免费、开源、跨平台,且简单易用。我使用的版本是FreeImage 3.15.3。
二、FreeImage使用注意事件:
1.VB6使用时要把FreeImage.dll和MFreeImage.bas(在Wrapper\VB6\mfreeimage目录)拷到开发目录下。三、图像二值化:
2. 加载图片:建议使用FreeImage_LoadEx(图片文件名),它对FreeImage_Load进行了封装,可以打开任意支持的图片文件。
3. 在图像处理完成后,要用FreeImage_UnloadEx(图像句柄)释放分配的内存。
调用FreeImage_Threshold(图像句柄,阈值)对图像进行二值化处理。
该函数对灰度图(256色)直接处理和16位色(24位色,32位色)会先在dll内部转换成灰度图,然后再进行二值化处理
四、示例:
建立一个工作目录,我的是C:\Tools\ImageProcess\FreeImage\Wrapper\VB6\test
在目录下随便放一个bmp图片文件,更名为 "test.bmp"。
在目录下建一个VB6标准EXE工程,并保存。
1. 删除Form1
2. 在工程中添加MFreeImage.bas
3. 添加空模块,加入以下代码
运行程序,就可以在工作目录下看到经过二值化处理的图片了。
- Option Explicit
- Public Sub main()
- Dim dib As Long
- Dim dib2 As Long
- Dim szFile As String
- '' 打开测试文件
- szFile = "test.bmp"
- dib = FreeImage_LoadEx(szFile)
- If dib = 0 Then
- Debug.Print "Error file format: ",szFile
- Exit Sub
- End If
- '' 图像二值化,<37的设成0,≥37的设成1
- dib2 = FreeImage_Threshold(dib,37)
- '' 保存二值化后的图像
- Call FreeImage_Save(FIF_TIFF,dib2,"result.tif")
- '' 释放图像资源
- Call FreeImage_UnloadEx(dib2)
- Call FreeImage_UnloadEx(dib)
- End Sub