Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > ? Выделить страницу памяти в указанном диапазоне.

Автор: Чучмек 29.7.2011, 10:51

Необходимо выделить страницу памяти с заранее указанным старшим байтом адреса.
Тобиш, например, в диапазоне $1A000000-$1AFFFFFF
Задачу решил простым перебором всех страниц в диапазоне:

Код


function getPage(ba:byte;var pagesize:cardinal):pointer;
type tm=array[0..3]of byte;
var
 si:TSystemInfo;
 npg:cardinal;
 i:integer;
 baseaddr:pointer;
begin
getsysteminfo(si);
pagesize:=si.dwPageSize;
npg:=trunc($1000000/pagesize);
for i:=0 to npg-1 do
 begin
 cardinal(baseaddr):=i*pagesize;
 tm(baseaddr)[3]:=ba;
 result:=VirtualAlloc(baseaddr,pagesize,MEM_RESERVE or MEM_COMMIT ,PAGE_READWRITE);
 if result<>nil then break;
 end;
end;

Вопрос в том - возможно ли обойтись без перебора. Запросив у системы наличие свободного адрессного пространства в регионе?

И еще, Для диапазона $00000000-$00FFFFFF функция возвращает страницу $00a30000
и с флагом MEM_COMMIT, и MEM_RESERVE or MEM_COMMIT. (XP-ха)
Как такое может быть???
Если адресное пространство зарезервированно - Почему тогда страница выделяется с флагом MEM_RESERVE or MEM_COMMIT ?
Если - не зарезервированно - Почему с только одним MEM_COMMIT???

Автор: CodeMonkey 29.7.2011, 15:00

Цитата(Чучмек @ 29.7.2011, 11:51

)

Запросив у системы наличие свободного адрессного пространства в регионе?

VirtualQuery

Цитата(Чучмек @ 29.7.2011, 11:51

)

Как такое может быть???

MEM_RESERVE + MEM_COMMIT - это обычная операция выделения памяти.

Автор: Чучмек 30.7.2011, 15:12

Цитата(CodeMonkey @ 29.7.2011, 15:00

)

VirtualQuery

ага,спасибо,я просто не дочитал(не внимательно прочитал) про эту функцию.
Но какое значение VirtualQuery должна возвращать для свободной страницы?
Для уже выделенной страницы VirtualQuery возвращает MEM_FREE

Код


function _getPage(ba:byte;var pagesize:cardinal):pointer;
type tm=array[0..3]of byte;
var
 si:TSystemInfo;
 i:integer;
 baseaddr:pointer;
 rba:pointer;
 mi:TMemoryBasicInformation;
begin
getsysteminfo(si);
pagesize:=si.dwPageSize;
rba:=nil;
tm(rba)[3]:=ba;
baseaddr:=rba;
result:=nil;
repeat
fillchar(mi,sizeof(mi),0);
mi.BaseAddress:=baseaddr;
mi.RegionSize:=$1000000;
if 0=VirtualQuery(baseaddr,mi,sizeof(mi)) then exit;
if mi.State=MEM_FREE then
 begin
 result:=VirtualAlloc(baseaddr,pagesize,MEM_RESERVE or MEM_COMMIT,PAGE_READWRITE);
 break;
 end;
baseaddr:=pointer(cardinal(baseaddr)+mi.RegionSize);
until  cardinal(baseaddr)>=cardinal(rba)+$1000000;
end;

Функция выделяет одну страницу, а при повторном вызове вызывает VirtualAlloc для того же адреса