|
Тема |
Imam "nqkakuv" problem |
|
Автор |
Waz Gaa (_) |
|
Публикувано | 08.10.02 22:51 |
|
|
Znachi polzvam s memory mapping, za da uskorq rabotata s edin fail. No ima nqkakuv tech (v 1 red kod), koito ne moga da si ovbqsnq. Moje bi problema e drugade, ne znam, no se nadqvam nqkoi da pomogne.
var
PData: PChar;
procedure Load(AFileName: string);
begin
CreateMapping(AFileName, PData); //CreateMapping mi dava pointer kum mapping-a
end;
procedure Unload;
begin
UnmapViewOfFile(PData); //neshto takova beshe za osvobojdavane na mapping-a
end;
function ReadData(const APos, ALenght: Integer): string;
begin
SetLength(Result, ALength);
Move((PData + APos)^, Result[1 ], ALength); //ei tuka ima iztichane
end;
Pri 40 000 posledovatelni prochitaniq ostavat nqkude 6MB v pametta. Vsushtnost az obhojdam celiq fail (toi e kum 6MB) i moje bi pri chetene vinagi ostava prochetenoto v pametta zadelena za moq proces, ne sum siguren tochno
Ako ne znaete tova e edin ot bugovete v moq rechnik, nadqvam se posledniq (ili pone posledniq seriozen )
by Waz Gaa
|
| |
|
|
|