О дешифровке приборного файла

@ygy · Регистрация: 23.08.2013

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

Подскажите, плиз, относительно дешифровки приборного файла.

Запрос авторам данных сделал, но там сложное положение: одни уволились, другие сами не понимают что и как - так что могут так и не ответить... долго объяснять всю ситуацию, всё довольно запутано...

..........................
Описание формата файла (от авторов):

Все данные пишутся в файл в бинарной форме. Вначале идет заголовок длинной в 1600 байт. Сразу после заголовка (после 1600 байт) непрерывно пишутся сами данные в виде последовательности из 2-байтных целых чисел.

Формат заголовка данных

Тип	Размер (байт)	Описание
short	2	Число записей
float	4	Средний скачок между цифрами
shor	2	Минимум
shor	2	Максимум
char	80	Название канала

и т.д. ...
.....................

Вопрос в следующем:

я читаю файл, например, как

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Var
jWord  :  Word;
fI  :  File of Word;
...
 
Begin
...
 
While NOT(EOF(fI)) do
begin
  Кead(fI,jWord);
  Write(fF,IntToStr(jWord)+', ');
end;  //  While NOT(EOF(f))...
...

получаю такое:

3736, 0, 0, 65163, 374, 0, 57047, 16383, 250, 8240,27424, 24864, 44320, 24864, 43808, 8224, 8320, 8342, 8335, 0,...
- начало заголовка (1600 байт) и

65528, 65528, 65526, 65527, 65528, 65528, 65529, 65529, 65529, 65528,65527, 65529, 65529, 65528, 65528, 65528, 65528, 65528, 65529, 65528,...
- для собственно данных.

1.
Так вот - как мне дешифровать в десятичную цифру, "float 4 Средний скачок"?
как дешифровать "char 80 Название канала" в строку и прочие НЕ Word переменные в их формат?

Я же имею прочитанные Word, т.е. float в моей выдаче выглядит, как "57047, 16383", да и char и прочее - не лучше.

Тут я и останавливаюсь, т.к. не понимаю - как дешифровывать НЕ 2-х байтные переменные в переменные, состоящие из ДРУГОГО числа байт.

2.
Также, т.к., думаю, запись собственно приборных данных достаточно единообразна у всех - поэтому подскажите какую-нибудь мысль, относительно того, что собственно данные имеют такой вид, как - см. выше - на верхнем пределе 2-х байт.
Мах/мин в Заголовке коррелируют с прочитанными значениями. Мах= 374, мин= 65163, т.е какая-то мелкая фигня с переполнением. Но какая?
(Как уже писал - авторы, пока, в несознанке и не просвещают меня)

Файл я читаю, скорее правильно, т.к. в заголовке есть день-месяц-год и эти три Word числа правильны.

@Beltar · 20.10.2023, 23:11

Главный инструмент программиста - это клещи для языка. Попади программист лет на 500 в прошлое и надо в инквизицию идти, чтобы ВСЁ вытягивать.

@Пытливый · 20.10.2023, 23:15

Посмотрел файл, сравнил с описанием, появился вопрос. В заголовке указано число записей в этом файле 3736. Одна запись 2 байта, а данных в файле больше чем на 2.2 млн. записей. Не сходится что-то.

@Aledveu · 21.10.2023, 00:10

очень похоже что данные - это 16 битное знаковое число - тогда это получится что-то типа графика в районе нуля с редкими заходами в положительную область.

@Пытливый · 21.10.2023, 00:29

Вот такая фигня там идет для Word:

а для SmallInt уже интереснее:

Verevkin · 21.10.2023, 00:34

Вы маньяки.
Ну вас нах, я спать пошёл.

@Пытливый · 21.10.2023, 00:39

Просто у меня в разработке есть компонет Osciloscop, для анимации таких вот данных и потестить его с чужими данными было полезно.

@northener · 21.10.2023, 01:35

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

Мужики, не знаю, как вы, а я бы запилил потомка от TMemoryStream c нужным функционалом (свойства/методы для доступа к полям заголовка и данным после него). Посмотрите:

Как вариант да.
Хотя я бы по старинке определил бы тип запись и читал бы этот файл кусочками BlockRead.

@krapotkin · 21.10.2023, 10:12

вариант со стримом мне кажется более выгодным,
хотя я бы даже не стал наследовать) просто класс сделал, который его использует))

Verevkin · 21.10.2023, 10:44

Сообщение от Пытливый

Просто у меня в разработке есть компонет Osciloscop

А чо ты его не через GDI+ рисуешь?

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

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

хотя я бы даже не стал наследовать) просто класс сделал, который его использует))

Зачем такие сложности? Ты комсомолец?

@Beltar · 21.10.2023, 11:12

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

А чо ты его не через GDI+ рисуешь?

А я свой компонент для похожих графиков с десятками тысяч точек тоже пробовал через GDI+ сделать. Получилось торозно. А насчет анимации, ну меня XMin, XMax и перерисовывать,

Verevkin · 21.10.2023, 11:18

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

Получилось торозно.

Я не у тебя спрашивал.
Если руки выпрямить, тромозить ничо не будет.

@Beltar · 21.10.2023, 11:22

Так у меня и не тормозит.

@Пытливый · 21.10.2023, 12:15

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

Хотя я бы по старинке определил бы тип запись и читал бы этот файл кусочками BlockRead.

Ну это уж совсем не по пацански.

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

А чо ты его не через GDI+ рисуешь?

Нет. Обошлось без GDI+. Компонент и в полном экране с несколькими каналами плавно рисует. (Во, только сейчас заметил, что я неправильно на нижней оси данные вывожу при динамике)

Добавлено через 3 минуты
Вообще задача от ТС стояла извлечь данные, а это делается просто:

Delphi
1
2
3
4
5
6
7
  var Data: Array of SmallInt;
  ...
  var FS := TFileStream.Create('d:\K.bin', fmOpenRead);
  SetLength(Data, (FS.Size-1600) div 2);
  FS.Seek(1600, soFromBeginning);
  FS.Read(Data[0], Length(Data));
  FS.Free;

а вот анализ заголовка это уже дополнительная задача.

@krapotkin · 21.10.2023, 12:24

Сообщение от Пытливый

а вот анализ заголовка

а чо там аналазить? )
record фиксированной структуры?

Verevkin · 21.10.2023, 12:34

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

а чо там аналазить? )
record фиксированной структуры?

Для начала надо узнать эту структуру. Автор сам не знает нихрена и доки/сорцы не даёт.

@Beltar · 21.10.2023, 12:44

Рискну предположить, что там на самом деле 8 каналов, а раз у Verevkin'а 2 байта до 200 в размере заголовка не хватило, то просто 1 поле пропущено. Клещами все, клещами.

@Пытливый · 21.10.2023, 12:54

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

а чо там аналазить? )
record фиксированной структуры?

Как пишет ТС, так должно быть, вот только его описание никак на 1600 байт не тянет, да и само описание вызывает серьезные сомнения. Вот что за число записей 3736 в примерном файле? В файле содержится 2240650 чисел. Допустим, что 3736 это количество блоков, но 2240650 на 3736 без остатка не делится. Вот и получается, что единственная подтвержденная информация это начало блока данных

Verevkin · 21.10.2023, 13:05

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

Рискну предположить, что там на самом деле

В языке Delphi нет оператора "предположить".

@Constcat · 21.10.2023, 13:15

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

В языке Delphi нет оператора "предположить".

С языка снял!

@Beltar · 21.10.2023, 13:23

zzz

Новые блоги и статьи Все статьи Все блоги /
Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .

@Beltar 833 / 447 / 39 Регистрация: 05.05.2022 Сообщений: 3,144
	20.10.2023, 23:11
	Главный инструмент программиста - это клещи для языка. Попади программист лет на 500 в прошлое и надо в инквизицию идти, чтобы ВСЁ вытягивать. 0

@Пытливый 3764 / 2272 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	20.10.2023, 23:15
	Посмотрел файл, сравнил с описанием, появился вопрос. В заголовке указано число записей в этом файле 3736. Одна запись 2 байта, а данных в файле больше чем на 2.2 млн. записей. Не сходится что-то. 0

@Aledveu 267 / 199 / 30 Регистрация: 26.11.2022 Сообщений: 872
	21.10.2023, 00:10
	очень похоже что данные - это 16 битное знаковое число - тогда это получится что-то типа графика в районе нуля с редкими заходами в положительную область. 0

@Пытливый 3764 / 2272 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	21.10.2023, 00:29
	Вот такая фигня там идет для Word: а для SmallInt уже интереснее: 0

Verevkin Заблокирован
	21.10.2023, 00:34
	Вы маньяки. Ну вас нах, я спать пошёл. 1

@Пытливый 3764 / 2272 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	21.10.2023, 00:39
	Просто у меня в разработке есть компонет Osciloscop, для анимации таких вот данных и потестить его с чужими данными было полезно. 1

@krapotkin 6851 / 4677 / 1465 Регистрация: 14.04.2014 Сообщений: 20,674 Записей в блоге: 21
	21.10.2023, 10:12
	вариант со стримом мне кажется более выгодным, хотя я бы даже не стал наследовать) просто класс сделал, который его использует)) 0

@Beltar 833 / 447 / 39 Регистрация: 05.05.2022 Сообщений: 3,144
	21.10.2023, 11:22
	Так у меня и не тормозит. 0

@Beltar 833 / 447 / 39 Регистрация: 05.05.2022 Сообщений: 3,144
	21.10.2023, 12:44
	Рискну предположить, что там на самом деле 8 каналов, а раз у Verevkin'а 2 байта до 200 в размере заголовка не хватило, то просто 1 поле пропущено. Клещами все, клещами. 0

@Beltar 833 / 447 / 39 Регистрация: 05.05.2022 Сообщений: 3,144
	21.10.2023, 13:23
	zzz Миниатюры 0