[7.3] разъясните "на пальцах" как подключать COM/OCX
Добавлено: 20 Июнь 2012, 20:34
Уважаемые гуру! Наконец-то появился повод в очередной раз взяться за изучение любимого когда-то Клариона, но есть одна проблема: программа должна использовать внешний компонент (фирменную библиотечку для работы с одной железякой). Однако всё использование -- просто получение данных "запрос-ответ", без особых выкрутасов, а всё остальное в проге -- классическое ДБ-приложение.
Мануал по компоненту скромно говорит (на "китайском английском"): run regsvr32 Zkemkeeper.dll, the prompt will appear to indicate that register is successful, import this control to development tool. (Please refer to actual tools application) ability to use it through simply drag and drop.
Вот я сгенерил "заготовку" App, оно накидало деревце из Майн и процедур для примари файлов... А дальше?
Буду очень благодарен за объяснение "на пальцах" -- как в 7.3 сделать это "import this control to development tool" как можно "стандартнее" и ближе к Кларионовской идеологии, чтобы потом уже спокойно заниматься БД и интерфейсом и не терять возможность юзать Апп-ген и пр. вкусности.
Описания функций и примеры на VB выглядят примерно так:
[Function]
GetStrCardNumber(BSTR* ACardNumber)
[Purpose]
Return the card number with the string style.
[Parameter]
ACardNumber： Card number.
[Return value]
Return True for success, otherwise return False.
[Example]
Dim MachineNumber As Long
Dim UserNo As Long
Dim Privilege As Long
Dim UserName As String
Dim Password As String
Dim CardNo As String
Dim Enabled As Boolean
MachineNumber = 1;
While CZKEM1. GetAllUserInfo(MachineNumber, UserNo, UserName, Password, Privilege, Enabled)
...
CZKEM1.GetStrCardNumber(CardNo)
...
Wend
Ну и код в демо-примерах не сложнее:
Public Class Device
Public axCZKEM1 As New zkemkeeper.CZKEM
Private iMachineNumber As Integer
...
AxCZKEM1.RegEvent(iMachineNumber, 65535)
...
AxCZKEM1.GetLastError(idwErrorCode)
Мануал по компоненту скромно говорит (на "китайском английском"): run regsvr32 Zkemkeeper.dll, the prompt will appear to indicate that register is successful, import this control to development tool. (Please refer to actual tools application) ability to use it through simply drag and drop.
Вот я сгенерил "заготовку" App, оно накидало деревце из Майн и процедур для примари файлов... А дальше?
Буду очень благодарен за объяснение "на пальцах" -- как в 7.3 сделать это "import this control to development tool" как можно "стандартнее" и ближе к Кларионовской идеологии, чтобы потом уже спокойно заниматься БД и интерфейсом и не терять возможность юзать Апп-ген и пр. вкусности.
Описания функций и примеры на VB выглядят примерно так:
[Function]
GetStrCardNumber(BSTR* ACardNumber)
[Purpose]
Return the card number with the string style.
[Parameter]
ACardNumber： Card number.
[Return value]
Return True for success, otherwise return False.
[Example]
Dim MachineNumber As Long
Dim UserNo As Long
Dim Privilege As Long
Dim UserName As String
Dim Password As String
Dim CardNo As String
Dim Enabled As Boolean
MachineNumber = 1;
While CZKEM1. GetAllUserInfo(MachineNumber, UserNo, UserName, Password, Privilege, Enabled)
...
CZKEM1.GetStrCardNumber(CardNo)
...
Wend
Ну и код в демо-примерах не сложнее:
Public Class Device
Public axCZKEM1 As New zkemkeeper.CZKEM
Private iMachineNumber As Integer
...
AxCZKEM1.RegEvent(iMachineNumber, 65535)
...
AxCZKEM1.GetLastError(idwErrorCode)
