ＶＢからＣで作成されたＤＬＬへの引数の渡し方
- ＶＢからＣで作成されたＡＰＩ関数への引数の渡し方がわからない
- Ｃ側の引数のデータ型はchar型でポインタ渡しではない
- ＶＢ側はBYTE型で引数を渡す必要があるが、方法がわからない
- ベストアンサー
ＶＢからＣで作成されたＤＬＬへの引数の渡し方
ＶＢからＣで作成されたＡＰＩ関数への引数の渡し方がわかりません。 Ｃ側の引数のデータ型はchar型でポインタ渡しではありません。 ------------------------------------------------ C側 int KANSU(char Mode) VB側 Public Declare Function KANSU Lib "USERAPI.dll" ( ByVal CHAR As Byte) As Long ------------------------------------------------ Ｃ側がポインタ渡しの場合は、ＶＢ側はSTRING型で別に悩むことはなかったのですが、文字列渡しの場合は、ＶＢ側はBYTE型で渡す必要があり、その方法がわかりません。 どなたか、分かる方よろしくお願いします。 ちなみに、ＶＢ６．０です。
- yossie_rin
- お礼率44% (4/9)
- Visual Basic
- 回答数4
- ありがとう数3
- みんなの回答 （4）
- 専門家の回答
質問者が選んだベストアンサー
> その方法がわかりません。 何が分からないのかよく分かりません。 Declare文に問題はないようなのでおそらく呼び出し時の引数の渡し方が分からないのだと推測して回答しますと、 Windowsの場合char型は-128～127の数値なので 数値100を渡す場合 dim ret as Long ret = KANSU(100) 文字Aの文字コード(65)を渡す場合 ret = KANSU(Asc("A")) などのようにすればいいと思います。
その他の回答 (3)
- kakusuke
- ベストアンサー率36% (95/259)
要するにString→Byteに変換しろってこと？ 一度ファイルに保存して、 それをバイナリリードして GetステートメントでByte型変数に 落とすってのはどうですか？ なんかＡＰＩでありそうだけどね。 ってかあった気がするけどね。
お礼
回答ありがとうございました。 自己解決しました。 １バイトの文字を文字コードで渡せばOKでした。 お騒がせしました。
- MetalKing
- ベストアンサー率57% (15/26)
> 文字列渡しの場合は、ＶＢ側はBYTE型で渡す必要があり、その方法がわかりません。 文字列をByteで渡すんですか？ そりゃ無理です
- BLUEPIXY
- ベストアンサー率50% (3003/5914)
VB側 ByVal CHAR As Byte C側 char Mode で問題ないです。 問題があるとしたら、 質問文で、Ｃ側の関数の返値がintになっているのに、 ＶＢ側がlongになっていることでしょうね。
お礼
回答ありがとうございました。 自己解決しました。 １バイトの文字を文字コードで渡せばOKでした。 ちなみに、Ｃの返値がintでＶＢ側がlongになっているのは、意図的にそうしています。Ｃでのint型は、ＶＢだとlong型になります。
関連するQ&A
- Cで作成したDLL関数をVBから呼ぶ
以前にあった「Cで作成したDLL関数をVBから呼び 引数渡し方法」を試したのですがVB側でデータが受け取れません。 http://oshiete1.goo.ne.jp/kotaeru.php3?q=711327 C側での値設定がわるいのでしょうか？ VB側 Public Declare Function testAP Lib "C:\bin\test.dll" (ByVal lpKeyData As String) As Long --------------------------------------------------------------------------- Dim lngRc As Long Dim keydata As String * 128 keydata = String$(128, Chr(0) & Chr(0)) lngRc = testAP(keydata) VC側 __declspec(dllexport) long __stdcall testAP(char *lpdata){ →C側でlpdataに値を設定する lpdata="ABCDEF"; }
- ベストアンサー
- Visual Basic
- Cで作成したDLL関数をVBから呼び 引数渡し方法
/**** Cプログラム *****/ int testAP( char* a) aのポインタにアドレスを返します。 /**** VB プログラム****/ Public Declare Function testAP Lib "test.dll" (ByRef a As String) As Integer Dim keydata As String * 128 lngRc = testAP(keydata) 上記VBのAPを実行するとアプリケーションエラーになります。 Cプログラムのデバックをすると入口ではaのポインタにはアドレスがセットされていて 、値を設定出来、最後まで正常動作して、VBとのインタフェースで落ちています。 VB6.exeでアプリケーションエラーになっています。 恐らく、VBにはポインタという概念が無いと聞いていてCのAPとの受け渡しに失敗して そうなのですが、VBでの引き渡し方法が分かりません。 よろしくお願い致します。
- ベストアンサー
- Visual Basic
- VB(6.0)で作成したDLLをVB(.Net)で呼び出す方法
VB(6.0)で作成したDLLをVB(.Net)で呼び出すのに Public Declare Function 関数名 Lib "～.dllのパス" (ByVal ・・・) As 型 このように呼び出してみているのですが 上手くいきません。整数データの変更も しました。 このDLLを呼び出せないと次に進めないので 本当に困っています。 よろしくお願いします。
- 締切済み
- Visual Basic
- VB6.0で、DLLを動的に参照したい
VB6.0では、DLLを利用する際の宣言部分で、パスを""で括った静的な記載でなく、動的な記載にできるのでしょうか。 色々と調べてみたのですが、イマイチピンとくるものがなかったので質問させていただきました。 例：Public Declare Function Ztest Lib "C:\Test1\Test2" Alias "Test3" (ByVal data1 As Long) As Long ↓動的に変更したい Public Declare Function Ztest Lib "○○:\Test1\Test2" Alias "Test3" (ByVal data1 As Long) As Long
- ベストアンサー
- Visual Basic
- ｄｌｌを使用しＶＢ側に文字列を返す2
No.280310の質問の続きになってしまいますが 「VCで作ったｄｌｌを使用し ＶＢに文字列を返すことはできますか」 でVCで作ったdllをＶＢを呼び出す事ができるようになりました。 Declare宣言で疑問に思ったのですが Declare Function TxtCnt Lib "hoge.dll" (ByVal a As String) As Long aはなぜ値渡しなのでしょうか？ 変数が書き換えられて戻ってくるので、byrefで指定していました。 それが問題が起こしていた原因一つでした。 ちなみにint型の数値をポインタで渡した場合はbyrefでうまくいきます。 ご教授願います。
- ベストアンサー
- Visual Basic
- VB.NET DLL【API関数(コールバック関数)】の呼び出し方法について
目的は下記(3)のAPI関数をVB.NETで呼び出したいのですが、そこにいきつくまでにいろいろと壁にぶちあたっております。 (1)API関数をVB.NETから利用するにあたって どのような手順および調査・学習すればVB.NETからWin32 APIを独力で呼び出せるようになるのでしょうか？ネット上に情報が乏しく、いきずまっております。 (2)API関数の調査方法、またコールバック関数について 下記(a),(b)のようにWin32 API関数を宣言して、あとは呼び出し側の関数で(a),(b)で宣言したAPI関数を記述するだけで基本的には使用できるようになるという大まかなイメージはつかめております。 このあとでAPI関数をMSDNで調べると引数がHWNDやPCTSTRなど見慣れないものが出てきて、次のURL(http://www.atmarkit.co.jp/fdotnet/dotnettips/024w32api/w32api.html)を見ると、APIの型とVB.NETの型は違うので型変換をしなければならないとあります。またさらに私が呼び出したい関数はコールバック関数なるものでこれまた？な状態です。 そこでAPIとVB.NETの型変換の調査方法およびコールバック関数の利用方法などを教えていただけないでしょうか？ (a)DllImport属性を利用する方法 <System.Runtime.InteropServices.DllImport("DLL名")> _ Function API関数名(仮引数) End Function (b)Declareステートメントを利用する方法 Declare Function API関数名 Lib "DLL名" (仮引数) (3)InstallHinfSection関数(http://msdn2.microsoft.com/en-us/library/aa376957.aspx)について 下記のコードを実行したのですが、実行時エラーにはならないのですが、APIの関数が動作してくれません。どこが悪いのかがまったく見当がつかないのですがどなたかアドバイスいただけると助かります。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click InstallHinfSection(Nothing, Nothing, "DefaultInstall 132 C:\INF_TEST\Original.inf", 0) End Sub Declare Function InstallHinfSection Lib "setupapi" Alias "InstallHinfSection" (ByVal hwnd As String, ByVal ModuleHandle As String, ByVal CmdLineBuffer As String, ByVal nCmdShow As Integer) As Long APIが難しすぎていろいろとおかしなことを書いているかもしれませんが、どうぞよろしくお願いいたします。
- 締切済み
- Visual Basic
- VB.NETでUnzip32.DLLを使うには？
VB2005または2008でUnzip32を使ってzipファイルを解凍する方法を教えてください。 Unzip32のバージョンは5.42、OSはXP32bitSP3です。 UnZipGetVersionではきちんとバージョンが返ってきますので、DLL自体には問題はないと思います。 Classの下に Public Declare Function UnZip Lib "unzip32.dll" (ByVal hwnd As Long, ByVal szCmdLine As String, ByVal szOutput As String, ByVal dwSize As Long) As Long を記述し、 UnZip(0, "-o C:\01.zip E:\", ｖｂNull, 0) と命令してもコンパイラエラーになってしまいます。 第二引数のC:\01.zipはちゃんと存在するファイルであることを一応書き添えておきます。 引数の記述がおかしいと思うのですが、Unzip32のドキュメントを読んでも解決できません。 一日中ぐぐってもVB2005以降での構文サンプルも見つかりませんでした。 UnzioExtractでも引数の説明が意味不明で解凍できませんでした。 できましたら第一から第四までの引数になにを入れたらいいのか、 具体的に指示していけたらありがたいです。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- Cで作成したDLLをVBで呼出
Cで作成したDLLの関数をVB6.0から呼び出す事ができず、悩んでおります。 ご教授お願いします。 どの様な関数を呼び出そうとしているのかというと、以下の通りです。 <DLL Cで作成(コンパイラVC6）> void WINAPI hoge(BSTR pgname,BSTR fmt,...){ ～処理～ } /* 宣言では頭にDLLExport*/ <呼出側 VB6.0で作成> '宣言 Public Declare Function hoge Lib "hoge" _ (ByRef pgname as String , _ ByRef fmt as String , _ ParamArray args()) '呼出 call hoge("foo","baa","array1",2) この様なコードを書いております。 C側、VB側ともに固定数の引数にしてみたところ、 通ったので「ParamArray args()」の定義が違うのではないか・・・?と思っているのですが、 どの様に宣言したらよい物なのでしょうか？ もしくは、そもそも全然違う箇所を間違っているのでしょうか？ 宜しくお願いします。 ※ 説明の足りない箇所があれば、仰ってください。
- ベストアンサー
- Visual Basic
- DLL VBとC++
VBAからVC++2005のDLLを呼び出すプログラムを書いています。 VB側で作成したcpp_proc関数を呼ぶとVBアプリ自体が落ちました。 DLLのreturnの直前に以下のMessageBoxで表示させるとそこまでは表示され、 リターンを押すと、落ちました。 VB側の引数の値 String * 8192が悪いのでしょうか？ return直前まで動作していたので、DLLの戻り値に何か原因があるのでしょうか？ ついでの質問ですが、DEFの @1は無くても動くのでしょうか？ 意味が知りたいです。 // ----- C++ (DLL側) ----- int __stdcall cpp_proc(LPCSTR inp, LPSTR out) { ... 省略 MessageBox(0, "ここまで通過", "debug", MB_OK); return 0; } // ----- DEF ----- LIBRARY "example" DESCRIPTION 'テスト' EXPORTS ; 明示的なエクスポートはここへ記述できます cpp_proc @1 '----- VB側 ----- Public Declare Function cpp_proc Lib "example.dll" _ (ByVal inp As String, ByRef out As String) As Integer Public Sub Test() Dim ret As Integer Dim inp As String Dim out As String * 8192 ret = cpp_proc(inp, out) MsgBox("ret=[" & Cstr(ret) & "]"); End Sub
- ベストアンサー
- C・C++・C#
- VB6からVCで作成したDLLへのvoidポインタの受け渡し
VB6でVCで作成されたDLLの関数から戻り値としてvoidポインタを受け取り、 それをDLLの別の関数を呼び出す際に引数として渡すプログラムを作成しようとして 詰まっています。以下サンプルです。 ===VB側 Public Type Param sStr As String lNum As Long End Type Declare Function Create Lib "test.dll" (ByRef tParam As Param) As Long Declare Function Free Lib "test.dll" (ByVal pSt As Any) As Long Dim pSt As Long Dim lRet As Long Dim tParam As Param With tParam .sStr = "test" & Chr(0) .lNum = 10 End With pSt = Conn(tParam) lRet = Free(pSt) ===VC側 typedef struct stParaA { char * aaa; char * bbb; } PARAM_A; typedef struct stParaB { char * ccc; int iNum; } PARAM_B; extern "C" void * __stdcall Create(PARAM_B* stParaB) { PARAM_A stParaA; //stParaAの各メンバ領域をMallocで確保 return((void*)stParaA); } extern "C" int __stdcall Free(void* stParaA) { //stParaAの各メンバ領域をfree return 0; //正常終了の場合 } VC側でデバッグしてみたところ、stParaBの各メンバの値はVC側で取得できているので、 DLLの呼び出し自体には問題はないようですが、Create()でreturnする時と、Free()に 入ってきたときではstParaAのアドレスが変わってしまい、異常終了します。 VC側はソースはあるのでデバッグは可能なのですが、DLLの修正自体は不可となって いるため、VB側を直すしかないのですが、どのようにすればアドレスの受け渡しが できるのでしょうか。
- 締切済み
- Visual Basic
お礼
回答ありがとうございます。 実は自己解決していたのですが、結果はご指摘の通りです。文字コードを渡すという意味でした。文字が１文字でByte型で渡すという時点で気づくべきした。。