Хочу использовать DLL (DrvMercFR.dll)
Dim MercFRDLL
Set MercFRDLL = CreateObject("AddIn.DrvMercFR")
========================================
А куда класть саму DLL чтобы к ней обращаться таким образом?
Попробовал в референсах - она не подключается там?

а regsrv32 делал - ты ее сначала пропиши в винде

Попробовал в референсах - она не подключается там?

нет

Эту DLL не нужно регистрировать, но она должна лежать либо в папке с ехе-шником программы либо в папке, которая прописана в путях "PATH" виндоус.
Для работы с ней и обращения к функциям нужно знать, как эти функции декларировать в коде программы. Это могут сказать разработчики этой DLL. Возможно, есть примеры использования этой DLL в проектах.

Вот распространенный пример использования DLL с предварительной декларацией.

'Declare Function ShellExecute& Lib "shell32.dll" Alias "ShellExecuteA" (ByVal _
' hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal _
' lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long)

Спасибо Коттт
Не помогает

Private Sub Кнопка0_Click() Declare Function RegTestDLL Lib "DrvMercFR.dll" Alias _     "DllRegisterServer" () As Long Const ERROR_SUCCESS = 0& Dim retCode As Long On Error Resume Next  ' включаем программную обработку ошибок ChDrive "C:"        ' Устанавливаем нужный ChDir "C:\" & CurrentProject.Path    ' каталог текущим regCode = RegTestDLL()  ' регистрация Test.DLL ' анализ возможных ошибок If Err <> 0 Then   MsgBox "Файл Test.DLL не найден" Else   If regCode <> ERROR_SUCCES Then     MsgBox "Операция регистрации не выполнена"   End If End If End Sub

пишет

вар № 2.

В Windows XP запустить можно через «пуск -> выполнить«. В Windows 7 такой трюк не пройдет — нет прав администратора, чтобы обойти создайте текстовый документ с содержанием

regsvr32 [имя файла.dll]

сохраните как com.bat (.bat – исполняемый файл) и запустите от имени администратора (правой кнопкой мыши по файлу).


п.с. ХР рулит!!!!

эффекта нет.
С dll кой работать не получается.

Дрюня уже ответил.

Нашёл вот функцию динамической подгрузки библиотеки, но ругается на ( LB = LoadLibrary(Path))

Public Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Public Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Public Declare Function FreeLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal ÜÈïé As Long, ByVal Msg As Long, ByVal WPARAM As Long, ByVal LPARAM As Long) As Long

Public Function DLLOCX(ByVal hWnd As Long, ByVal Path As String, ByVal Register As Boolean) As Boolean               On Error Resume Next         Dim LB As Long, PA As Long               LB = LoadLibrary(Path)         If LB = 0 Then Exit Function                If Register = True Then          PA = GetProcAddress(LB, "DllRegisterServer")         Else          PA = GetProcAddress(LB, "DllUnregisterServer")         End If                  If PA = 0 Then GoTo 0         Call CallWindowProc(PA, hWnd, ByVal 0&, ByVal 0&, ByVal 0&)         DLLOCX = True 0         Call FreeLibrary(LB)           End Function

Это было вчера, я уже на то забыл.
Сейчас вот что наклюнулось

Private Sub Command1_Click() If DLLOCX(1, App.Path & "\DrvMercFR.dll", True) Then .... ................... End If End Sub

Всё работает без ошибок, но как теперь использовать функции этой динамически подключенной библиотеки?

И где здесь решение Дрюни?

Заодно - ссылочка (всё об этом ..)
http://vsokovikov.narod.ru/New_MSDN_API/DLL/ogl_dll.htm
но чё та не пахает .....

почитай вот это
http://incotexkkm.ru/forum/viewtopic.php?f=7&t=71
и по ссылкам в этой теме

в виндах есть
shell32.dll
она тоже не регистрируется в референсах и объект создать нельзя, но использовать ее можно используя Declare
В сети полно мест где есть текстовый файл содержащий описания для особо популярных виндовых библиотек (даже на hiprog есть пример)

КАК, какие в этой библиотеке есть функции и какие параметры они принимают лучше всего узнать у разработчиков.
или использовать спец. программы
например
http://www.nirsoft.net/utils/dll_export_viewer.html

Возможен вариант что ее вообще нельзя использовать из VB.

Вот описание встроеной функции, токиа соединения пока нет у мну.

.Управление соединением /***********************************/  int  stdcall Connect(unsigned char PortNum,                           unsigned short BaudRate                       unsigned short Timeout,                      char pass[6]                                          );   Описание:     Функция открывает соединение с ККМ через последовательный интерфейс. Параметры: PortNum - номер COM-порта BaudRate  - скорость соединения(б/с.) Timeout -  таймаут в мс.(Максимально допустимое время ожидания ответа ККМ) Возвращаемые значения:             SUCCESS – соединение успешно открыто.             ERR_INVALID_ARG – неверно заданы параметры соединения.             ERR_NO_RESPONSE – ККМ не ответил в течении времени заданного             параметром Timeout.              ERR_OS_ERROR - ошибка операционной системы                                     /**/ /*******************/

Ваще то есть такая библиотека - для доступа к функциям таких библиотек - как та, что попалася мне.
file:///C:/1_%D0%A2%D0%B5%D0%BA%D1%83%D1%89%D0%B5%D0%B5/1_AVTO_WASH/COMPONENTS/FR%20%D0%94%D1%80%D0%B0%D0%B9%D0%B2%D0%B5%D1%80/Help.html#regsvr

DynamicWrapperX v1.0

После её регистации - всё становится проще

Private Sub Command2_Click() Dim DX  As Object Dim res Set DX = CreateObject("DynamicWrapperX")                    ' Создание объекта. ' вызов функции с параметрами DX.Register App.Path & "\DrvMercFR.dll", "Connect", "i=hhhs", "r=l"    ' Регистрация функции из dll. res = DX.Connect(1, 9600, 400, "000000") ' вызов функции без параметров DX.Register App.Path & "\DrvMercFR.dll", "Xreport"   ' Регистрация функции из dll. res = DX.XReport     ' Вызов. End Sub

Кстати о регистрации DLL и OCX в winde7
Нужна отключить в параметрах учётных записей - контроль учётных записей - поставить самый низкий уровень слежения.
И тада можно от имени админа - делать имену