Побайтная запись в файл

@EEjester · Регистрация: 28.03.2013

Author24 — интернет-сервис помощи студентам

Создаю обычный файл и пишу в него текст '12345', получается вот что:

Нужно записать данные побайтно, вот так:

@krapotkin · 29.07.2015, 07:15

для того, чтобы в файл записались байты
$12, $34, $50
возможно, нужно именно их туда записывать ?

@EEjester · 29.07.2015, 07:22 **[ТС]**

Как по определенному адресу вписать байт например $12 ?

@taras atavin · 29.07.2015, 07:38

Сообщение от EEjester

Создаю обычный файл и пишу в него текст '12345', получается вот что:

А что не так то?

Добавлено через 50 секунд

Сообщение от EEjester

Нужно записать данные побайтно, вот так:

Это не текст.

@krapotkin · 29.07.2015, 07:39

в уже существующий файл ?

Delphi

fs:TFileStream;
b:byte;
b:=$12;
 
fs:=TFileStream.Create(FileName, fmOpenReadWrite);
fs.Seek(positionInFile, soFromBeginning);
fs.Write(b,1);
fs.free;

@taras atavin · 29.07.2015, 07:39

Сообщение от EEjester

Как по определенному адресу вписать байт например $12 ?

Только что были файлы и вдруг вопрос об адресах. Создавай отдельную тему, не надо здесь смешивать.

@Puporev · 29.07.2015, 07:42

Сообщение от EEjester

Создаю обычный файл

Обычный это какой в Вашем понимании?

@EEjester · 29.07.2015, 07:47 **[ТС]**

Сообщение от Puporev

Обычный это какой в Вашем понимании?

текстовый

@taras atavin · 29.07.2015, 07:49

В текстовом файле должны быть символы, а коды символов начинаются с 20_hex. Ни как не с 12_hex. Открой свои 31_hex 32_hex 33_hex 34_hex 35_hex в блокноте и увидишь 12345.

@EEjester · 29.07.2015, 07:54 **[ТС]**

разобрался!!! Спасибо!
как вписать массив байт?

Delphi

b:byte;
begin
b:=$AA;
fs:=TFileStream.Create(MyDIR + prs, fmCreate, fmOpenReadWrite);
fs.Seek(0, soFromBeginning);
fs.Write(b,1);
fs.free;

@taras atavin · 29.07.2015, 07:59

Или поэлементно, или в бинарном режиме, или обозначь байтами символы строки.

@EEjester · 29.07.2015, 08:08 **[ТС]**

Пример пожалуйста, знаю что как то в цикле нужно.

@krapotkin · 29.07.2015, 08:22

Delphi

1
2
3

b:array[0..1] of byte = ($12,$34);
 
fs.write(b,2);

@EEjester · 29.07.2015, 08:43 **[ТС]**

Файл создается но ничего не записывается:

Delphi

    i := 0;
    fs:=TFileStream.Create(MyDIR + prs, fmCreate, fmOpenReadWrite);
    while i = 3 do
    begin
      fs.Seek(i, soFromBeginning);
      fs.Write(b[i],1);
      i := i + 1;
    end;
    fs.free;

@taras atavin · 29.07.2015, 08:52

А закрывать кто будет? И зачем поэлементно то пишешь? Ну и 0 уже не равно 3, а цикл будет работать, пока i равно 3, соответственно он даже не запустится.

Добавлено через 4 минуты
Да и рано ты за ваил взялся, изучи сначала for.

@EEjester · 29.07.2015, 09:39 **[ТС]**

всё получилось. а если мне например нужно вписать вместо

Delphi

$11, $01

то что находится в Edit1?
Типо

Delphi

1	'$' + Edit1.text, $01

то как быть?

Добавлено через 3 минуты
Отлично!

Delphi

1	prf[0] := StrToInt('$' + Edit1.text);

Дела идут в гору!

@krapotkin · 29.07.2015, 10:19

fs.Seek(i, soFromBeginning); достаточно 1 раз
при каждом Write "курсор" продвигается вперед на кол-во записанных байт самостоятельно

@Cyborg Drone · 30.07.2015, 00:22

Не по теме:

EEjester, рекомендую Вам ознакомиться с правилами форума. Вы их нарушили.

@northener · 30.07.2015, 01:04

Не по теме:

Сообщение от EEjester

Дела идут в гору!

Нет. Как сидел неучем в болоте, так и сидишь.

@krapotkin 5786 / 4528 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	29.07.2015, 10:19	17
	Сообщение было отмечено EEjester как решение Решение fs.Seek(i, soFromBeginning); достаточно 1 раз при каждом Write "курсор" продвигается вперед на кол-во записанных байт самостоятельно 1

@EEjester 1 / 1 / 5 Регистрация: 28.03.2013 Сообщений: 299
		1
	Побайтная запись в файл 29.07.2015, 06:15. Показов 2367. Ответов 18 Метки нет (Все метки) Создаю обычный файл и пишу в него текст '12345', получается вот что: Нужно записать данные побайтно, вот так: 0

@krapotkin 5786 / 4528 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	29.07.2015, 07:15	2
	для того, чтобы в файл записались байты $12, $34, $50 возможно, нужно именно их туда записывать ? 0

@EEjester 1 / 1 / 5 Регистрация: 28.03.2013 Сообщений: 299
	29.07.2015, 07:22 [ТС]	3
	Как по определенному адресу вписать байт например $12 ? 0

@taras atavin 4226 / 1795 / 211 Регистрация: 24.11.2009 Сообщений: 27,562
	29.07.2015, 07:38	4
	Сообщение от EEjester Создаю обычный файл и пишу в него текст '12345', получается вот что: А что не так то? Добавлено через 50 секунд Сообщение от EEjester Нужно записать данные побайтно, вот так: Это не текст. 0

@taras atavin 4226 / 1795 / 211 Регистрация: 24.11.2009 Сообщений: 27,562
	29.07.2015, 07:39	6
	Сообщение от EEjester Как по определенному адресу вписать байт например $12 ? Только что были файлы и вдруг вопрос об адресах. Создавай отдельную тему, не надо здесь смешивать. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	29.07.2015, 07:42	7
	Сообщение от EEjester Создаю обычный файл Обычный это какой в Вашем понимании? 0

@EEjester 1 / 1 / 5 Регистрация: 28.03.2013 Сообщений: 299
	29.07.2015, 07:47 [ТС]	8
	Сообщение от Puporev Обычный это какой в Вашем понимании? текстовый 0

@taras atavin 4226 / 1795 / 211 Регистрация: 24.11.2009 Сообщений: 27,562
	29.07.2015, 07:49	9
	В текстовом файле должны быть символы, а коды символов начинаются с 20_hex. Ни как не с 12_hex. Открой свои 31_hex 32_hex 33_hex 34_hex 35_hex в блокноте и увидишь 12345. 0

@taras atavin 4226 / 1795 / 211 Регистрация: 24.11.2009 Сообщений: 27,562
	29.07.2015, 07:59	11
	Или поэлементно, или в бинарном режиме, или обозначь байтами символы строки. 0

@EEjester 1 / 1 / 5 Регистрация: 28.03.2013 Сообщений: 299
	29.07.2015, 08:08 [ТС]	12
	Пример пожалуйста, знаю что как то в цикле нужно. 0

@taras atavin 4226 / 1795 / 211 Регистрация: 24.11.2009 Сообщений: 27,562
	29.07.2015, 08:52	15
	А закрывать кто будет? И зачем поэлементно то пишешь? Ну и 0 уже не равно 3, а цикл будет работать, пока i равно 3, соответственно он даже не запустится. Добавлено через 4 минуты Да и рано ты за ваил взялся, изучи сначала for. 0

@Cyborg Drone
	30.07.2015, 00:22 #18
	Не по теме: EEjester, рекомендую Вам ознакомиться с правилами форума. Вы их нарушили. 0

@northener
	30.07.2015, 01:04 Побайтная запись в файл #19
	Не по теме: Сообщение от EEjester Дела идут в гору! Нет. Как сидел неучем в болоте, так и сидишь. 0

Побайтная запись в файл

Решение

Решение

Решение