Форум: "Основная";
Текущий архив: 2002.10.07;
Скачать: [xml.tar.bz2];

Вниз

Вопрос по FileMapping   Найти похожие ветки 

← →
Паша   (2002-09-26 16:05) [0]

Для увеличения скорости обработки использую 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:36) [1]

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

---

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

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

---

← →
Паша   (2002-09-26 16:57) [3]

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

---

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

Форум: "Основная";
Текущий архив: 2002.10.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.009 c