Конференция VBStreets

**sl-shem** » 23.05.2006 (Вт) 13:48

Прицепляю DLL к программке следующей функцикей:

Public Function Reg(ByVal strReg As String, ByVal lngLoad As Long) As Long
Reg = LoadLibraryA(strReg)
lngLoad = CreateThread(ByVal 0, 0, ByVal GetProcAddress(Reg, IIf(lngLoad, "DllRegisterServer", "DllUnregisterServer")), ByVal 0, 0, 0)
WaitForSingleObject lngLoad, 10000
CloseHandle lngLoad
FreeLibrary Reg
End Function

dll прицепляется нормально. Но мне иногда необходимо во время выполнения программы удалить ее и тут вылетает ошибка.

Как можно открепить dll во время выполнения???

**Viper** » 23.05.2006 (Вт) 14:12

А в чем смысл вышеприведенного кода? Это во-первых, во-вторых, какую DLL ты таким образом цепляешь и, в-третьих, какую DLL и, главное, зачем ты пытаешься удалить?

**sl-shem** » 23.05.2006 (Вт) 14:29

Activex DLL.

**Viper** » 23.05.2006 (Вт) 14:37

мдя©.... а регистрировать ссылки на ActiveX библиотеку не пробовал?

Я уж не спрашиваю зачем от нее "отцепляться"...

**sl-shem** » 23.05.2006 (Вт) 14:41

1. DLL вытаскиватся из БД.
2. Их очень много и постоянно добавляються новые!
3. Конечно можно и не удалять (но очень хочеться для удобства)

**Twister** » 23.05.2006 (Вт) 14:45

Ничего не буду советовать - DLL хранящиеся в БД это просто LOL... :lol:

**sl-shem** » 23.05.2006 (Вт) 14:46

кстати удобно и все работет нормально!!!!

**Twister** » 23.05.2006 (Вт) 14:51

Ладно, а какая ошибка?

**sl-shem** » 23.05.2006 (Вт) 14:53

Возникает ошибка занятости файла.

**Viper** » 23.05.2006 (Вт) 14:55

И зачем DLL в базе данных? Какой в этом великий смысл?

**Twister** » 23.05.2006 (Вт) 14:56

Может поток еще не завершился к тому времени, когда ты пытаешься DLL выгрузить. Ведь многопоточность в VB не так проста, как кажется...
Хотя наврядли, там у тебя стоит WaitForSingleObject.

**Viper** » 23.05.2006 (Вт) 14:57

sl-shem писал(а):Возникает ошибка занятости файла.

Как это не традиционно звучит, но код в студию!

**Twister** » 23.05.2006 (Вт) 14:58

И зачем DLL в базе данных? Какой в этом великий смысл?

Не, ну впринципе иногда может стоит зранить DLL в централизованной базе чтоб легче было обновлять, но, ИМХО, это изврат...

**sl-shem** » 23.05.2006 (Вт) 14:58

блин ну сидит человек 500 работат. Надо немного подправит функцию в dll. И что бы у всех заработало надо всем обьяснить где взять обновление как установить и тд. А так лежит в базе и когда надо обратиться к dll она просто от туда берется!!!

**Twister** » 23.05.2006 (Вт) 14:59

sl-shem
Существуют другие способы синхронного обновления модулей...

**sl-shem** » 23.05.2006 (Вт) 15:01

не я этот способ придумывал он уже рабоат так давно!!!

**Viper** » 23.05.2006 (Вт) 15:10

Так все-таки выложи код, с указанием места в котором вылезаем ошибка

**sl-shem** » 23.05.2006 (Вт) 15:12

нет!

**Twister** » 23.05.2006 (Вт) 15:15

Так все-таки выложи код, с указанием места в котором вылезаем ошибка

Думаю ошибка вылетает там, где он пытается удалить файл. Но тот код не поможет, так как просто не выгружена библиотека. Попробуй для хранения значения, возвращаемого LoadLibrary завести отдельную переменную. Может в этом весь прикол. Ну а вообще конечно так гадать на кофейной гуще - много не нагадаешь. Но причину могу сказать на 90% - не везде сработала FreeLibrary...

**sl-shem** » 23.05.2006 (Вт) 15:17

Пробывал заводить отдельную переменную не помагат!!!

**Twister** » 23.05.2006 (Вт) 15:17

нет!

А это что, коммерческая тайна? :lol:

**sl-shem** » 23.05.2006 (Вт) 15:20

Нет код конечно можно выложить тока там много лишнего будет. А ошибка вылетат при KILL "путь до файла\имя фала"

**Twister** » 23.05.2006 (Вт) 15:25

sl-shem писал(а):Пробывал заводить отдельную переменную не помагат!!!

Twister писал(а):не везде сработала FreeLibrary

Это судя по приведенному коду. Проверь и убедись, что FreeLibrary везде сработала. Я имею ввиду точно посчитай кол-во вызовов LoadLibrary и сравни с кол-вом удачных FreeLibrary. Тем более там у тебя потоки, о проблемах с которыми можешь почитать здесь. Попробуй модифицировать код. Да и вообще, зачем использовать потоки?

**keks-n** » 23.05.2006 (Вт) 15:25

sl-shem
Пиши для своей проги запускалку, которая после завершения оной почиститпапку с DLL. Тогда не возникнит ошибки, ибо DLL никто уже точно не использует.

**Viper** » 23.05.2006 (Вт) 15:27

а FreeLibrary нормально срабатывает?

**Twister** » 23.05.2006 (Вт) 15:29

ActiveX делает LoadLibrary ещё раз.

Но VB второй раз и выгружать ее должен тоже, по идее.

Пиши для своей проги запускалку, которая после завершения оной почиститпапку с DLL

Ага, лучше сразу инжект соответствующего асмовского кода в эксплорер, чтоб наверняка сработало... Нет! Это не решение.

**Viper** » 23.05.2006 (Вт) 15:35

Наверно стоит воспользоваться советом keks-n. Делать дополнительную прогу, которая вытаскивает все нужные dll из БД, регистрирует их, загружает прогу, дожидается ее завершения, отменяет регистрацию и прибивает dll.

**sl-shem** » 23.05.2006 (Вт) 15:38

Ладно, спасибо всем!

**Twister** » 23.05.2006 (Вт) 15:38

загружает прогу, дожидается ее завершения, отменяет регистрацию и прибивает dll

А если перезагрузка? DLL-ли (мусор) останутся.

**sl-shem** » 23.05.2006 (Вт) 15:42

Да все равно остаеться!!!

Конференция VBStreets

Как удалить DLL???

Как удалить DLL???

Кто сейчас на конференции