VBでVC作成のＤＬＬの呼び出しするには？

解決

---

VCで作成したDLLをVBで実行しようとしたら、”DLLが正しく呼び出せません”
のエラーが出ます。色々調べたのですが、原因がわかりませんでした。
どなたか、ご教示お願いします。

VBのコード
Declare Function tmon_read Lib "TMON.DLL" (ByRef buf As Byte, ByVal Address As Long, ByVal Length As Long) As Long

Sub test 
 dim DL_Data(0 To DATA_SU) As Byte 
 Dim sts As Long
 sts = tmon_read(DL_Data, &H10000, 512)
End Sub

VCのコード
__declspec( dllexport )  signed long tmon_read(char *buf, signed long addr, signed long len)

編集 削除

---

これだけではよくわかりませんが、DLLはどこにおいていますか？

編集 削除

---

C:\WINNT\system32の下に入れています。
たぶんですが、引数の宣言（ByRef buf As Byte部分）に問題あるのかな？と思っていますが．．．
よろしくお願いします。

編集 削除

---

> Declare Function tmon_read Lib "TMON.DLL" (ByRef buf As Byte, ByVal Address As Long, ByVal Length As Long) As Long
この宣言でならば、
> sts = tmon_read(DL_Data, &H10000, 512)
ではなく、
sts = tmon_read(DL_Data(0), &H10000, 512)
のように呼び出してください。

もし、「DL_Data」で渡したいなら、Declare側は「ByRef buf() As Byte」とと書く必要があります。(もっともこれだと、DLL側をSafeArrayにしなければいけませんが…)

編集 削除

---

DL_Data(0)としてみたのですが、同じ症状でした。
ＶＣ側のコードがまずいのでしょうか？
よろしくお願い致します。

編集 削除

---

たぶんとか言わずにちゃんとデバッグしてみたらどうです？。
引数なし、引数１番目のみ、引数２番目のみ、引数３番目のみ、
を実行すればもっと特定されると思いますが？

編集 削除

---

説明不足で申し訳ありませんでした。（初心者なもので．．．スミマセン）
引数なしの時はＯＫでした。引数がある場合にエラーが出ています。
何か調べる方法ありますか？
よろしくお願いします。

編集 削除

---

ＶＢのコードに下記エイリアスを設定すればエラーなくなりました。
Declare Function tmon_read Lib "TMON.DLL" Alias "_tmon_read@12" (ByRef buff As Byte, ByVal Address As Long, ByVal Length As Long) As Long

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。