C# で作ったOPENCV汎用DLLに、VBAからアクセス

Question

#VBAで3つのファイルパスを文字列引数として渡したい

C#で作ったCOMライブラリを呼び出しています。

引数を渡す部分で、エラーになります。

C#から呼び出したTEST.EXEでは問題なく、受け渡しができていました。
VBAで実施すると下記のエラーが出ます。

実行時エラー　'-2147467261(80004003)'
値をNullすることができません。パラメータ名：path

#課題

文字列３つを参照渡しして、戻り値のx,y座標をPOINT構造体で受け取る予定です。
DLLのコールの仕方は初めてなのでよくわかりません。

何か参考になるソースがあれば、教えて頂きたく思います。

Option Explicit

Public Type Point
x As Integer
y As Integer
End Type

        
Sub test()
        Dim file1, file2, file3
        Dim shot
        Dim x
        
            str file1 = "C:\Users\mm05162\Desktop\after.bmp"
            str file2 = "C:\Users\mm05162\Desktop\before.bmp"
            str file3 = "C:\Users\mm05162\Desktop\drop.bmp"
            Set shot = New ScreenShot
            x = shot.Imagediff(file1, file2, file3)
            
End Sub

using System;
using System.Collections.Generic;
using System.Drawing;
using System.IO;
using System.Linq;
using System.Runtime.InteropServices;
using OpenCvSharp;
using Point = OpenCvSharp.Point;

namespace ClassLibraryForVBA
{
    [Guid(ScreenShot.ClassId)]
    public class ScreenShot
    {
        public const string ClassId = "74EA63A0-15B2-42F4-9603-A5033599C4D6";
        private OpenCvSharp.Point[][] contours;

        public System.Drawing.Point Imagediff(string a, string b, string c)
        {
            string file1 = Path.GetFullPath(a);
            string file2 = Path.GetFullPath(b);
            string file3 = Path.GetFullPath(c);
            using (Mat image1 = Cv2.ImRead(file1))
            using (Mat image2 = Cv2.ImRead(file2))
            using (Mat image_drop = Cv2.ImRead(file3))
            using (Mat diff = new Mat(new OpenCvSharp.Size(image1.Cols, image1.Rows), MatType.CV_8UC3))

                try
                {
                    Cv2.Absdiff(image1, image2, diff);
                    var result = new Mat();
                    Mat mask = Mat.Zeros(image_drop.Size(), MatType.CV_8UC3);
                    Cv2.MatchTemplate(diff, image_drop, result, TemplateMatchModes.CCoeffNormed);
                    Cv2.Threshold(result, result, 0.8, 1.0, ThresholdTypes.Binary);
                    Cv2.MinMaxLoc(result, out OpenCvSharp.Point minPoint, out OpenCvSharp.Point maxPoint);
                    Rect rect = new Rect(maxPoint.X, maxPoint.Y, image_drop.Width, image_drop.Height);
                    Cv2.Rectangle(diff, rect, new OpenCvSharp.Scalar(0, 0, 0), -1);
                    Cv2.CvtColor(diff, diff, ColorConversionCodes.BGR2GRAY);
                    Cv2.Threshold(diff, diff, 20, 255, ThresholdTypes.Binary);
                    diff.FindContours(out contours, out HierarchyIndex[] hierarchy, RetrievalModes.External, ContourApproximationModes.ApproxSimple);

                    List<Point> points = new List<Point>();
                    for (int idx_cnt = 0; idx_cnt < contours.GetLength(0); ++idx_cnt)
                    {
                        if (hierarchy[idx_cnt].Parent != -1) { continue; }
                        points.AddRange(contours[idx_cnt]);
                    }
                    var avgPoint = new System.Drawing.Point
                    {
                        X = (int)Math.Round(points.Average(p => p.X)),
                        Y = (int)Math.Round(points.Average(p => p.Y))
                    };
                    return avgPoint;
                }
                catch (Exception)
                {
                    var ans = new System.Drawing.Point
                    {
                        X = 0,
                        Y = 0
                    };
                    return ans;
                }
        }
    }
}

テストコード

using System.Runtime.InteropServices;
using System.IO;
using System.Drawing;
using ClassLibraryForVBA;


namespace im_test
{
    class Program
    {
        static void Main()
        {   
            string file1 = Path.GetFullPath(@"C:\Users\mm05162\Desktop\after.bmp");
            string file2 = Path.GetFullPath(@"C:\Users\mm05162\Desktop\before.bmp");
            string file3 = Path.GetFullPath(@"C:\Users\mm05162\Desktop\drop.bmp");
            var shot = new ScreenShot();
            Point x = shot.Imagediff(file1, file2, file3);
       
        }
    }
}

Comments

[Y.H.]

VBAのタグを追加してください。

Answer 1

結局ですが、構造体での受け渡しをやめることにしました。

変数が多いのが、不格好ではありますが、いまはこれしか私にはできませんでした。

DLL側(C#)
bool Imagediff(string file1, string file2, string file3, ref int x, ref int y, ref int w, ref int h);

呼び出し側（VBA）
p = win.Imagediff(f1, f2, f3, x, y, w, h)

配列やジェネリックを扱うには、まだまだ修行が足りません。

Answer 2

たぶん変数宣言して初期化しているつもりなのでしょうが…

str file1 = "C:\Users\mm05162\Desktop\after.bmp"
str file2 = "C:\Users\mm05162\Desktop\before.bmp"
str file3 = "C:\Users\mm05162\Desktop\drop.bmp"

Str関数をCALLし結果を捨ててます。

結果として、file1,file2,file3は初期化されてないです。
単純に代入でいいのでは？

file1 = "C:\Users\mm05162\Desktop\after.bmp"
file2 = "C:\Users\mm05162\Desktop\before.bmp"
file3 = "C:\Users\mm05162\Desktop\drop.bmp"