Утечка памяти функцией VirtualAlloc

[gracilic]

Использование функции VirtualAlloc для выделения памяти забивает память, даже если её освобождать функцией VirtualFree и ведёт в конечном итоге к переполнению overflow! Это наглядно показано в приведённом примере. Скажу сразу: результат выполнения VirtualFree не нулевой, более того, даже если убрать строку с VirtualFree, результат не меняется! Что следует сделать, чтобы освобождать память полностью перед её следующим выделением?

Код: Выделить всё


Private Declare Function VirtualAlloc Lib "kernel32" (ByVal lpAddress As Long, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long
Private Declare Function VirtualFree Lib "kernel32" (ByVal lpAddress As Long, ByVal dwSize As Long, ByVal dwFreeType As Long) As Long

Private Const MEM_COMMIT As Long = &H1000
Private Const PAGE_READWRITE As Long = &H4
Private Const MEM_DECOMMIT As Long = &H4000

Private Sub Command1_Click()
Dim mPtr As Long
List1.Clear
For i = 0 To 9
    mPtr = VirtualAlloc(0, 4096, MEM_COMMIT, PAGE_READWRITE)  'Выделяем память
    VirtualFree mPtr, 0, MEM_DECOMMIT 'Освобождаем память
    List1.AddItem mPtr 'Добавляем результат
Next i
End Sub


[BV]

Эм. Разве вторым параметром в VirtualFree не должно быть кол-во страниц для освобождения (в данном случае 4096)?

[gracilic]

Эм. Разве вторым параметром в VirtualFree не должно быть кол-во страниц для освобождения (в данном случае 4096)?

Даже если их указать, то ничего не изменится!

P/S/: В условии я уже указал, что VirtualFree возвращает не нуль, то есть работает.

[Хакер]

gracilic
1) Что означает термин "переполнение overflow" по отношению к памяти, и вообще, означает ли что-нибудь?
2) На основании чего ты решил, что память не освобождается?

[gracilic]

gracilic
1) Что означает термин "переполнение overflow" по отношению к памяти, и вообще, означает ли что-нибудь?
2) На основании чего ты решил, что память не освобождается?

Если выполнить приведённый программный код, то всё будет ясно: циклическое чередование функций VirtualAlloc и VirtualFree приводит к переполнению памяти, в итоге появляется ошибка 6 - overflow. Контрол List1 наглядно показывает увеличение выделенной памяти. Или я не прав в терминологии? Что же тогда увеличивается и приводит к ошибке? И как этого избежать?

[Хакер]

Если выполнить приведённый программный код, то всё будет ясно: циклическое чередование функций VirtualAlloc и VirtualFree приводит к переполнению памяти, в итоге появляется ошибка 6 - overflow.

Ошибка 6-Overflow не имеет ничего общего с переполнением памяти. C ним связана ошибка 7-Out of memory

А что показывает ListBox? Неодинаковые адреса? А почему ты решил, что он обязательно должен показывать одинаковые?

У меня, например, никаких ошибок не возникает. Ну а память, да, действительно не освобождается. Потому что ты её только лишь декоммитишь, но не освобождаешь.

А в чём необходимость использования именно Virtual-функций?

[gracilic]

Ошибка 6-Overflow не имеет ничего общего с переполнением памяти. C ним связана ошибка 7-Out of memory
...
А в чём необходимость использования именно Virtual-функций?

Из сказанного тобой я понял, что mPtr - это всего адрес, хотя я считал это массивом информации. Наверное, overflow появлется, когда этот адрес превышает значение для переменной типа long, то есть 2 в 31 степени?
Но как сделать, чтобы адрес оставался прежним. Кроме того,
если при помощи функции GetProcessMemoryInfo проследить занимаемую процессом выполняемого приложения память, то оказывается, что она тоже увеличивается пропорционально mPtr!!!
Именно это я и считаю проявлением "утечки памяти". Или я не прав?
А какие альтернативы Virtual-функциям?

[Хакер]

Из сказанного тобой я понял, что mPtr - это всего адрес, хотя я считал это массивом информации. Наверное, overflow появлется,

О ужас.

Наверное, overflow появлется, когда этот адрес превышает значение для переменной типа long, то есть 2 в 31 степени?

Он не может превышать его на x86 платформах.

Но как сделать, чтобы адрес оставался прежним. Кроме того,
если при помощи функции GetProcessMemoryInfo проследить занимаемую процессом выполняемого приложения память, то оказывается, что она тоже увеличивается пропорционально mPtr!!!
Именно это я и считаю проявлением "утечки памяти". Или я не прав?

Ты совсем не так, как следует, работаешь с Virtual-функциями.

А какие альтернативы Virtual-функциям?

О, их много. Но я тебе рекомендую обратить свой взор в сторону кучи и, соответственно, - Heap-функций.

[ANDLL]

Н-да...
Напиши
VirtualFree(mPtr, 0, &H8000&)
И у тебя будут постоянные адреса.

[Хакер]

ANDLL
Я же уже упомянул это.

[ANDLL]

А почему ты решил, что он обязательно должен показывать одинаковые?

Ну вообщето потому, что адреса гененрируются вовсе не генератором случайных чисел

[ANDLL]

Я же уже упомянул это.

Причем автор не заметил это, потому что упоминание было сделано наудивление неудачно

[ANDLL]

Кажется, трех сообщений подряд форум не выдержал.
Может все таки соберем пожертвования на нормальный компьютер для форума?

[Хакер]

ANDLL
Чем это он не выдержал?

[gracilic]

Я же уже упомянул это.

Причем автор не заметил это, потому что упоминание было сделано наудивление неудачно

AnDLL, спасибо за попытки помочь, я давно это заметил, ещё до написания вопроса, но строка VirtualFree mPtr, 0, MEM_RELEASE, если ты это имел ввиду, также не работает, адрес всё равно увеличивается. Поэтому я и не обратил внимания на пустой совет Хакера.

[gracilic]

Ты совсем не так, как следует, работаешь с Virtual-функциями...

Любое "не так" надо доказывать .
А память пожирается - и это факт! Я так понимаю, что это особенность Virtual, и действительно надо просто отказаться от работы с ней.

[Хакер]

gracilic
Ты действительно настолько наивен, что считаешь, что ты первый обнаружил, что в Windows неправильно работают Virtual-функции?

И, если человек пытается завести машину, поворачивая руль, как доказать ему, что он делает это не так, как следует. Да и стоит ли?

[gracilic]

gracilic
Ты действительно настолько наивен, что считаешь, что ты первый обнаружил, что в Windows неправильно работают Virtual-функции?

Я этого не говорил...

gracilic
И, если человек пытается завести машину, поворачивая руль, как доказать ему, что он делает это не так, как следует. Да и стоит ли?

А умён ли тот, кто, глядя на это, лишь посмеивается и вопрошает у посторонних, как доказать? И что, тяжело было сразу сказать, что с Virtual лучше не связываться? Но всё равно, спасибо за отклик!

[Хакер]

gracilic
А с чего ты взял, что тот, кто глядит на это, вообще посмеивается?
И сказать, что с "Virtual лучше не связываться" действительно было тяжело, потому что это несправедливое высказывание.