|
各位大師們。想跟你們請教一下如果我使用cvUndistortPoints 出現了這個錯誤訊息,那問題會是出在哪裡呢?
Dim camera = {{1647.0860968795648, 0, 649.06851442970753}, {
0, 1693.4890698156244, 420.87901829492984}, {0, 0, 1}}
Dim diffuct = {-0.31437322367565096, 1.2955430967573596, 0.0013745790399884578, -0.014282502799326221, -2.95642409331979}
Dim size As Integer = Marshal.SizeOf(camera(0, 0)) * camera.Length
Dim pnt As IntPtr = Marshal.AllocHGlobal(size)
Dim size1 As Integer = Marshal.SizeOf(diffuct(0)) * diffuct.Length
Dim pnt1As As IntPtr = Marshal.AllocHGlobal(size1)
Dim MyIntPtr As IntPtr
Dim MyIntPtr1 As IntPtr
Dim MyIntPtr2 As IntPtr
Dim MyIntPtr3 As IntPtr
Dim dfg As MCvMat
MyIntPtr = cvCreateMat(1024, 1280, Emgu.CV.CvEnum.MAT_DEPTH.CV_32F)
MyIntPtr1 = cvCreateMat(1024, 1280, Emgu.CV.CvEnum.MAT_DEPTH.CV_32F)
MyIntPtr2 = cvCreateMat(3, 3, Emgu.CV.CvEnum.MAT_DEPTH.CV_32F)
MyIntPtr3 = cvCreateMat(1, 5, Emgu.CV.CvEnum.MAT_DEPTH.CV_32F)
dfg.cols = 3
dfg.rows = 3
dfg.data = pnt
Dim dfg1 As MCvMat
dfg1.data = pnt1As
cvUndistortPoints(MyIntPtr, MyIntPtr1, dfg.data, dfg1.data, 0, 0)
|
|