Строка символов в виде байтов

[Blondinka]

Пишем программу управления прибором через СОМ-порт.
Данные принимаем в виде строки из данных разных типов(Float,unsigned int, unsigned long, unsigned char). Как правильнее и проще представить эту строку в виде последовательности байтов или бит для её дальнейшей обработки.

[Stilet]

А в чем заключается дальнейшая обработка?

P.S. Строку в байты переводить не обязательно если очень уж хоцца то мона так <переменка байтовая>:=byte(s[i])

[Blondinka]

Прибор регулярно посылает данные о своём состоянии(20-30 параметров) разных типов в виде длинной строки символов.
Вот пример строки: ?y?yI.?.....?O.A¦?D<4?7;Ao.Bq=.B??. B?e@B??gB®GXB..*A..*A?u??Ay3Axg&A+? 8A¤?O?.....................I..,
Где первые 4 байта заголовок, 5-й идентификатор, в следующих 2 байтах передаётся 16 параметров(каждый бит да-нет),далее числа разных типов в перемешку.
Правила построения строки знаем.
Проблема в том, как всё это разобрать по переменным(каждому параметру прибора своя переменная).

[SERG1980]

Я в своей проге делал следующим образом
....
str:='';
for i:=1 to Rxbytes do begin
str:=str+'$'+format('%.2x',[buffer[i]])+',';
memo1.Text:=memo1.Text+str;
end;
где RXBytes-кол-во принятых байтж
buffer-массив принятых байт

[Blondinka]

Меня интересуют не символы, а представление уже принятой строки в виде байтов!
Потому как встречаются и неотображаемые символы!

[Stilet]

Блондинка, можеш попробовать сделать переменку типа запись где

=record
Zagolovok:array[1..4] of byte
id:byte;
param:word;

Ну и так далее по типам, поскольку Правила построения строки знаем,

end;

ну и присваивать приведением типов эту строку в переменную типа эта запись

P.S. ну я так делал на контроллерах.

[Blondinka]

А можно поподробнее, я ж блондинка...

[Stilet]

Блондинок уважаю и люблю )

Вот например так :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
r=record // определяем тип, который поможет отделить нужные байты
  // по полям
 Zagolovok:array[1..4] of byte;
 id:byte;
 param:word;
 k:real;
 i:integer;
end;

  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var kr:r; s:string; // это переменки куда и откуда будут данные //передаваться
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
// Предположим получаеш строку вида :
s:=' ?y?yI.?.....?O.A¦?D<4?7;Ao.Bq=.B??.B?e@B??gB®GXB.. *A..*A?u??
move(s[1],kr,sizeof(kr)); // а это ты строку переносиш в переменку, 
 // в которой данные из этой строки распределятся по полям
// ессно ты поля определи по условиям

end;

end.

Идея яснышка? )

[SERG1980]

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

Прибор регулярно посылает данные о своём состоянии(20-30 параметров) разных типов в виде длинной строки символов.
Вот пример строки: ?y?yI.?.....?O.A¦?D<4?7;Ao.Bq=.B??. B?e@B??gB®GXB..*A..*A?u??Ay3Axg&A+? 8A¤?O?.....................I..,
параметру прибора своя переменная).

Я так понял эту строку ты видишь где у себя в программе, если да то можно привести кусок кода где ты считываешь данные с сом порта. И если не трудно какой компонент порта ты используешь(если вообще ты его используешь)?

[Blondinka]

Спасибо!
Пойду попробую!