EmguCV学习笔记 VB.Net 5.4 图像修复

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

EmguCV是一个基于OpenCV的开源免费的跨平台计算机视觉库,它向C#和VB.NET开发者提供了OpenCV库的大部分功能。

教程VB.net版本请访问：EmguCV学习笔记 VB.Net 目录-CSDN博客

教程C#版本请访问：EmguCV学习笔记 C# 目录-CSDN博客

笔者的博客网址：https://blog.csdn.net/uruseibest

教程配套文件及相关说明以及如何获得pdf教程和代码，请移步：EmguCV学习笔记

学习VB.Net知识，请移步： vb.net 教程目录_vb中如何用datagridview-CSDN博客

学习C#知识，请移步：C# 教程目录_c#教程目录-CSDN博客

5.4 图像修复

CvInvoke类的Inpaint方法用于图像修复，可以通过填充缺失的图像区域来恢复图像的完整性。该方法通常用于去除图像中的噪点、划痕或遮挡物等。该方法声明如下：

Public Shared Sub Inpaint (

src As IInputArray,

mask As IInputArray,

dst As IOutputArray,

inpaintRadius As Double,

flags As InpaintType

)

参数说明：

src：输入图像，可以是单通道或多通道图像。
mask：修复区域的掩码图像，与输入图像具有相同的尺寸，掩码图像中的非零像素表示需要修复的区域。
dst：输出图像，与输入图像具有相同的尺寸和深度。
inpaintRadius：修复半径，用于指定修复算法的范围。
flags：修复方法，InpaintType枚举，包括两个成员：
1. NS：基于Navier-Stokes算法修复图像。
2. Telea：基于Alexandru Telea算法修复图像。

【代码位置：frmChapter5】Button12_Click

'图像修复

Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click

'需要修复的图像

Dim m As New Mat("C:\learnEmgucv\lenarepair.jpg", CvEnum.ImreadModes.Color)

ImageBox1.Image = m

'设置掩码图像

Dim mMask As New Mat

CvInvoke.CvtColor(m, mMask, ColorConversion.Bgr2Gray)

'二值化，其中非0的地方表示需要修复的地方

CvInvoke.Threshold(mMask, mMask, 235, 255, ThresholdType.Binary)

ImageBox2.Image = mMask

'进行膨胀，扩大一定修复范围

Dim kernel As New Mat

kernel = CvInvoke.GetStructuringElement(ElementShape.Rectangle, New Drawing.Size(5, 5), New Point(-1, -1))

CvInvoke.Dilate(mMask, mMask, kernel, New Point(-1, -1), 1, BorderType.Constant, New MCvScalar(255, 0, 0))

'创建输出图像

Dim mout As New Mat

'执行图像修复

CvInvoke.Inpaint(m, mMask, mout, 5, InpaintType.Telea)

ImageBox3.Image = mout

End Sub

运行后如下图所示：

图5-13 修复后的图像

【代码位置：frmChapter5】Button13_Click

'图像修复

'Inpaint似乎对分散、小面积、且标记的噪点更好修复

Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click

'需要修复红色标记的图片

Dim msrc As New Mat("c:\learnEmgucv\w1.jpg", ImreadModes.Color)

'这里使用了一张对原图需要修复位置进行白色标注的图片作为模板

Dim msrcmask As New Mat("c:\learnEmgucv\w2.jpg", ImreadModes.Color)

'将白色标记部分提取为掩码图像

Dim mgray As New Mat

CvInvoke.CvtColor(msrcmask, mgray, ColorConversion.Bgr2Gray)

Dim mMask As New Mat

CvInvoke.Threshold(mgray, mMask, 240, 255, ThresholdType.Binary)

Dim kernel1 As New Mat

kernel1 = CvInvoke.GetStructuringElement(ElementShape.Rectangle, New Drawing.Size(5, 5), New Point(-1, -1))

CvInvoke.Dilate(mMask, mMask, kernel1, New Point(-1, -1), 1, BorderType.Constant, New MCvScalar(255, 0, 0))

Dim mout As New Mat

CvInvoke.Inpaint(msrc, mMask, mout, 5, InpaintType.NS)

ImageBox1.Image = msrc