VBNet - Форум - Ошибка при выполнении как боротся?

Вопрос: Ошибка при выполнении как боротся? Добавлено: 12.09.02 18:37

Автор вопроса: 1alex1

Clas not registred.
Loking for object ....
Возникает на некоторых компах, в exe впихнуты dll, как боротся?

Ответить

Ответы Всего ответов: 5

Номер ответа: 1
Автор ответа:

LIS

Вопросов: 7
Ответов: 256

Профиль | | #1

Добавлено: 12.09.02 18:41

Did you registed dll?

Ответить

Номер ответа: 2
Автор ответа:

paul_sn

Вопросов: 16
Ответов: 164

Web-сайт: sergeyev.zzn.com
Профиль | | #2

Добавлено: 12.09.02 19:29

Регистрируй DLL в коде:

Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Function Reg(ByVal Str_Reg As String) As Long
    On Error Resume Next
    Reg = LoadLibrary(Str_Reg)
    CallWindowProc GetProcAddress(Reg, "DllRegisterServer"), 0, 0, 0, 0
End Function

Потом просто вызываешь функцию Call Reg (путь к DLL)

Ответить

Номер ответа: 3
Автор ответа:

LIS

Вопросов: 7
Ответов: 256

Профиль | | #3

Добавлено: 12.09.02 19:33

Much easy...

RegApp = "regsvr32 " + sysDir + "\" + aSysDll(i) + " /s"

res = Shell(RegApp)

where sysdir - path to dll

asysdll(i) array with dlls or dll name

/s key (not show msgbox about result

Good Luck

Ответить

Номер ответа: 4 Автор ответа: 1alex1 Вопросов: 2 Ответов: 3	Профиль \| \| #4	Добавлено: 12.09.02 20:06
	У меня все библиотеки впихнуты в ехе с помощь фузио, что делать в этом случае. Ответить

Номер ответа: 5 Автор ответа: Иван Администратор ICQ: 147688925 Вопросов: 24 Ответов: 708	Web-сайт: www.vbnet.ru Профиль \| \| #5	Добавлено: 12.09.02 22:22
	Значит глючит Фузио. Это бывает. И, похоже, что ты "попал". Ответить

Страница: 1 |