VC++でDLLを作成しています。
VBから呼び出しで、配列を渡し、その配列の値を
VCで使用したいのです。
通常変数でテストして、うまくいっているのですが、
配列に変更したところ、値がうまく渡りません。
どなたかお分かりになられる方いらっしゃいましたら
お力をお貸し願えないでしょうか?
変数で成功しているプログラム
VB6.0
標準モジュール
Declare Function fncTest Lib "fncTest.dll" (a As Long) As Long
フォーム
Private Sub Test_Click()
dim i as integer
i = fncTest(1)
End Sub
VC++6.0
fncTest.h
fncTest_API int _stdcall fncTest(int);
fncTest.cpp
fncTest_API int _stdcall fncTest(int a)
{
a = a+1;
return a;
}
fncTest.def
省略
変数aを配列に変更して作ってみたもの(配列bにVBからの配列aの値を入れようとしていますが、
うまくいっていません。)
VB6.0
標準モジュール
Declare Function fncTest Lib "fncTest.dll" (ByRef a() As Long) As Long
フォーム
Private Sub Test_Click()
Dim i As Integer
Dim hairetu(7) As Long
Dim values As Variant
For i = 0 To 7
hairetu(i) = i
Next i
values = fncTest(hairetu())
End Sub
VC++6.0
fncTest.h
fncTest_API int _stdcall fncTest(int*);
fncTest.cpp
fncTest_API int _stdcall fncTest(int* a)
{
int b[7];
int i;
for (i = 0;i <= 7;i++){
b[i] = a[i];
}
return 0;
}
以上よろしくお願いします。
No.1ベストアンサー
- 回答日時:
VBの配列は管理領域などを含んでいますので、
そのままではうまく渡りません。
配列の先頭要素を参照渡しするとうまくいくと
思います。この場合、当然ですがC側では配列の
範囲を知ることが出来ませんので、その辺は引数で
管理してください。
ちなみに、ユーザ定義型の配列は各要素がメモリ内で
連続してないようなので、ユーザ定義型の場合は
ご注意ください。
Declare Function fncTest Lib "fncTest.dll" (ByRef a As Long, ByVal n As Long) As Long
フォーム
Private Sub Test_Click()
Dim i As Integer
Dim hairetu(7) As Long
Dim values As Variant
For i = 0 To 7
hairetu(i) = i
Next i
values = fncTest(hairetu(0), 8)
End Sub
VC++6.0
fncTest.h
fncTest_API int _stdcall fncTest(int*, int);
fncTest.cpp
fncTest_API int _stdcall fncTest(int* a, int n)
{
int sum;
int i;
for (i = 0; i < n; i++){
sum = a[i];
}
return 0;
}
この回答への補足
VB側のDim values as variant
values = fncTest(hairetu(0),8)
の部分の戻り値はMSDNのサンプルを参考にして書きました。
まったく意味がないことがわかったので
Dim values as integer
values = fncTest(hairetu(0),8)
で単純に戻り値を受け取るということでよかったと思います。
今後これを参考になされる方が混乱しないように
補足しておきますね。
どうもありがとうございました(^^)。
hairetu(0)を渡すことによって無事VCに値が渡りました。
なんとお礼をいえばいいのかわからないくらい
感謝感激です。
本当にありがとうございました
m( _ _ )m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) 数字が「0」の列を削除するため、下記のコードを実行しましたが、コンパイルエラーSubまたはFunct 3 2022/12/04 00:00
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る バッチからEXEの結果を受け取りたいのですが、 下記のバッ 1 2023/07/04 15:13
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Visual Basic(VBA) Vbaで数式をポーランド記法に変換するコードを作って実行しようとするとフリーズします。 1 2022/05/24 17:53
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Visual Basic(VBA) VBAでのMATCH関数 3 2022/10/17 19:06
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
関数から配列を返すには?
-
配列の要素数に変数を入れたい...
-
C#で構造体の配列を持った構造...
-
構造体のextern方法
-
Cのエラー
-
define で 配列
-
C言語において、 配列要素をひ...
-
C#で配列が空かを判定するには?
-
C言語 数値の連続入力について
-
配列のNULL初期化について
-
ポインタを使って構造体の配列...
-
構造体の動的確保について
-
AfxBeginThread の引数について
-
C言語の課題が出たのですが自力...
-
fclose()でセグメンテーション違反
-
const で宣言してるのに、値が...
-
c言語
-
C言語の配列のコピーについて質...
-
メンバ変数の取得
-
C言語で重複組合せを全列挙
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
関数から配列を返すには?
-
配列の要素数に変数を入れたい...
-
define で 配列
-
c言語
-
C#で構造体の配列を持った構造...
-
構造体のextern方法
-
C言語において、 配列要素をひ...
-
C#でのフィボナッチ数列
-
C言語の2次元配列 容量が大き...
-
C#で配列が空かを判定するには?
-
配列のアドレス部
-
char型配列をint型に代入するには
-
2番目の最大値を求める
-
C言語の課題が出たのですが自力...
-
C言語についてです 5人のテスト...
-
C言語から質問です。
-
C言語 ファイルの指定された行...
-
c言語 構造体
-
コンボボックスでデフォルト値...
-
MFCのCArrayを使った二次元配列
おすすめ情報