スレッド内からVBの関数をコールバックするには (ID:60851)

名前

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

本文 みなさんこんにちは。 いま、VBとVCの両方使いで、掲題の件で悩んでいます。 見苦しいですが、下記ソースを作成しましたが、 うまくいっていません。 環境： WindowsXP VB6.0 SP6 VC++6.0 SP4 (DLLは、/MTオプションで、マルチスレッドで 作成) ↓--- VB側 --- 'test.frm Private Declare Sub SetDebugCallBack Lib _ "test.DLL" (ByVal CallBack As Long) Public Sub mInitLine() Call SetDebugCallBack(AddressOf DbgHandler) End Sub 'test.bas Public Sub DbgHandler(ByVal aaaa As String) Debug.Print aaaa DoEvents End Sub ↑--- VB側 --- ↓--- dll側(VC) --- 'test.h _bstr_t dbuf; char buff[200]; void (__stdcall *debugproc)(BSTR buf); COM_API void __stdcall SetDebugCallBack( void (__stdcall dbgfunc)(BSTR buf) ); 'test.cpp COM_API void __stdcall SetDebugCallBack( void (__stdcall *dbgfunc)(BSTR buf) ) { debugproc=dbgfunc; } 'test.cpp(スレッド起動を行う関数) COM_API void __stdcall StartLine(void) { pThread = _beginthread( SerialRxThread, 0, NULL); ※１{ sprintf(buff,"Thread Running..handle is %ld", pThread); dbuf=buff; debugproc(dbuf); } } 'test.cpp(スレッド用の関数の内部) void SerialRxThread(void* dummy) { : : : ※２{ sprintf(buff,"thread(): xxx=%d", sts ); dbuf=buff; debugproc(dbuf); } : : : } ↑--- dll側(VC) --- ※１ VBで、F5キーで実行するときと、EXEにしてから実行する場合で 両方で動作を確認しています。 ※２ VBで、F5キーで実行するときは動作しますが、EXEにすると アプリケーションエラーが発生します。 スレッドの内部と、スレッドを起動した側とで同じ関数ポインタを 使っているのですが、なぜかVBプログラムをEXEにしたときだけは、 ※２の方でアプリケーションエラーになってしまいます。 (不便をかけて申し訳ありません画面) スレッド内では関数ポインタ(で示される先)を持つためには何か 仕組みいるのでしょうか？ (ちなみに、※２の部分をはずすとスレッドは動作します)