はじめまして。
VisualC++6.0でDLLを作り、VisualBasic6.0にて
VisualC++の関数をコールし、構造体配列の値を
渡そうとしていますがうまくいきません。
どなたかよい知恵をお貸しください。
宜しくお願い致します。
下記に、VisualC++6.0とVisualBasic6.0のやりとり
を記します。
*====Visual C++ 6.0側=====
typedefstruct_DLP_MSGDATA
{
intflg;
charmsg[504];
inttmp;
} DLP_MSGDATA;
_declspec(dllexport) int _stdcall SampSub(int data, DLP_MSGDATA *mdata)
{
return( 0 );
}
*====Visual Basic 5.0側=====
Declare Function SampSub Lib "test.dll" Alias "_SampSub@8" _
( _
ByVal tlp_id As Long, _
ByRef mdata() As DLP_TLP_MSGDATA _
) As Long
Type DLP_TLP_MSGDATA
flg As Long
msg As String * 504
tmp As Long
End Type
Private Sub test()
Dim mdata(0 To 130) As DLP_TLP_MSGDATA
Dim aa As Long
Call SampSub( aa, mdata )
End sub
No.5ベストアンサー
- 回答日時:
(2)の方法で問題ないと思いますが..
'第2引数の型をAnyに変更
Declare Function SampSub Lib "test.dll" Alias "_SampSub@8" _
( _
ByVal tlp_id As Long, _
mdata As Any _
) As Long
Declare Sub MoveMemory Lib "kernel32.dll" _
Alias "RtlMoveMemory" _
(Destination As Any, _
Source As Any, _
ByVal Length As Long)
ReDim bdata(131 * Len(mdata(0))) As Byte
'構造体の配列をbyte配列にコピー
For i = 0 To 130
MoveMemory bdata(i * Len(mdata(0))), mdata(i), Len(mdata(0))
Next
Call SampSub(1, bdata(0))
'byte配列を構造体の配列にコピー
For i = 0 To 130
MoveMemory mdata(i), bdata(i * Len(mdata(0))), Len(mdata(0))
Next
何度も回答ありがとうございました。
おかげさまで無事構造体配列の受け渡しができるようになりました。
第2引数の型をAnyに変更してなかったのが、問題でした。
ほんとうにありがとうございました。
とても助かりました。
No.6
- 回答日時:
>構造体の配列でなければ、ちゃんと値の受け渡しができたのですが
>配列になった途端、ダメでした。
>やはり、構造体配列を渡すのは、不可能なのでしょうか?
あれ?
1.Declare文中のmdata()のカッコを削除する
2.Type中の固定長StringをByte型配列にする
3.Callで関数を呼ぶときに、(0)をつけて、構造体配列の先頭を参照渡し(ByRef)で呼ぶ
で、いった実績があるんですけど。
回答ありがとうございました。
回答頂いた分でじゃないのですが、メモリブロックにコピーしてから渡す
方法でうまくいく事ができました。
いろいろ勉強になりました。
No.4
- 回答日時:
私も同じような事を現在していますが。
VBのUDT構造体は各要素間で連続していないので戻り値をそのまま使うのには無理があると思います。方法としてはVBの隠し関数であるStrPtr(.netからはサポートされていません)を使用し構造体の先頭ポインタを取得しその後、RtlMoveMemory又はCopyMemoryのAPIを使用し取得したポインタより構造体の長さを切り取り取得していくのが妥当だと思います。参考URL:http://www02.so-net.ne.jp/~handa/deadend/c_vb.ht …
No.3
- 回答日時:
構造体のメンバに、固定長のStringを含まない場合は、次の方法で可能です。
Declare Function SampSub Lib "test.dll" Alias "_SampSub@8" _
( _
ByVal tlp_id As Long, _
ByRef mdata As DLP_TLP_MSGDATA _
) As Long
Call SampSub( aa, mdata(0) )
配列の先頭アドレスを渡してあげるのがポイントです。
しかし、今回のように、構造体に固定長の文字列を含めると、VBはUnicodeのため、構造体のサイズが変わってきてしまいます。そのため、配列で渡すことが出来ません。
対応方法としては、可変長文字列を使うか、下のようにByte型の配列にする必要があります。
Type DLP_TLP_MSGDATA
flg As Long
msg(0 To 503) As Byte
tmp As Long
End Type
で、構造体の要素に格納するときは、StrConvでSJISに変換して格納し、取り出すときも同様にStrConvでUnicodeにしてあげます。
回答ありがとうございます。
構造体の配列でなければ、ちゃんと値の受け渡しができたのですが
配列になった途端、ダメでした。
やはり、構造体配列を渡すのは、不可能なのでしょうか?
No.2
- 回答日時:
答えではありませんが
以前、私もその問題に直面しました。
結論としてはできないのではないでしょうか?
VBは文字列を内部ではunicodeで定義しているため
値渡しのときはANSIに変換された文字列のバッファのある
ポインタを指しているらしいです。
つまりそれを渡そうとしてもメモリ上連続していないので無理なのでは
ないかと思います。
構造体に渡す方法ですが
一度VB側でByte型にしてそれを渡してはどうでしょうか?
アドバイスありがとうございました。
回答No.5のtodo36さんの方法にてうまくいきました。
また何かの時に参考にしてみてください。
No.1
- 回答日時:
構造体配列をそのままCのDLLに渡しては行けません。
次の4つの方法が考えられます。
(1)VC側でSafeArrayの面倒を見る
http://www.microsoft.com/japan/support/kb/articl …
(2)VB側でメモリブロックにコピーしてから渡す
redim bdata(131 * len(mdata(0))) as byte
for i=0 to 130
MoveMemory mdata(i),bdata(i * len(mdata(0))) len(mdata(i))
next
(3)VB側で構造体配列を一つの構造体として渡す
Type DLP_TLP_MSGDATA_ARRAY
mdata(0 To 130) As DLP_TLP_MSGDATA
End Type
(4)バイナリーファイルで渡す
早速の回答ありがとうございます。
(2)、(3)について試してみたのですが、うまくいきませんでした。
(2)については、値がうまく渡らず、(3)については、変数が64KB以上
を超えるということでコンパイルエラーとなってしまいました。
今、現状では、文字列だけでなくflgの整数値もまともに渡らない
状況です。これは、VCで作成するDLLに問題があるのでしょうか?
お探しの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) Vbaで数式をポーランド記法に変換するコードを作って実行しようとするとフリーズします。 1 2022/05/24 17:53
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る バッチからEXEの結果を受け取りたいのですが、 下記のバッ 1 2023/07/04 15:13
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Visual Basic(VBA) 貼り付けた値が消えていく 以下はソースファイルの2番目のシートのB6から最終行を取得 ターゲットファ 2 2023/07/27 12:23
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Cで作成したDLL関数をVBから呼び 引数渡し方法
Visual Basic(VBA)
-
VBで構造体の配列を関数に渡す方法?
Visual Basic(VBA)
-
DLL<->VB間での受け渡し(文字列・ポインタ)
Visual Basic(VBA)
-
-
4
C++で作成したDLLにVBAから配列渡し
C言語・C++・C#
-
5
VB.NETで、DLLを頂いたんですが・・
Visual Basic(VBA)
-
6
VB.netでDLLを読み込んで実行する際に、スタックを不安定にしていますというエラーが出ます。
Visual Basic(VBA)
-
7
VB6からDLLへの構造体受け渡し
Visual Basic(VBA)
-
8
VBの「As String * 128」とは?
Visual Basic(VBA)
-
9
dllを使用しVB側に文字列を返す
Visual Basic(VBA)
-
10
VBA-DLLの引数受け渡しについて
C言語・C++・C#
-
11
ラベルのスクロール(VB)
Visual Basic(VBA)
-
12
VBでC言語のポインタみたいな使い方?
Visual Basic(VBA)
-
13
VBからDLLへ多次元配列を渡す/配列の添え字
C言語・C++・C#
-
14
VB.NET DLL【API関数(コールバック関数)】の呼び出し方法について
Visual Basic(VBA)
-
15
std::stringからLPCWSTR型への変換
C言語・C++・C#
-
16
VBAからDLLをCALLしたいのですが
Visual Basic(VBA)
-
17
DLLとCOMの違い
その他(ソフトウェア)
-
18
DataGrdViewに関連付けたデータの更新
C言語・C++・C#
-
19
Visual Studio 「AnyCpu」について
C言語・C++・C#
-
20
VB.NETで DataRow()を利用して、値からコードを取得したい。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
配列を使わずに、変数名を動的...
-
擬似コード 長さがmの配列でな...
-
配列の参照渡しで型が一致しま...
-
C# Listを使わずに2次元配列の...
-
C言語初心者 ポインタについて...
-
C言語 配列の長さの上限
-
パイソンの
-
複数の選択範囲の行番号を個別...
-
VBで構造体の配列を関数に渡す...
-
VB.NET 構造体の配列の検索機能...
-
unsigned char配列への入力の仕方
-
C# 配列の変数宣言について。
-
配列で格納したものをmsgboxで...
-
intel fortranコンパイラについて
-
現在、C/C++ で作成したプログ...
-
【速いブラインドタッチ】手を...
-
Redimした動的配列はEraseする...
-
C++ テンプレートを使った配列...
-
char型の二次元配列の意味が分...
-
C言語について。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
C言語 配列の長さの上限
-
配列を使わずに、変数名を動的...
-
配列の参照渡しで型が一致しま...
-
VBで構造体の配列を関数に渡す...
-
【速いブラインドタッチ】手を...
-
C# Listを使わずに2次元配列の...
-
配列で格納したものをmsgboxで...
-
unsigned char配列への入力の仕方
-
先頭アドレスとは何ですか?
-
C++ vectorに配列をプッシュしたい
-
ExcelVBAで質問です。離れた二...
-
C言語初心者 ポインタについて...
-
C# 配列の変数宣言について。
-
C言語で特定列だけを抽出して配...
-
C言語初心者 構造体 課題について
-
複数の選択範囲の行番号を個別...
-
テキストファイルから文字列を...
-
配列内の文字間を排他的論理和...
-
配列を含む構造体の初期値について
-
構造体配列を引数とするDLL作成...
おすすめ情報