Chon100k.dll и MS Access

Пользователь

Сообщений: 9 Регистрация: 04.05.2009

04.05.2009 13:00:56

На форуме эта тема уже затрагивалась, но администрация рассылал примеры на мыло, поэтому решения я так и не увидел

При вызове из Access
Private Declare Function ConnectKKM Lib "Chon100K.dll" (Port As Long) As Long
Private Declare Sub SetSupplierCode Lib "Chon100K.dll" (ByVal idKKM As String)

Private Sub Button3_Click()

Dim strCon As String
Dim lPort As Long

strCon = "08011141"
lPort = 1
SetSupplierCode strCon
ConnectKKM lPort

End Sub

Access "падает"
Помогите! Заранее благодарен!

Евгений Кокорников

Администратор

Сообщений: 931 Регистрация: 31.10.2002

05.05.2009 10:05:15

Вероятнее всего, что проблема связана с неправильным объявлением функции ConnectKKM. В VBA по умолчанию параметр во внешнюю функцию передается по ссылке, а функция ConnectKKM принимает 4-байтовое целое значение номера порта. В Вашем случае в функцию передается не значение номера порта, а адрес переменной, в которой это значение храниться.

Попробуйте явно указать передачу параметра по значению, т.е.

Private Declare Function ConnectKKM Lib "Chon100K.dll" (ByVal Port As Long) As Long

nast Пользователь Сообщений: 9 Регистрация: 04.05.2009	#3 05.05.2009 10:14:17 Голова моя садовая!! Спасибо!!!!!, но все равно придется писать COM для вашей библиотеки что б с 1С работала

Евгений Кокорников Администратор Сообщений: 931 Регистрация: 31.10.2002	#4 05.05.2009 10:19:20 Не за что . Для 1С есть готовая компонента. Свою обвязку вокруг chon100k.dll имеет смысл писать только если Вы решили сэкономить на разнице стоимости этих программных продуктов.

nast Пользователь Сообщений: 9 Регистрация: 04.05.2009	#5 05.05.2009 10:53:03 На написание уйдет несколько часов(опыт уже есть), да к тому же "своя рубашка ближе к телу"