Вниз
Скачать: CL | DM;

Как определить размер пошаренного файла в памяти ...   Найти похожие ветки 

 
ai   (2002-09-16 07:53) [0]

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


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

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


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

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


 
paul_shmakov ©   (2002-09-18 18:31) [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-19 09:33) [4]

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


 
paul_shmakov ©   (2002-09-19 11:39) [5]

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.009 c
3-101096
Vovaka
2002-10-09 15:16
2002.10.31
Знатоки и пользователи Sybase ASE подскажите


8-101397
Ptushenko Denis
2002-07-06 13:51
2002.10.31
Подскажите как узнать установлена прога в системе или нет ?


14-101455
Дремучий
2002-10-10 17:30
2002.10.31
Глючит дата (год) регистрациии?


3-101175
Shapovalov K
2002-10-11 11:01
2002.10.31
после перезагрузки все изменения в таблицах пропадают.


1-101231
Kinder
2002-10-18 22:49
2002.10.31
Че за фигня-я-я-я ???




   Наверх