Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как дописывать в бинарные файлы? [D7, Win95/98, WinME, NT4, Win2k, WinXP]

yuran © (2005-07-05 19:10:00)
Подскажите, пожалуйста, как дописывать в бинарные файлы?
append(); не работает для двоичных файлов.

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

8)

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

uny (2005-07-05 19:52:00) [3]
fileopen('имя',fmopenreadwrite);
fileseek
fileread
filewrite
fileclose

Anatoly Podgoretsky (2005-07-05 19:34:00) [4]
yuran (05.07.05 19:21) [5]
Тебя обманули или ты сам.

begin...end (2005-07-05 19:26:00) [5]
Хм. Странно...

Fay (2005-07-05 19:25:00) [6]
2 yuran (05.07.05 19:24) [8]
Давно пора.
Успехов!

begin...end (2005-07-05 19:24:00) [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 defaultvalue of FileMode is 2 ( Read/Write access).

yuran (2005-07-05 19:24:00) [8]
да ну вас :( :( , Сам разберусь !!!!

Fay (2005-07-05 19:23:00) [9]
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

yuran (2005-07-05 19:21:00) [10]
reset открывает только для чтения...

begin...end (2005-07-05 19:18:00) [11]
> yuran (05.07.05 19:16) [3]

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

yuran (2005-07-05 19:16:00) [12]
Ладно по-другому вопрос: Как открыть бинарный файл, не только для чтения, но и для записи.

Fay (2005-07-05 19:15:00) [13]
CreateFile
SetFilePointer
WriteFile
CloseHandle

Anatoly Podgoretsky (2005-07-05 19:13:00) [14]
Seek зато работает

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »