Я думаю, ни для кого не секрет, что некоторый запас свободной оперативной памяти для работы приложений влияет на производительность. Оптимизировать процесс распределения памяти между программами можно установкой специальных сервисов, которые периодически сбрасывают часть данных в своп-файл. Особенно это актуально на компьютерах с небольшим объемом оперативной памяти.
В процессе решения этой проблемы я попытался создать модуль освобождения оперативной памяти, который вызывался бы с некоторой периодичностью или перед выполнением длительных, ресурсоемких операций. Отсутствие информации по работе стандартного менеджера привело к следующему выводу: нужно попытаться выделить достаточно большой участок памяти под какой-нибудь объект, а затем освободить его. При этом менеджер памяти Windows сбрасывает часть данных в своп.
Пример функции, реализующей данный алгоритм:
function BS_FreeMem(const aBuf Size: Integer):boolean;
var
tmpBuffer: PChar;
begin
result:=true;
try
//Выделяем буфер заданного размера
GetMem(tmpBuffer, aBufSize);
try
//Заполняем буфер нулями для имитации его использования
FillChar(tmpBuffer^, aBufSize, 0);
finally
FreeMem(tmpBuffer);
end;
except
result:=false;
end;
end;
На машинах класса Windows NT можно попробовать воспользоваться API-функцией SetProcessWorkingSetSize.
Вызов данной функции со значениями параметров dwMinimumWorkingSetSize и dwMaximumWorkingSetSize, равными $FFFFFFFF, вызывает сброс страниц памяти, занятых процессом, в своп-файл. Например:
SetProcessWorkingSetSize (GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);
Вызывать созданную фунцию можно по таймеру, например:
procedure TfrmMain.Digital ClockMinute (Sender: TObject; DDGTime: TDateTime);
var
MemStat:TMemoryStatus;
fMemPercent:Extended;
bufSize:Variant;
oldHint:String;
oldCursor:TCursor;
begin
//Глобальная переменная, определяющая активность функции
if gInternalMemManager then
begin
MemStat.dwLength := SizeOf (TMemory Status);
GlobalMemoryStatus(Mem Stat);
fMemPercent:=(MemStat.dw TotalPhys-MemStat.dwAvailPhys);
fMemPercent:=fMemPercent* 100/MemStat. dwTotalPhys;
//Вызываем функцию, при загрузке памяти более 90%
if fMemPercent > 90 then
try
oldHint:=Application. Hint;
oldCursor:=Screen. Cursor;
Screen.Cursor:=crHour Glass;
Application.Hint:='Освобождение оперативной памяти..';
//вычисляем размер выделяемого буфера
bufSize:=(MemStat.dwTo-talPhys-MemStat.dwAvailPhys)/2;
BS_FreeMem(Integer (buf Size));
finally
Application.Hint:=oldHint;
Screen.Cursor:=oldCursor;
end;
end;
end;
Следует заметить, что на 100% проблема не решается, так как на освобождение памяти требуется некоторое время, и вызов функции освобождения памяти может произойти в неподходящий момент — например, когда пользователь вводит данные и не смотрит на экран. Буду признателен за возможные идеи решения поставленной задачи.
Автор: Сергей Бердачук