Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.07;
Скачать: CL | DM;

Вниз

Вопрос по 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.02 c
3-20880
First_May
2002-09-16 13:57
2002.10.07
Oracle


1-20990
Yarovoi Andrei
2002-09-26 17:45
2002.10.07
как в цикл узнать об нажание кновки и кликание мыши?


1-21123
Gerr
2002-09-21 19:53
2002.10.07
Открытие окна Delphi


6-21161
Keray
2002-08-06 11:30
2002.10.07
Организация TCP/IP по модемному соединению


4-21349
dumb
2002-08-19 16:37
2002.10.07
Как зарегистрировать COM объект кодом?