by 山本 » 2005年6月07日(火) 13:30
Ver4.01.02の段階では、DLL関数に多次元配列を渡すことができないので、こちらは次回のバージョンアップで対応しようと思います。
現時点では、Declare定義のパラメータをポインタ型に書き換えて、対処してください。
コード: 全て選択
'--------
' 例
'--------
'DLL用のソース
Function Export Test(k[2,2] As Long)
MessageBox(0, Str$(k[0,0])+":"+Str$(k[0,1])+":"+Str$(k[1,0])+":"+Str$(k[1,1]), "表示テスト", 0)
End Function
'メインソース
Declare Function Test Lib "sougi" (k As *Long) As Long
Dim data0[2,2] As Long
data0[0,0]= 1
data0[0,1]= 2
data0[1,0]= 3
data0[1,1]= 4
Test(data1)
Ver4.01.02の段階では、DLL関数に多次元配列を渡すことができないので、こちらは次回のバージョンアップで対応しようと思います。
現時点では、Declare定義のパラメータをポインタ型に書き換えて、対処してください。
[code]'--------
' 例
'--------
'DLL用のソース
Function Export Test(k[2,2] As Long)
MessageBox(0, Str$(k[0,0])+":"+Str$(k[0,1])+":"+Str$(k[1,0])+":"+Str$(k[1,1]), "表示テスト", 0)
End Function
'メインソース
Declare Function Test Lib "sougi" (k As *Long) As Long
Dim data0[2,2] As Long
data0[0,0]= 1
data0[0,1]= 2
data0[1,0]= 3
data0[1,1]= 4
Test(data1)[/code]