| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Создание/запись бинароного файла

Урфин Джус ©   (2004-08-10 13:17:00) 

Мастера! Подскажите, как можно создать бинарный файл и записать туда 1 байт, например. До этого я работал только с текстовыми, примерно так:
AssignFile(TF,'C:\index.htm');
ReWrite(TF);
Writeln(TF,'<html>');
...
Writeln(TF,'</html>');
CloseFile(TF);
Заранее благодарю.

---

MacroDenS   (2004-08-10 13:47:00) [1]

to Anatoly Podgoretsky ©
а про размер ничего не говорилось, сказано было, как записать туда 1 байт. В файле же один байт. а сколько он на диске места резервит это уже другая теемя.

---

Anatoly Podgoretsky   (2004-08-10 13:41:00) [2]

MacroDenS ©   (10.08.04 13:20) [1]
А теперь посмотри на размер файла.

---

MacroDenS   (2004-08-10 13:34:00) [3]

to Урфин Джус

Можно объявить еще так:

b:array[1..1024] of byte;
//а потом сразу по 1 килу кидать
....
  blockwrite(f, b, 1024);


---

MacroDenS   (2004-08-10 13:32:00) [4]

а это на будущее, вдруг нужно будет в файл 2, 3 байта запихать... А если 1024, тык это вообще...

---

Урфин Джус   (2004-08-10 13:31:00) [5]

Ага, MacroDenS, спасибо!
Для опыта всю таблицу ASCII получил и записал в файл!

---

Koster   (2004-08-10 13:26:00) [6]

2 MacroDenS: зачем blockwrite, тут просто write по стандартам (хотя наверно и так можно)

---

MacroDenS   (2004-08-10 13:20:00) [7]

....

var
  f:file of byte;
  b:byte;
begin
  assigfile(f, FileName);
  rewrite(f);
  b:=65;
  blockwrite(f, b, 1);
  closefile(f);
end;


---

Наверх