Файл

← →
DenKop © (2002-04-10 11:20) [0]

Как обрезать последние, например, 2 байта файла.
Файл открываю так:
FileHandle := FileOpen("c:\p1.enc",fmOpenReadWrite);
....
FileClose(FileHandle);

Помнится делал это на Паскале, но там я открывал через
AssignFile(...), но как делал на отрез не помню.

← →
Song © (2002-04-10 11:27) [1]

Прочитайте файл в BlockRead
А потом через BlockWrite запишите на 2 байта меньше. В чём проблема?

← →
vuk © (2002-04-10 11:37) [2]

FileSeek, SetEndOfFile

← →
Alx2 © (2002-04-10 11:41) [3]

SetFilePointer(hFile, dwNewFileSize, NULL, FILE_BEGIN);
SetEndOfFile(hFile);

← →
DenKop © (2002-04-10 12:34) [4]

to Song © > Это будет слишком громоздко и некрасиво.
to vuk ©,Alx2 © > Спасибо.Этот вариант работает с одним уточнением NULL заменил на NIL.

to Alx2 © > А можно поподробнее про NIL и FILE_BEGIN.
В хелпе ничего не нашёл, нашел только то, что
NIL - lpDistanceToMoveHigh
FILE_BEGIN - dwMoveMethod
Но об этих константах тоже ничего не сказано.

← →
Alx2 © (2002-04-10 14:41) [5]

FILE_BEGIN - значит смещаемся от начала файла
lpDistanceToMoveHigh не равна Nil, а равна указателю на переменную типа DWORD, если смещение выходит за границы 32-битной арифметики. То есть для поддержки 64-битной

← →
DenKop © (2002-04-10 15:08) [6]

Alx2 >Спасибо!
P.S.про NIL. Я имел ввиду в моём случае.

Alx2 >Спасибо!

P.S.про NIL. Я имел ввиду в моём случае.

>DenKop © (10.04.02 15:08)
Это я криво написал. В твоем случае как раз Nil :))

... If the value of this parameter is NULL, SetFilePointer can operate only on files whose maximum size is 2^32 - 2. If this parameter is specified, the maximum file size is 2^64 - 2. This parameter also receives the high-order word of the new value of the file pointer.

Файл Найти похожие ветки