ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выгрузка Dll
4 сообщений из 4, страница 1 из 1
Выгрузка Dll
    #33655414
kinolog
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kinolog
Гость
Когда я вызываю диалог открытия файла из dll (comdlg.dll) забивается 5мб оперативки. Как ее выгрузить. Зарание благодарен.
...
Рейтинг: 0 / 0
10.04.2006, 12:01
| Ответить | Цитировать | Написать  
Выгрузка Dll
    #33655647
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
Код: plaintext
1.
Declare Function FreeLibrary Lib "kernel32" ( _
  ByVal hLibModule As Long) As Long
...
Рейтинг: 0 / 0
10.04.2006, 12:57
| Ответить | Цитировать | Написать  
Выгрузка Dll
    #33669700
kinolog
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kinolog
Гость
У меня есть хэндл диалога:
Код: plaintext
lngRet = FreeLibrary(UserControl.ContainerHwnd)
Но память от этого не убавляется((((
...
Рейтинг: 0 / 0
16.04.2006, 19:44
| Ответить | Цитировать | Написать  
Выгрузка Dll
    #33670281
Melkiades
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Melkiades
Участник
Сам долго матерился по этому поводу. Как только в приложении появляется коннекшн, оно отжирает 6 метров ОЗУ и не освобождает его).
А если посмотреть список загруженных приложением библиотек, то вообще глаза на лоб лезут - я такие сроду не использовал, и даже по смыслу они здесь присутствовать не должны были.
И вот на днях нашел решение (под NT). Думаю, пригодится всем.
Благодаря нижеприведенному коду приложение кушает в 10-15 раз меньше памяти (в режиме простоя).

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Private Declare Sub CoFreeUnusedLibraries Lib "ole32" ()
Private Declare Function SetProcessWorkingSetSize Lib "Kernel32.dll" (ByVal hProcess As Long, ByVal dwMinimumWorkingSetSize As Long, ByVal dwMaximumWorkingSetSize As Long) As Boolean
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long

Call CoFreeUnusedLibraries
Call SetProcessWorkingSetSize(GetCurrentProcess(), - 1 &, - 1 &)
...
Рейтинг: 0 / 0
17.04.2006, 10:15
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выгрузка Dll
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=33655647&tid=2166034]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 171ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 242ms
total:  479ms
созд. / загр.: 479ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]