Как дописывать в бинарные файлы?

← →
yuran (2005-07-05 19:10) [0]

Подскажите, пожалуйста, как дописывать в бинарные файлы?
append(); не работает для двоичных файлов.

← →
Anatoly Podgoretsky © (2005-07-05 19:13) [1]

Seek зато работает

← →
Fay © (2005-07-05 19:15) [2]

CreateFile
SetFilePointer
WriteFile
CloseHandle

← →
yuran (2005-07-05 19:16) [3]

Ладно по-другому вопрос: Как открыть бинарный файл, не только для чтения, но и для записи.

← →
begin...end © (2005-07-05 19:18) [4]

> yuran (05.07.05 19:16) [3]

По умолчанию -- с помощью Reset.

← →
yuran (2005-07-05 19:21) [5]

reset открывает только для чтения...

← →
Fay © (2005-07-05 19:23) [6]

var h : DWORD; begin h := CreateFile(PChar(Edit1.Text), GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ, nil, OPEN_EXISTING, 0, 0); if h = INVALID_HANDLE_VALUE then RaiseLastOsError;
F1

← →
begin...end © (2005-07-05 19:24) [7]

> yuran (05.07.05 19:21) [5]

Читаем справку:

In Delphi code, Reset opens the existing external file with the name assigned to F using the mode specified by the global FileMode variable. (...) The default value of FileMode is 2 (Read/Write access).

← →
yuran (2005-07-05 19:24) [8]

да ну вас :( :( , Сам разберусь !!!!

← →
Fay © (2005-07-05 19:25) [9]

2 yuran (05.07.05 19:24) [8]
Давно пора.
Успехов!

← →
begin...end © (2005-07-05 19:26) [10]

Хм. Странно...

yuran (05.07.05 19:21) [5]
Тебя обманули или ты сам.

fileopen("имя",fmopenreadwrite);
fileseek
fileread
filewrite
fileclose

uny © (05.07.05 19:52) [12]
Я по другому бы делил, по методам работы
1. файлы Паскаля
2. файлы с хендлами, совместимые с WinAPI
3. WinAPI
4. различного рода классы, обертки или специализированые
5. потоки

Anatoly Podgoretsky © (05.07.05 20:01) [13]
Я бы сказал
1. {Win}API
2. различного рода классы, обертки или специализированые

8)

Как дописывать в бинарные файлы? Найти похожие ветки