CallWindowProc как передать параметр функции? / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / CallWindowProc как передать параметр функции?

2 сообщений из 2, страница 1 из 1

CallWindowProc как передать параметр функции?

#37044976

Smiler™

Участник

Откуда: Украина, Полтава

Сообщения: 131

Рейтинг: 0 / 0

Есть динамическая Си-шная библиотека FingerPrintLib.dll у неё есть функция Init2 (param1 as Integer, param2 as string)
саму функцию я вызываю таким образом:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

Public Function InitFinger() As Long
Dim pa As Long
On Error GoTo err
    lb = LoadLibrary(PathDB & "FingerPrintLib.dll")
    
    pa = GetProcAddress(lb, "Init2")
    InitFinger = CallWindowProc(pa,  0 ,  0 ,  0 ,  0 )
    Exit Function
err:
    FreeLibrary lb
    InitFinger =  0 
End Function

а как ей параметры param1 и param2 передать? пробовал загнать в параметры CallWindowProc, но толи ума не хватает, толи делаю что нитак... подскажите как правильно....

...

Рейтинг:

0 / 0

03.01.2011, 16:36

| Ответить | Цитировать | Написать

CallWindowProc как передать параметр функции?

#37045358

Бенедикт

Участник

Сообщения: 2 108

Рейтинг: 0 / 0

Smiler™...у неё есть функция Init2 (param1 as Integer, param2 as string)Не верю (c). Это отсебятина. Прототип функции описан в заголовочном файле и/или в документации, и выглядит явно не так.
Smiler™саму функцию я вызываю таким образом:

Код: plaintext

1.
2.
3.

    ...LoadLibrary...
    ...GetProcAddress...
    ...CallWindowProc...

А зачем? Если имя библиотеки и функции известно, прототип (предполагается, что таки будет) известен, и используются соглашения вызова stdcall (это ключевой момент, который надо выяснить в доке или в .h), то можно объявить функцию через Declare и использовать простой вызов. Вопрос с переменным PathDB решается объявлением в Declare без пути, и переходом (ChDrive+ChDir) в PathDir перед первым вызовом функции .

...

Рейтинг:

0 / 0

04.01.2011, 02:38

| Ответить | Цитировать | Написать

2 сообщений из 2, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / CallWindowProc как передать параметр функции?

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=37044976&tid=2159098]:	0ms
get settings:	11ms
get forum list:	13ms
check forum access:	3ms
check topic access:	3ms
track hit:	32ms
get topic data:	10ms
get forum data:	2ms
get page messages:	50ms
get tp. blocked users:	2ms
others:	319ms

total:	445ms