Дикий тупняк - чтение данных с com порта.

[GMX]

Господа, стыдно признаваться, но я туплю. Лет десять ничего не кодил, а тут пришлось. Сижу, туплю. Итак, ситуация: имеем ком порт, с которого с интервалом 30 мс приходит следующая инфа: два стартовых байта 'SS' следом 12 байт чисел (на самом деле шесть чисел типа int16_t) и заканчивается двумя байтами 'PP'.
В терминале это выгляди примерно так:
-------------------------
SS Иoэ2Шс8PPSSъю,ьс*8°PPSS wю» rрс@8јPPSSэE Њ {°сМ9TP
PSSэЎ Ј†Мрё7фPPSS† ¬ јрш8ђPPSSэШ $ Ќ°ра8hPPSSюц р =рИ8 PPSSюјюS н`сD8ЬPPSSю
EюKћарш7ьPPSSЪюm .р°8xPPSSюEэюи4р¬8ёPPSS эювЂсЂ84PPSSэ¤ыд C*с$9ШPPSSэ
ъґXр47PPSSь˜юАр*7АPPSSъщ Ѓ ќмпш7дPP
-------------------------

Мне необходимо считать эти 12 байт. Делфи совсем забыл, сижу туплю.
Стоит компонент ComPort Library.
Пытаюсь сделать что-то типа:

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
  var
  LastString: String;
begin
  ComPort1.ReadStr(LastString, 16);
  if ((Pos('SS', LastString)=1) and (Pos('PP', LastString)=15)) then Memo1.Lines.Add(LastString);
  LastString:='';
end;

Получается какая-то фигня...

[raxp]

uses bcports;

var com2: TBComPort;
...
 com2:= TBComPort.Create(nil);
 com2.OnRxChar:= rec2;
...



procedure Tform1.rec2(Sender: TObject; count: integer);
var buf: array[0..255] of byte;
     slovo1: word;
begin
 com2.Read(buf, count);
 //
 if (buf[0] = $53 {аски 'S'}) and
    (buf[1] = $53 {аски 'S'}) and
    (buf[14] = $50 {аски 'P'}) and
    (buf[15] = $50 {аски 'P'}) then begin
      slovo1:= (buf[3] shl 8)+ buf[2]; 
      // и т.д.
end;

[Slym]

а склеивать неполные пакеты?
восстанавливать стартовую позицию пакета в случае если программа запустилась на полпакете, или обрыв/восстановление ком шнурка?
псевдокод

uses bcports;

var com2: TBComPort;
var Data:string;
...
 com2:= TBComPort.Create(nil);
 com2.OnRxChar:= rec2;
...



procedure Tform1.rec2(Sender: TObject; count: integer);
var buf: array[0..255] of byte;
     slovo1: word;
begin
 com2.Read(buf, count);
data:=data+buf;

if length(data)>packetsize then
begin
  spos:=pos(data,'SS');
  if spos>1 then delete(data,spos-1);//обрезка полукадра
  ppos:=pos(data,'PP');
  if ppos>0 then
  begin
    packet:=copy(data,1,ppos);
    delete(data,ppos);
    processpacket(packet);
  end;
end

end;

[raxp]

Для склейки у меня другой подход:

var tmp_val: string = '';

procedure Tform1.rec(Sender: TObject; count: integer);
var i, msgt, msgl, k, len: integer;
    str, msg, sss: string;
    slovo: word;
    CRC_MSG, CRC_SUM: int64;
    bigslovo: int64;
begin
 str:= '';
 com.ReadStr(str, count);

 // ищем склеенный пакет (55 AA 55 AA) плавающим окном
 str:= tmp_val + str;
 for i:= 1 to length(str) do begin

  // ищем начало кодограммы по FF
  if (Ord(str[i])  = $ff) and
     (Ord(str[i+1])= $ff) then begin

     slovo:= (Ord(str[i+3]) shl 8)+ Ord(str[i+2]);
     msgt:= get_data(0, 5, slovo);
     msgl:= get_data(6, 15, slovo);

     // если остаток меньше заданной длины msgl*4 байта ->
     // переносим на следующее считывание
     if i+(msgl*4)-1 > length(str) then begin
      tmp_val:= copy(str, i, length(str)-i+1);
      break;
     end else begin // иначе
      tmp_val:= '';
      msg:= copy(str, i, msgl*4);

      // -------------------------- ПРОВЕРКА CRC ------------------------------
...
...
...

        // -------------------------- ВИДЕО ------------------------------------
        // контроль по типу сообщения =2
        if (msgt = $2) then
         mvideo(msg);

        // -------------------------- ДИАГНОСТИКА ------------------------------
        // контроль по типу сообщения =4
        if (msgt = $4) then
         mdiagn(msg);

       end;
      end;
      
   end;
  end;
 end;
end;

или обрыв/восстановление ком шнурка?

вот прям все подавай на блюдечке Их есть у меня, через SetupAPI отслеживается наличие подключенного USB-шнурка. Наличие подключенного шнурка к физическому RS-232 можно отследить только по таймауту и отсутствию пакетов и никак иначе. Полный COM порт не есть обязательное использование в таких шнурках.

[GMX]

Огромное спасибо отписавшимся! Из ваших постов собрал солянку, все ок.
Вопрос теперь следующий. Собираемые данные - со знаком, а при такой сборке типа
slovo1:= (buf[3] shl 8)+ buf[2];
Получаю беззнаковое значение. Еще раз прошу прощения за глупый вопрос, но как восстановить знак?

[raxp]

Получаю беззнаковое значение. Еще раз прошу прощения за глупый вопрос, но как восстановить знак?

два стартовых байта 'SS' следом 12 байт чисел (на самом деле шесть чисел типа int16_t) и заканчивается двумя байтами 'PP'.

во-первых, начнем с того, что мой алгоритм предполагает передачу младшими байтами вперед в кодограмме, что у вас без понятия. Во-вторых, при сборке очевидно что 32 бита = 4 байтам (тип word) и указанные вами два символа юниксового типа тип int16_t из stdint.h размерностью 16 бит эквивалентны. Но вы не указали структуру внутри этих данных. Так о каком знаке мы тогда говорим?

[GMX]

Все, разобрался. Объявил slovo как SmallInt. Всем огромное спасибо!

[raxp]

Тип SmallInt - 16 битное целое число со знаком. Поступив таким образом, вы теряете данные из 32-битного набора. Integer надоть, имхо.

Так как распределены данные внутри? Партизанен швайне яйке подвешен?

[GMX]

Мои int16_t - это 16-битное со знаком. Разбивка происходит в контроллере:
highByte=(char)(data>>8);
lowByte=(char)(data);
Передача в порядке: сначала старший байт, потом младший.
Собрал в обратном порядке:
slovo:=(highByte shl 8) + lowByte;
где slovo - SmallInt. Просто взял из справочника тип 16-бит со знаком.