- 締切済み
C++で作成したDLLを vb.net から動的に
C++で作成したDLLを vb.net から動的に使用する方法 <DllImport("DllNAME")> _ Private Shared Function FuncName( _ <MarshalAs(UnmanagedType.LPStr)> ByVal str1 As StringBuilder, _ <MarshalAs(UnmanagedType.LPStr)> ByVal str2 As StringBuilder ) As String End Function Sub huga() Dim result As String = FuncName( "hoge", "piyo" ) MsgBox(result) End Sub 上記方法で 静的にはリンク出来たのですが 動的にリンクする方法がわかりません ご教授ください お願いします！
- Avj1r_Drc2jr3F
- お礼率100% (1/1)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
みんなの回答
- himajin100000
- ベストアンサー率54% (1660/3060)
関連するQ&A
- VB.NETにて、構造体へデータをセットするにはどうすればよいですか？
バイナリーファイルから読み込んだデータを構造体にセットするにはどのようにすればよいですか？ ご教授よろしくお願いします。 ファイルサイズは構造体のサイズと同じく300byteです。 Public Structure ST1 <VBFixedString(10), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValArray, SizeConst:=10)> _ Public str1() As String <VBFixedString(20), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValArray, SizeConst:=20)> _ Public str2() As String <VBFixedString(30), System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValArray, SizeConst:=30)> _ Public str3() As String Public Sub Initialize() ReDim str1(4) ReDim str2(4) ReDim str3(4) End Sub End Structure 処理 Private Sub btn1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn1.Click dim ST as new ST1 ST.Initialize() FileOpen(1, OpenFileDialog1.FileName, OpenMode.Binary, OpenAccess.Read, OpenShare.Default)) FileGet(1, ST) FileClose(1) End Sub ここでわからないのが、イニシャライズを行い、配列数を設定しても、ファイルから読み込んでくるバイト数は配列でないときと同じサイズ（60byte）で読み込んできてしまいます。 STをイニシャライズしても、Marshal.SizeOf(ST)の値が変わらないのが原因だと思うのですが、宣言の仕方がおかしいのでしょうか？ ご教授お願いいたします。
- 締切済み
- Visual Basic
- VB.NET DLL 参照型String読込み
VCで作成されたDLLの参照型Stringの読込みに困っております。 ご存じの方、お教え下さい。 VB6では次のような定義で、問題なく実行できます。 Private Declare Function VcToVb _ Lib "xxxxxxx.dll" Alias "VcToVb" _ (ByVal Input_DATA As String, ByVal Input_DATA_Cnt As Long, _ ByRef strData As String, ByRef Err_Cnt As Long, ByRef Err_DATA As String) As Long ------------------------------------ Out_Str , Err_Str の領域を確保 iRent = Check_VcToVb1(Input_STR, Input_Cnt, Out_STR, Err_Cnt, Err_STR) これを VB.NETで実施 Private Declare Ansi Function VcToVb _ Lib "xxxxxxx.dll" Alias "VcToVb" _ (ByVal Input_DATA As String, ByVal Input_DATA_Cnt As Int32, _ <MarshalAs(UnmanagedType.LPStr)> ByRef strData As StringBuilder, _ ByRef err_cnt As Int32, ByRef Err_DATA As StringBuilder) As Int32 （テストのため、strDataのみ） -------------------------------------- Out_Str , Err_Str の領域を確保 iRent = Check_VcToVb1(Input_STR, Input_Cnt, Out_STR, Err_Cnt, Err_STR) ******************************************* 調べた結果、VB.NETでは参照型は簡単にはいかないみたいで、StringBuilderを使用するとか、色々な方法を試しました。 結果は戻ってくるのですが、問題は DLLが文字列を返すときに、文字列内の項目区切文字として chr(0)を設定します。 このため、結果は Chr(0)の前までしか設定されません。 （VB.NETが Chr(0)を文字列の最後と判断する？） これを解決する方法はありますでしょうか。 現在は VB6で呼出す DLLを作成し、VB.NETはこれを使用していますが、 C#.Netならできるのでしょうか。 よろしくお願い申し上げます。
- ベストアンサー
- Visual Basic
- VB.netでFindWindowExやると・・・9222812402616107008！？
VB.netでWin32APIのFindWindowExを使うと， たとえばスタートボタンのHWNDを拾ってくるとき， 本当なら65662（6.0のSpy++で確認＋10進変換）が返ってきて欲しいんですが， 9222812402616107008という，異常な数が返ってきます． Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, <MarshalAs(UnmanagedType.LPTStr)> ByVal lpsz1 As String, <MarshalAs(UnmanagedType.LPTStr)> ByVal lpsz2 As String) As Long とやってあります． VB6.0のAPIビューワからコピペして，MarshalAsをつけてみました． （初心者なので，わけわからないまま付けましたけど； hWnd_ShellTrayWnd = FindWindowEx(0,0,"Shell_TrayWnd",vbNullString) hWnd_StartButton = FindWindowEx(hwnd_ShellTrayWnd,0,"Button",vbNullString) とやってるのですが・・・． 不思議なのは，hWnd_ShellTrayWndが9222812402616238204になっているにもかかわらず，次のFindWindowExで，hWnd_StartBtnが9222812402616107008になってるところです・・・． しかも，ありえないクラス名（KeyBoadぐちゃぐちゃ押し）を指定しても，なぜか数が返ってくるんです． FindWindowExを成功させる（きちんとした数を取る）方法，またはFindWindowEx以外でhWndを拾ってくる方法，ありましたら，教えてください．
- ベストアンサー
- 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#
- Cで作成したDLL関数をVBから呼ぶ(.NET)
以前の質問に「Cで作成したDLL関数をVBから呼ぶ」(QNo.1703839)がありますが、下記のコードを見るとVB6での内容だと思います。 Dim keydata As String * 128 keydata = String$(128, Chr(0) & Chr(0)) VB.NETでVC++のDLLで変更した文字列を受けたいのですが、 どのようにすればよいのでしょうか？ VB.NET2003 <DllImport("DllTest.dll")> Private Shared Function _ Test(ByVal s1 As String) As String End Function Private Sub btnTest_Click(...) ... Dim s1 As String = "abc" Dim s2 As String Dim s3 As String s2 = Test(s1) MessageBox.Show(s2) ' "1"が表示される s3 = StrConv(s2, VbStrConv.None) MessageBox.Show(s3) ' 同じく"1"が表示 end sub VC++のDLL extern "C" __declspec (dllexport) BSTR __stdcall Test(char* s1) { AfxMessageBox(s1); // "abc"が表示される OK strcpy(s1, "123"); CString s2; s2 = "123"; return s2.AllocSysString(); } また、文字列に全角を含めても大丈夫でしょうか？ Unicodeの変換処理を行う必要があるのでしょうか？ よろしくお願いします。
- 締切済み
- Visual Basic
- ＶＢ2008で構造体を引数とした時にエラー
VB2008の勉強を始めて数週間の初心者です。 勉強用にいろいろとプログラムを作っているのですが、 構造体(Structure)を引数で渡して戻り値を取得する Ｆｕｎｃｔｉｏｎを作成してみました。 同一クラス内のPrivate Function の場合は問題ないのですいが、 追加した別クラスに Function を作成したところ 「 型 'TEST_A.Form1.str_IN' の値を 'TEST_A.Class1.str_IN' に変換できません。」 のエラーが表示されてしまいます。 別クラスのFunctionを使用する時、引数には構造体は指定できないのでしょうか？ なにか文法上の誤りがあるのでしょうか？ 初心者なので変な質問してたらスイマセン。 詳しい方がいらっしゃいましたらよろしくお願いします。 ------------------------------------------------------ Public Class Form1 Public Structure str_IN Public in_aaa As String End Structure Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) ～ Dim stin As New str_IN '------------------------------------ stin.in_aaa = "aaa" Label1.Text = Test_Sub(stin) '<------- これはｏｋ '------------------------------------- Dim cls = New Class1 stin.in_aaa = "aaa" Label1.Text = cls.CFnk(stin) '<----- エラーになる End Sub Private Function Test_Sub(ByVal prm_in As str_IN) As String Dim stin As New str_IN Dim sout As String sout = "test_aaa" Return sout End Function End Class ------------------------------------------------------------ Public Class Class1 '新たに作成したクラス Public Structure str_IN Public in_aaa As String End Structure Public Function CFnk(ByVal prm_in As str_IN) As String Dim stin As New str_IN Dim sout As String sout = "test_aaa" Return sout End Function End Class
- ベストアンサー
- Visual Basic
- VB.NETからC++のdll連携(double)
プログラム初心者です。 double型の配列をVB2010とC++で作成したｄｌｌで連携したいのですが、値が正しく渡されません。 値が正しく渡せるにはどうしたら良いでしょうか？ 以下がその内容です。（int型の場合）これをdouble型で渡したいのですが。 C++ではSafeArrayの扱いになるとのことですが、方法が良く分かりません。 VBソース ----------------- ' Arrays.vb Imports System Imports Microsoft.VisualBasic Imports System.Runtime.InteropServices Friend NotInheritable Class NativeMethods Private Sub New() End Sub Declare Function TestArrayOfInts Lib "makedll.dll" ( _ <[In](), Out()> ByVal myArray() As Integer, ByVal size As Integer) As Integer End Class Public NotInheritable Class App Private Sub New() End Sub Public Shared Sub Main() ' *************** array ByVal ************** Dim array1(9) As Integer Console.WriteLine("Integer array passed ByVal before call:") Dim i As Integer For i = 0 To array1.Length - 1 array1(i) = i Console.Write(" " & array1(i)) Next i Dim sum1 As Integer = NativeMethods.TestArrayOfInts(array1, array1.Length) Console.WriteLine(ControlChars.CrLf & "Sum of elements:" & sum1) Console.WriteLine(ControlChars.CrLf & "Integer array passed ByVal after call:") For Each i In array1 Console.Write(" " & i) Next i Console.Read() End Sub End Class //********************************** C++作成ｄｌｌソース(makedll.cpp) extern "C" MAKEDLL_API int TestArrayOfInts( int* pArray, int size ) { int result = 0; for( int i = 0; i < size; i++ ) { result += pArray[ i ]; pArray[ i ] += 100; } return result; } //********************************** C++作成ｄｌｌソース(makedll.h) #ifdef MAKEDLL_EXPORTS #define MAKEDLL_API __declspec(dllexport) #else #define MAKEDLL_API __declspec(dllimport) #endif extern "C" MAKEDLL_API int TestArrayOfInts( int* pArray, int size ); //********************************** C++作成ｄｌｌソース(makedll.def) LIBRARY makedll.dll EXPORTS TestArrayOfInts PRIVATE
- ベストアンサー
- C・C++・C#
- VB .NetのDLL参照について
名前付パイプの処理をしているのですが、DLLが参照できません。 Public Class ClsJi01 Public Declare Function MakePipe Lib "\DLL\Point.DLL" (ByVal pipe_name As String, ByVal buf_size As Integer, ByVal max_instances As Short, ByVal hpipe As Integer, ByVal err_code As Integer) As Integer Public Sub M_Pipe() Dim r As Integer Dim rpipe As Integer Dim err_code As Integer r = MakePipe("\\.\pipe\RS04", 255, 16, rpipe, err_code) End Sub End Class Point.DLLは以前VB6.0の時に使用していたDLLで自作です。 これで実行すると「オブジェクト参照がオブジェクト インスタンスに設定されていません。」と出ます。 どうしたら良いのでしょうか？
- ベストアンサー
- Visual Basic
- DLLを作成してVBAから使用する方法は？
Visual Basic 2005 Express EditionでDLLを作成して，エクセルVBAから使用する方法を教えてください。 DLLで提供する関数は,仮に Public Function TRIM2(ByVal str1 As String) As String TRIM2 = trim(str1) End Function とします。 DLLの作り方とエクセルVBAでの利用のやり方が判りません。 一応，DLLらしきものを作りエクセルVBAから参照を試みましたが，「指定されたファイルへの参照は登録できません。」というエラーになります。
- 締切済み
- Visual Basic
- VB.netでDLLを読み込んで実行する際に、スタックを不安定にしていますというエラーが出ます。
いつもお世話になります。 掲題の通り、VB.net上からDLLの関数を呼び出したいのですが、 「PInvoke 関数 がスタックを不安定にしています。PInvoke シグネチャがアンマネージ ターゲット シグネチャに一致していないことが原因として考えられます。呼び出し規約、および PInvoke シグネチャのパラメータがターゲットのアンマネージ シグネチャに一致していることを確認してください。」 というエラーメッセージが出力されます。 ソースコードは以下の通りです。 Public Class Form1 Private Declare Sub PrintShmLog Lib "XXXX.dll" (ByVal iTaskId As Long, _ ByVal iLevel As Long, _ ByVal pMsg As String) Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim iTskNo As Long = 1 Dim iLevel As Long = 0 Dim str As String = "★★★" Try Shell("XXXXXX.exe", vbHide) PrintShmLog(iTskNo, iLevel, str) Catch ex As Exception MessageBox.Show(ex.ToString) End Try End Sub End Class 原因を追いようが無くて困っています。 どなたかご存知の方がいらっしゃいましたらご教授ください。
- 締切済み
- Visual Basic
お礼
ありがとうございました。 教えていただけたサイトを元に 色々試してみたのですが 英語の上に ＶＢ のコードがなく 答えに辿りつけくことが出来ませんでした。 検証はしていただかなくても結構ですので 手順や使う関数、メソッドなど お分かりになりましたら ご教授いただけないでしょうか。 よろしくお願いします。