Взаимодействие с драйвером
Oleg-57
Дата: 06.11.2009 15:00:22
Как можно из Аксес взаимодействовать с каким-нибудь драйвером? Например с драйвером кассового аппарата. У драйвера есть функции, свойства. Намекните, пожайлуста общие принципы.
develed
Дата: 06.11.2009 16:17:35
Читай документацию. У многих драйверов для взаимодействия есть классы. Например у Атол драйвер ККМ, есть класс для работы из VBA. У меня уже несколько лет работает регистратор Феликс из Access.
T_Alex_G
Дата: 06.11.2009 16:22:45
Насчет драйверов не знаю но с dll работаю как то так
в заголовок модуля добавить
Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
...
End Type
использовать функцию можно так
Dim OpenFile As OPENFILENAME
Dim lReturn As Long
OpenFile.lStructSize = Len(OpenFile)
OpenFile.hwndOwner = Application.hWndAccessApp
.......
lReturn = GetOpenFileName(OpenFile)
develed
Дата: 06.11.2009 16:28:06
Кстати, какой кассовый аппарат?
Oleg-57
Дата: 06.11.2009 16:31:27
Спасибо, попробую.
Oleg-57
Дата: 06.11.2009 16:32:34
Пока только хотят приобрести. Какоё рекомендуешь?
Oleg-57
Дата: 06.11.2009 16:40:19
develed,
Выложи, пожайлуста, код взаимодействия с драйвером. Хочу посмотреть саму идею.
develed
Дата: 06.11.2009 16:46:01
На цвет и вкус ...
В моем случае выбирать не приходилось, шеф ориентировался на цену и мнение кэкээмщиков (простота и надежность), купил фискальный регистратор Феликс-2К. Но перед этим спросил сможешь завести? Я почитал документацию, там есть примеры, взял на опыты экземпляр и сваял модуль для работы из своей программы. Ничего сверхсложного :).
develed
Дата: 06.11.2009 16:48:23
Код длинноватый: проверка того, сего. На сайте Атола внятная документация с примерами.
develed
Дата: 06.11.2009 17:00:20
Выкладываю как есть, чикать что-то сил нет, башка трещит (сегодня ветер с морозом вдарил). Лишнее пропускай. Некоторые строки с цифрами остались с времен отладки.