VPF::? Выделить страницу памяти в указанном диапазоне.

Чучмек

Дата 29.7.2011, 10:51 (ссылка)

(нет голосов)

Загрузка ...

НЭТ БИЛЭТ

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 14
Всего: 41

Необходимо выделить страницу памяти с заранее указанным старшим байтом адреса.
Тобиш, например, в диапазоне $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 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

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

)

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

VirtualQuery

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

)

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

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

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

Чучмек

Дата 30.7.2011, 15:12 (ссылка)

(нет голосов)

Загрузка ...

НЭТ БИЛЭТ

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 14
Всего: 41

Цитата(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 для того же адреса

--------------------

умную мысль держи при себе, а дурной - поделись с другими

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »