需要帮助将 c# 中的 opencv 转换为 vb.net

Question

所以我似乎正在崩溃，试图找出这段代码并将其移植到 vb.net 等价物。坦率地说，我不想要字母的代码字母，我只想对 vb.net 中的图像做同样的处理。问题是我看过的所有地方，建议是使用包装器而不是直接使用 OpenCV。包装器是 emgucv.net

无论如何，我都会展示代码。

static void Decaptcha(string filePath)
{
    // load the file
    using (var src = new Mat(filePath))
    {
        using (var binaryMask = new Mat())
        {
            // lines color is different than text
            var linesColor = Scalar.FromRgb(0x70, 0x70, 0x70);

            // build a mask of lines
            Cv2.InRange(src, linesColor, linesColor, binaryMask);
            using (var masked = new Mat())
            {
                // build the corresponding image
                // dilate lines a bit because aliasing may have filtered borders too much during masking
                src.CopyTo(masked, binaryMask);
                int linesDilate = 3;
                using (var element = Cv2.GetStructuringElement(MorphShapes.Ellipse, new Size(linesDilate, linesDilate)))
                {
                    Cv2.Dilate(masked, masked, element);
                }

                // convert mask to grayscale
                Cv2.CvtColor(masked, masked, ColorConversionCodes.BGR2GRAY);
                using (var dst = src.EmptyClone())
                {
                    // repaint big lines
                    Cv2.Inpaint(src, masked, dst, 3, InpaintMethod.NS);

                    // destroy small lines
                    linesDilate = 2;
                    using (var element = Cv2.GetStructuringElement(MorphShapes.Ellipse, new Size(linesDilate, linesDilate)))
                    {
                        Cv2.Dilate(dst, dst, element);
                    }

                    Cv2.GaussianBlur(dst, dst, new Size(5, 5), 0);
                    using (var dst2 = dst.BilateralFilter(5, 75, 75))
                    {
                        // basically make it B&W
                        Cv2.CvtColor(dst2, dst2, ColorConversionCodes.BGR2GRAY);
                        Cv2.Threshold(dst2, dst2, 255, 255, ThresholdTypes.Otsu);

                        // save the file
                        dst2.SaveImage(Path.Combine(
                            Path.GetDirectoryName(filePath),
                            Path.GetFileNameWithoutExtension(filePath) + "_dst" + Path.GetExtension(filePath)));
                    }
                }
            }
        }
    }
}

Answer 1

这应该让你开始：

从这里开始：

https://www.codeproject.com/Questions/405164/Use-OpenCV-in-web-application

Private Shared Sub Decaptcha(ByVal filePath As String)
    Using src = New Mat(filePath)
        Using binaryMask = New Mat()
            Dim linesColor = Scalar.FromRgb(112, 112, 112)
            Cv2.InRange(src, linesColor, linesColor, binaryMask)
            Using masked = New Mat()
                src.CopyTo(masked, binaryMask)
                Dim linesDilate As Integer = 3
                Using element = Cv2.GetStructuringElement(MorphShapes.Ellipse, New Size(linesDilate, linesDilate))
                    Cv2.Dilate(masked, masked, element)
                End Using

                Cv2.CvtColor(masked, masked, ColorConversionCodes.BGR2GRAY)
                Using dst = src.EmptyClone()
                    Cv2.Inpaint(src, masked, dst, 3, InpaintMethod.NS)
                    linesDilate = 2
                    Using element = Cv2.GetStructuringElement(MorphShapes.Ellipse, New Size(linesDilate, linesDilate))
                        Cv2.Dilate(dst, dst, element)
                    End Using

                    Cv2.GaussianBlur(dst, dst, New Size(5, 5), 0)
                    Using dst2 = dst.BilateralFilter(5, 75, 75)
                        Cv2.CvtColor(dst2, dst2, ColorConversionCodes.BGR2GRAY)
                        Cv2.Threshold(dst2, dst2, 255, 255, ThresholdTypes.Otsu)
                        dst2.SaveImage(Path.Combine(Path.GetDirectoryName(filePath), Path.GetFileNameWithoutExtension(filePath) & "_dst" + Path.GetExtension(filePath)))
                    End Using
                End Using
            End Using
        End Using
    End Using
End Sub