| Вопрос: помогите с COLLBACK | Добавлено: 04.06.04 16:31 |
Автор вопроса:  Anjey
|
|
есть библиотека , dll (VC) Declare Function Start Lib "CallbackDLL.dll" (ByRef N As Startup, ByVal CollbackF As _CallbackF) As Shortна вход ей передается другая функция Delegate Sub _CallbackF(ByRef y As Report, ByVal x As Short)и ее реализация (VB) ... вызываем ее из ехе: Call Start(St, AddressOf xCallbackF)все работает до момента тыхода из из COLLBACK функции ... и при выходе хитрая ошибка которую я понял как несовместимость описаний , тех что в библиотеке и тех что в exe-ке |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #1 | Добавлено: 05.06.04 15:44 |
|
Вроде всё правильно... Вот примерчик из MSDN: ms-help://MS.VSCC.2003/MS.MSDNQTR.2003FEB.1033/cpguide/html/cpconUsingCallbackFunctions.htm Imports System Imports System.Runtime.InteropServices Public Delegate Function CallBack( _ hwnd As Integer, lParam As Integer) As Boolean Public Class EnumReportApp Declare Function EnumWindows Lib "user32" ( _ x As CallBack, y As Integer) As Integer Public Shared Sub Main() EnumWindows(AddressOf EnumReportApp.Report, 0) End Sub 'Main Public Shared Function Report(hwnd As Integer, lParam As Integer) _ As Boolean Console.Write("Window handle is ") Console.WriteLine(hwnd) Return True End Function 'Report End Class 'EnumReportApp Только вот.. Почему Short? Может попробовать Int32 поставить? |
||
Страница: 1 |