filtrowanie danych z rs232-odbiór w programie w delphi

Question

Witam wszystkich. Mam urządzenie (AVR+bascom) które wysyła po rs'ie dane o ogólnie rzecz mówiąc stanie czujników, podzespołów. Dane odbierane w terminalu wyglądają jak poniżej: przy czym kolejność i częstość występowania komunikatów i ich długość są różne (od 7..8 znaków do 37). Używając...

BoskiDialer · Accepted Answer

Napisałem parser dla twoich wymagań.. cały bufor to jeden string.. dane zamiast pobierać z rs232 to są pobierane z pliku (dla lepszego testu w porcjach o losowym rozmiarze od 1 do 10 bajtów) i przekazywane do parsera... jedyne co musisz zmienić to źródło danych przekazywanych do AppendToBuf oraz samą obsługe odpowiedzi -> zamienić writeln na co kolwiek innego..

program Parser;
// Parser by BoskiDialer
{$APPTYPE CONSOLE}

uses
  SysUtils;

// ----------------------------------------
// -- Wlasciwy kod parsera.. wystarczy
// -- go skopiowac do docelowej aplikacji
// ----------------------------------------

const CrLf = #13#10;
var vBuffer: string;

procedure AppendToBuf(AData: string);

  function Localize(ABuff,AString: String): integer;
  var vI: integer;
  begin
    result := -1;
    for vI := 1 to length(ABuff)-length(AString)+1 do
      if CompareMem(@ABuff[vI],@AString[1],length(AString)) then
      begin
        result := vI;
        break;
      end;
  end;

var vLine: string;
    vLineLength: integer;
    vCmd: Byte;
begin
  vBuffer := vBuffer + AData;
  repeat
    vLineLength := Localize(vBuffer,CrLf)-1;    // zlokalizowanie konca linii (crlf)
    if vLineLength<=0 then                      // jesli nieznaleziono konca..
      exit;

    vLine := Copy(vBuffer,1,vLineLength);       // pobranie pierwszej linii
    Delete(vBuffer,1,vLineLength+length(CrLf)); // usuniecie tej linii z buforu

    // sprawdzenie poprawnosci linii.....
    if not ((vLineLength >= 3) and (vLine[2] = ':')) then
      continue;
    vCmd := ord(vLine[1]);                      // pobranie typu odpowiedzi
    Delete(vLine,1,2);                          // usuniecie pierwszych 2 znakow

    // obsluga odpowiedzi
    case vCmd of
      ord('W'): Writeln('Wersja softu:   '+vLine);
      ord('U'): Writeln('Napiecie:       '+vLine);
      ord('I'): Writeln('Natezenie:      '+vLine);
      ord('H'): Writeln('Horizontal Str: '+vLine);
      ord('h'): Writeln('Horizontal Int: '+vLine);
      ord('V'): Writeln('Vertical Str:   '+vLine);
      ord('v'): Writeln('Vertical Int:   '+vLine);
      ord('R'): Writeln('PC:             '+vLine);
      else
                Writeln('Nieznane:       '+chr(vCmd)+' - '+vLine);
    end;
  until false;
end;

// ----------------------------------------
// -- Koniec wlasciwego kodu parsera..
// ----------------------------------------

var vFile: file;
    vBuff: string;
    vReadLen: integer;
    vReaded: integer;
begin
  // skojazenie zmiennej z plikiem
  AssignFile(vFile,'text.txt');
  try
    // otwarcie do odczytu
    Reset(vFile,1);
    randomize;
    repeat
      vReadLen := random(10)+1;    // ile by tu bajtow odczytac.... ?
      SetLength(vBuff,vReadLen);   // zmiana rozmiaru buforu tymczasowego
      BlockRead(vFile,vBuff[1],vReadLen,vReaded); // odczyt do buforu tymczasowego
      SetLength(vBuff,vReaded);    // jesli nieodczytano calosci to utnij bufor
      AppendToBuf(vBuff);          // przetworzenie
    until vReaded < vReadLen;      // jesli nieodczytano calosci to koncz
  finally
    CloseFile(vFile);              // zamknij plik
  end;
  AppendToBuf(CrLf);               // dodanie crlf do konca buforu
  writeln('Zakonczono przeczesywanie pliku');
  readln;
end.

plik text.txt zawiera "kod" (te linie z terminala) z pierwszego postu

;--- dodane:

>parser
Wersja softu:   sterownik v5.14 - 05.12.11
Napiecie:       6.12V
Natezenie:      42.0
Horizontal Str: poziomo - poza zakresem
Horizontal Int: 0
Vertical Str:   pionowo - poza zakresem
Vertical Int:   0
Vertical Str:   pionowo - w gore
Vertical Int:   9
Napiecie:       6.15V
Natezenie:      43.75
Vertical Str:   pionowo - w gore
Vertical Int:   79
Napiecie:       6.15V
Natezenie:      39.5
Horizontal Str: poziomo - w lewo
Horizontal Int: 19
Vertical Str:   pionowo - w gore - dalej nie mozna
Vertical Int:   80
Napiecie:       6.15V
Natezenie:      42.75
Horizontal Str: poziomo - w lewo - dalej nie mozna
Horizontal Int: 84
Vertical Str:   pionowo - w gore
Vertical Int:   79
Napiecie:       6.20V
Natezenie:      zbyt ciemno
Napiecie:       6.20V
Napiecie:       6.20V
PC:             PC - w lewo
Napiecie:       6.23V
Zakonczono przeczesywanie pliku


>

Sam Sung · Answer

Pomysł z czytaniem całych linijek do jednego bufora wydaje mi się dobry. Po wczytaniu całej linijki program może sprawdzić pierwszy znak i na jego podstawie przekazać zawartość bufora do odpowiedniej procedury obsługi. Po powrocie wczytywałby następną linijkę. Jeśli w czasie obsługi jednego komunikatu przyjdzie następny, to chyba nic się nie stanie - po prostu poczeka sobie chwilę w buforze systemu.

elektryk · Answer

A nie prościej wysyłać informacje zakodowaną binarnie, z jakimś nagłówkiem oznaczającym początek danych.

bartsam · Answer

BoskiDialer, jesteś niesamowity, ogromną niespodziankę mi zrobiłeś Dziękuję bardzo za taki trud i za poświęcony czas.Zajmę się kodem, mam nadzieję, że rozwiąże problem. W każdym razie będę analizować do skutku.pozdrawiam!

filtrowanie danych z rs232-odbiór w programie w delphi

Post #1

Post #2

Post #3

Post #4

Post #5