| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как определить размер пошаренного файла в памяти ... [D5, Win95/98, WinME, NT4, Win2k, WinXP]

ai ©   (2002-09-16 07:53:00) 

Как определить размер пошаренного файла в памяти, созданного другой прогой с помощью CreateFileMapping в pagefile? GetFileSize и FileSeek как я понял не могут здесь применяться :(

---

paul_shmakov   (2002-09-19 11:39:00) [1]

я не уверен, что это будет работать везде, потому как этот способ просто в голову вчера пришел, а не из msdn вычитан.
тестировал только под w2k. нужно еще и под другими версиями проверить.
кстати, чтобы у Вас не было "никаких исключений" всегда создавайте mmf (если, конечно Вы их создаете) с размером, кратным размеру страницы.

---

ai   (2002-09-19 09:33:00) [2]

2paul_shmakov :
Большое спасибо! Я просто был уверен, что это возможно :)) Я думаю, если я скопирую в буфер блок этого размера, то никаких исключений не произойдет.

---

paul_shmakov   (2002-09-18 18:31:00) [3]

если размер меньше 4Gb, то вот я пример набросал.

//
// mmfsize.dpr
// paul_shmakov
// obtain memory mapped file size
//
program mmfsize;

{$APPTYPE CONSOLE}

uses Windows, Sysutils;

function GetMMFSize(const MMFName: string): DWord;
var
MMFHandle: THandle;
Map: Pointer;
Mbi: MEMORY_BASIC_INFORMATION;
begin
Result := 0;
MMFHandle := OpenFileMapping(FILE_MAP_ALL_ACCESS, false, PChar(MMFName));
if MMFHandle <> 0 then
begin
Map := MapViewOfFile(MMFHandle, FILE_MAP_ALL_ACCESS, 0, 0, 0);
if Assigned(Map) then
begin
VirtualQuery(Map, Mbi, SizeOf(Mbi));
Result := Mbi.RegionSize;
UnmapViewOfFile(Map);
end;
CloseHandle(MMFHandle);
end;
end;

const
MMFName = "MY_MMF";
var
MMFHandle: THandle;
Si: SYSTEM_INFO;
begin
MMFHandle := CreateFileMapping(THandle($FFFFFFFF), nil, PAGE_READWRITE,
0, 1242048, PChar(MMFName));

if MMFHandle <> 0 then
begin
GetSystemInfo(Si);
WriteLn("MMF size aligned to " + IntToStr(Si.dwPageSize) +
" boundary is " + IntToStr(GetMMFSize(MMFName)));
// An output should be 1245184 that"s 1242048 aligned to 4096.
CloseHandle(MMFHandle);
end;
end.


---

ai   (2002-09-17 12:06:00) [4]

Обидно. Обидно, что никто не обратил внимания :(

---

ai   (2002-09-16 10:07:00) [5]

Ну че,никто не знает или невозможно???

---

Наверх