Считать байт по адресу в файле

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

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

Например есть файл, в НЕХ выглядит так: e9 02 00 08 e9 02
Как прочитать данные с байта по адресу 4 ? Должно получиться 00.

@Cyborg Drone · 30.07.2015, 17:21

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

e9 02 00 08 e9 02

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

данные с байта по адресу 4 ? Должно получиться 00.

Это который байт номер 4?
Этот, который и не байт вовсе, а не пойми что, то ли ниббл, что суть $0, то ли явно не $00, а $30:
e9 02 00 08 e9 02
или этот
e9 02 00 08 e9 02
который, если по-человечески считать, то есть, с начала строки, а не с конца, либо третий (если считать от 1) либо второй (если считать от 0), но уж никак не четвёртый.

00 получается, если считать с конца строки, но так в нормальных дурдомах не делают. Всё же как-то принято в Европе слева направо считать, не китайцы, чай. Ещё подумал, может, у Вас в файл пишутся 16-битные слова младшим байтом вперёд, а читаются байты, но... Опять как-то не сходится.

Народ, я чего-то не понимаю, или всё же пора мне, для профилактики, снова за счётные палочки браться?

@EEjester · 31.07.2015, 07:09 **[ТС]**

Сообщение от Игорь[Igor]

Delphi
1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
begin
  s:='00';
ShowMessage('По адресу 4 находится "'+s+'"');
end;

: \

Добавлено через 37 минут
Получилось!!! Мож кому надо:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
function StrToHex(source: String): String;
var i:integer;
    c:Char;
    s:String;
begin
    s := '';
    for i:=1 to Length(source) do
    begin
      c := source[i];
      s := s +  IntToHex(Integer(c),2)+' ';
    end;
    result := s;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
const
  MaxLen = 128;
var
  f:file;
  s:string[MaxLen];
  Cnt : Integer;
begin
  if not opendialog1.execute then Exit;
  AssignFile(f, opendialog1.FileName);
  FileMode:=fmOpenRead;
  Reset(f,1);
  Seek(f, 4);
  blockread(f,s[1], 1, Cnt);
  SetLength(s, Cnt);
  closefile(f);
  edit1.text:=StrToHex(s);
end;

@krapotkin · 31.07.2015, 07:15

Не по теме:

не знаю, как смайлик facepalm изобразить. но он вот тут

в строку длиной MaxLen мы считываем 1 байт
а чем изначально байт-то не угодил???
integer(C) - это 4 байта, 3 из которых ==0. т.е. остается тот самый изначальный байт из самого первого примера...

Не по теме:

facepalm again

@Cyborg Drone · 31.07.2015, 07:21

Не по теме:

krapotkin, :facepalm: = :facepalm:

@EEjester · 31.07.2015, 07:38 **[ТС]**

del...

Добавлено через 1 минуту

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

а чем изначально байт-то не угодил???

твой пример не работал, мой работает.

@krapotkin · 31.07.2015, 08:55

бедняжка, не работает...
а скриншоты я очевидно в фотошопе рисовал )))

пора уже раскрыть тебе тайну, что не все ~~йогурты~~ даже текстовые файлы одинаковы
некоторые каждый символ кодируют в 1 байт, тогда в файле может быть использовано только 256 разных символов, для интернациональных текстов с ударениями и диакритическими знаками этого маловато
поэтому для них изобрели много! UNICODE кодировок, где каждый символ кодируется 1, 2, 3 или даже 4 байтами!
Уфф.
Для того, чтобы разбираться, что за текстовый файл нам подсунули, стандарты рекомендуют в начало файла писать заголовок, опять 2.3.4 байта, тьфу. Подробности
На текущий момент у нас тут фактическим стандартом стала кодировка UTF-8 и в этом случае в начало файла пишутся 3 байта $ef $bb $bf, после которых начинается само содержимое, латинские символы и цифры - 1 байт, остальные - 2!
специально для работы с файлами в разных кодировках можно указывать в конструкторах потомков TFileStream параметр TEncoding
и именно поэтому доисторические варианты Reset() Assign() FileOpen() сейчас стараются не применять...

а теперь специально повторю фрагмент и скриншот

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
procedure TForm1.Readbytes;
var
  fs : TFileStream;
  b : byte;
  fname:string;
  i:Integer;
begin
  fname := ExtractFilePath(ParamStr(0))+'test.txt';
  fs := TFileStream.Create(FName, fmOpenRead);
  for i := 0 to 8 do
  begin
    // вот Seek в этом конкретном примере не нужен, т.к. каждое чтение и так двигает
    // указатель на 1 байт вперед, но когда нам надо прочитать отдельный N-й байт файла, это пригодится
    fs.Seek(i, soFromBeginning); 
    fs.Read(b,1);
    m1.Lines.Add(IntToStr(i)+'-й байт = $'+IntToHex(b,2));
  end;
  fs.free;
end;

получается, что даже если ты знаешь, что у тебя в тексте буква "я" стоит третьей от начала, ты абсолютно не в курсе какой байт читать и сколько, чтобы её прочитать из этого текстового файла...

Новые блоги и статьи Все статьи Все блоги /
Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .	Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .
Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .	Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .

@EEjester 1 / 1 / 5 Регистрация: 28.03.2013 Сообщений: 299

	Считать байт по адресу в файле 29.07.2015, 11:54. Показов 4335. Ответов 25 Метки нет (Все метки) Например есть файл, в НЕХ выглядит так: e9 02 00 08 e9 02 Как прочитать данные с байта по адресу 4 ? Должно получиться 00. 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,684 Записей в блоге: 21
	31.07.2015, 07:15
	Не по теме: не знаю, как смайлик facepalm изобразить. но он вот тут в строку длиной MaxLen мы считываем 1 байт а чем изначально байт-то не угодил??? integer(C) - это 4 байта, 3 из которых ==0. т.е. остается тот самый изначальный байт из самого первого примера... Не по теме: facepalm again 0

@Cyborg Drone
	31.07.2015, 07:21
	Не по теме: krapotkin, :facepalm: = :facepalm: 0