| |
|
|
| | Помогите кто чем может.
Есть у меня DLL -ка.
Ссылку я на неё сделал.
В браузере объектов её видно.
все её свойства и процедуры все по русски.
Но не могу создать объект в программе (в коде программы), чтобы воспользоваться этой ХХХХХ.DLL.
Пишу
set delelka = createObject(
акак и что к чему чё-то тормоз...
может так как-то
Set delelka= New Object
я с этим раньше не работал ,а тута вот добрался и растерялся. | |
| |
| |
| |
|
|
| | DLL бывают разные.
Это видимо ActiveX dll?
Если вы видите в Object Browser классы этой библиотеки, то попробуйте объявить так
set delelka = createObject("ИмяБиблиотеки.ИмяКласса"). Публичных классов может быть несколько.
Имя библиотеки вы видите в Object Browser. | |
| |
| |
| |
|
|
| | так значит возле бинокля у нас Имя библиотеки...
а пониже в левом окне идут классы
их 4 штуки
set delelka = createObject("ИмяБиблиотеки.ИмяКласса").
я правильно понял?(понимаю въезжаю  )
Dim delelka as object
set delelka = createObject("ИмяБиблиотеки.ИмяКласса").
|
и потом можно обращаться к свойсивам
Dim свойство as variant
свойство= delelka.свойство
|
или если я знаю ИмяКласса
то и так можно к свойствам обратиться???
Dim class As ИмяКласса
Dim свойство as variant
свойство=class.свойство
|
2. Но вот в браузере есть, а в режиме редактора форм =вставка= =Элемент АстивеХ= нет такого? почему-так?
пишу regsvr32.exe "C:\работа\разработки\Drova\FprnM1C.dll"
пишу regsvr32.exe C:\работа\разработки\Drova\FprnM1C.dll
выскакивает-=не найден указаный модуль=- | |
| |
| |
| |
|
|
| | >2. Но вот в браузере есть, а в режиме редактора форм
>=вставка= =Элемент АстивеХ= нет такого? почему-так?
А почему должен быть? Значит это не АстивеХ контрол. | |
| |
| |
| |
|
|
| | ё моё 
А кто же это?
вот что с ним поставляется, но тоже не раьотает...
Private ECR As Object
Private Sub Demo()
' занимаем порт
ECR.DeviceEnabled = True
If ECR.ResultCode <> 0 Then
Exit Sub
End If
' получаем состояние ККМ
If ECR.GetStatus <> 0 Then
Exit Sub
End If
' проверяем на всякий случай ККМ на фискализированность
If ECR.Fiscal Then
If MsgBox("ККМ фискализирована! Вы действительно хотите продолжить?", vbICONEXCLAMATION + vbYesNo) = vbNo Then
Exit Sub
End If
End If
' если есть открытый чек, то отменяем его
If ECR.CheckState <> 0 Then
If ECR.CancelCheck <> 0 Then
Exit Sub
End If
End If
' если смена открыта снимаем Z-отчет
If ECR.SessionOpened Then
' устанавливаем пароль системного администратора ККМ
ECR.Password = "30"
' входим в режим отчетов с гашением
ECR.Mode = 3
If ECR.SetMode <> 0 Then
Exit Sub
End If
' снимаем отчет
ECR.ReportType = 1
If ECR.Report <> 0 Then
Exit Sub
End If
End If
' входим в режим регистрации
' устанавливаем пароль кассира
ECR.Password = "1"
' входим в режим регистрации
ECR.Mode = 1
If ECR.SetMode <> 0 Then
Exit Sub
End If
|
| |
| |
| |
| |
|
|
| |
Private Sub Form_Open(Cancel As Integer)
On Error GoTo NotOLE
' создаем объект общего драйвера ККМ
' если объект создать не удается генерируется исключение, по которому завершается работа приложения
Set ECR = CreateObject("AddIn.FprnM45")
Exit Sub
NotOLE: 'Обработка ошибки при создании OLE-объекта
A = MsgBox("Ошибка при создании объекта AddIn.FprnM45", vbCritical + vbOKOnly)
Cancel = 1
End Sub
|
Призапуске сразу пишет ошибка при создании объекта
и правда он ведь не зарегистрирован
хотя ссылку сделать можно и в браузере все классы видно и свойства иметоды , а вот ....
| |
| |
| |
| |
|
|
| | дык, может это защита какая нибудь?
Может ключ или лицензия проверяется... | |
| |
| |
| |
|
|
| | Возможно так оно и есть...
хотя распространяется в комплекте с касовыми аппаратами и на каждом диске примеры использования её на многих языках программирования в т.ч. и на Access 2000, но не регится собака такая... я на их сайт пошёл спросил что за ... пока не ответили.
 | |
| |
| |
