ComPort odczyt danych

Zwiększ ReadTimeout.
lub:
Memo1.Text := Memo1.Text + Revs;

Docelowo zamierzam zgrywać dane do Edita więc próbuję 1 wersję.

Wg producenta dane format przesyłanych danych: xx xx xx xx xx LF CR
gdzie xx to kolejne bajty kodu transpondera zapisane jako kod ASCII, LF - znak nastepnej linii, CR - znak powrotu. Dwa
ostatnie znaki przesyłane sa jedynie dla czytelniejszego przedstawienia danych np. w terminalu.

Początkowo ustawiłem ReadTotalMultiplier na 12 znaków
ReadTotalConstant=0;
Co 4 odczyt w takim przypadku daje cały kod.

Zdesperowany kolejne próby podejmowałem z ustawieniem ReadTotalMultiplier na 10, 14, 16 i 20.
W ComPort1.ShowSetupDialog wygląda tak: Com12, 9600, 8,1, None, None.

procedure TDodaj_pracownika.ComPort1RxChar(Sender: TObject; Count: Integer);
var
all,part:string;
begin
setlength(all,0);
while true do
begin
  ComPort1.ReadStr(part,Count);
  all:=all+part;
  if Pos(#13#10,part) then break;
end;
Memo1.Text:=all;


end; 

Wywala błąd [DCC Error] dodaj_prac.pas(126): E2012 Type of expression must be BOOLEAN
Możesz krótko wyjaśnić co takiego robi powyższy kod w porównaniu z ustawieniem timeout ręcznie?

Patrz komentarz wyżej. Podaj też opis metody: ComPort1.ReadStr(part,COUNT); tu też może być błąd.

Może podłącz do TComPort komponent TComDataPacket ?

(Na formę wrzuć 2x TEdit, TButton, TListbox, TComPort i TComDataPacket).
Ewentualnie jak chcesz to wywołuj Setupdialog ComPort.

procedure TMain.btnConnectClick(Sender: TObject);
begin
ComPort1.Port := edtPort.Text;
ComPort1.BaudRate := StrToBaudRate(edtBaudRate.Text);

ComDataPacket1.ComPort := ComPort1;

// Tu możesz zdefiniować od czego ma się zaczynać i na czym kończyć ciąg danych (string)
// Jako przykład podam dane, jakie ja odczytuję z urządzenia GPS:
// $GPRMC,123519,A,4807.038,N,01131.000,E,022.4,084.4,230394,003.1,W*6A
// Jak widać mogę wyodrębnić interesujące mnie dane za pomocą:
ComDataPacket1.StartString := '$GPRMC';
ComDataPacket1.StopString := '*';
// Wtedy otrzymuje do obróbki czyste:
// ",123519,A,4807.038,N,01131.000,E,022.4,084.4,230394,003.1,W"
// Jeżeli nie potrzebujesz tego to przejdź do połączenia z portem.
// ComDataPacket czyta ZTCP cale ciągi właśnie na pdst znaku nowego wiersza. Wiec nie będziesz musiał
// ustawiać StartString i StopString.

  if ComPort1.Connected = true then
    begin
      //Rozlacz;
    end else begin
      //Polacz;
    end;
end;

Następnie we właściwości OnPacket ComDataPacket komponent zwraca Ci string z odczytanymi danymi:

procedure TMain.ComDataPacket1Packet(Sender: TObject; const Str: String);
begin
Listbox1.Items.Add(Str);
//Możesz tez wrzucać sobie String do TStringList i dalej go obrabiać
end;

Pomogło ustawienie ComDataPacket.Size=12 oraz StopString=#13.
Dziękuję za pomoc.

adnix napisał(a):

Pomogło ustawienie ComDataPacket.Size=12 oraz StopString=#13.
Dziękuję za pomoc.

Sądzę, że nie musisz ustawiać na sztywno długości pakietu odczytanych danych.
No chyba, że na 1000% Twój program będzie zawsze otrzymywał z portu 12 znaków.

Może lepiej odczytuj stringa tylko na pdst StopString (Nie jestem pewien, ale chyba nawet nie musisz ustawiać go w ogóle na "#13"), wrzucaj go gdzieś i tam dopiero sprawdzaj, wycinaj, konwertuj?

lofix napisał(a):

adnix napisał(a):

Pomogło ustawienie ComDataPacket.Size=12 oraz StopString=#13.
Dziękuję za pomoc.

Sądzę, że nie musisz ustawiać na sztywno długości pakietu odczytanych danych.
No chyba, że na 1000% Twój program będzie zawsze otrzymywał z portu 12 znaków.

Może lepiej odczytuj stringa tylko na pdst StopString (Nie jestem pewien, ale chyba nawet nie musisz ustawiać go w ogóle na "#13"), wrzucaj go gdzieś i tam dopiero sprawdzaj, wycinaj, konwertuj?

Urządzenie wg dokumentacji zawsze wysyła 12 znaków ale masz rację, że przy jakiś śmieciach program może się wywrócić.
Muszę ustawić stop na #13 bo otrzymanie znaku nowej linii z urządzrnia automatycznie(puste pole start i stopstring)powoduje, że do zmiennej Str za pierwszym razem trafia to co jest przed $13 a po następnym odczycie Str zwraca tę końcówkę plus część następnego odczytu. Nie potrafię tego wyjaśnić.

Chyba jednak ustalenie długości łańcucha na stałe może być przyczyną błędów.
Fragment ComDataPacket1Packet.OnPacket()

ShowMessage(RemoveSpaces(Str)
testquery.SQL.Text:='SELECT * FROM Pozycja where id_prac=(SELECT ID FROM PRACOWNICY WHERE KOD='''+RemoveSpaces(Str)+''') and Convert(date,data_przyj)='''+RemoveSpaces(DateToStr(DateTimePicker1.Date))+'''  ';
testquery.ExecSQL;
testquery.Open;
iloscwierszy:=testquery.RecordCount;
ShowMessage('Ilość wpisów w tabeli Prozycja:'+IntTostr(iloscwierszy)); 

Powyższy kod na Windows 7 działa poprawnie, natomiast po przeniesieniu programu na Windowsa XP program wyświetla Message z zawartością Str(poprawny odczyt) ale nie dochodzi już do wyświetlenia powiadomienia z ostatniej linii. Tak jakby polecenie sql zawieszało program. Wersja SQL serwer taka sama.

Funkcja RemoveSpaces

function RemoveSpaces(const s: string): string;
var
len, p: integer;
pc: PChar;
const
WhiteSpace = [#0, #9, #10, #13, #32];

begin
len := Length(s);
SetLength(Result, len);

pc := @s[1];
p := 0;
while len > 0 do
begin
if not (pc^ in WhiteSpace) then
begin
inc(p);
Result[p] := pc^;
end;

inc(pc);
dec(len);
end;

SetLength(Result, p);
end;