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

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

Вопрос по FileMapping [D4, Win95/98]

Паша ©   (2002-09-26 16:05:00) 

Для увеличения скорости обработки использую FileMapping, результаты впечатляют. Но мне необходимо изменить размер файла, например увеличить. В отладчике вижу, что Ptr увеличился - pchar(Ptr) = ["a","a", "b"]. После записи на диск длина файла остается прежней, хотя "aa" прописалось. Вот тестик:

Procedure zzz;
var
Ptr: Pointer;
hFile: integer;
hMapping: THandle;
i,j: integer;
begin
hFile := FileOpen("e:\10", fmOpenReadWrite + fmShareDenyNone);
Win32Check(hFile<>INVALID_HANDLE_VALUE);
try
hMapping := CreateFileMapping(hFile, nil, PAGE_READWRITE, 0, 0, nil);
Win32Check(hMapping<>0);
try
Ptr := MapViewOfFile(hMapping, FILE_MAP_ALL_ACCESS, 0, 0, 0);
Win32Check(Ptr<>nil);
j:= FileSeek(hFile,0,2);
for i:= 0 to j-1 do
pchar(Ptr)[i]:= "a";

//добавил
FillChar(pchar(Ptr)[j], 1, "b");

FlushViewOfFile(ptr, 0);
finally
UnmapViewOfFile(ptr);
CloseHandle(hMapping);
end;
finally
FileClose(hFile);
end;
end;

Кто знает, в чем проблемма?

---

Паша   (2002-09-26 16:57:00) [1]

Спасибо, кажется, понял. Просто я думал, что фиксированный размер работает только для CreateFileMapping($FFFFFFFF,...), т.е. открытом в файле подкачки Винды.

---

Кулюкин Олег   (2002-09-26 16:42:00) [2]

http://www.delphikingdom.com/treasury/sharedstream01.htm

---

Вячеслав   (2002-09-26 16:36:00) [3]

Динамически никак. Созлаешь новый, копируешь содержимое из старого, удаляеш старый.

---

Наверх