[Delphi] Odbiór paczek 2-bajtowych z RS232 przy 600 b/s - jak to zrobić?

Question

Witam Kolegów,
Do komputera poprzez port RS232 mam podłączony sterownik uPC, który przesyła dane w formie paczek po 2 bajty, przy czym pierwszy bajt zawsze jest > 127 (to pewien wskaźnik) a drugi bajt zawiera się w zakresie 0..47. No i jest problem bo nie mogę tych pełnych paczek odbierać za pomocą zdarzenia RxChar - wydaje się, że komponent odbiera tylko niektóre dane a prędkośc to zaledwie 600 b/sek. Ja zrealizować ten odbiór...proszę... robiw

Konto nie istnieje · Accepted Answer

5 i 6 dana zostaje zapisana do buforu - wczesniej nie byla sprawdzana wielkos buforu i dlatego jezeli program nie zdazyl odebrac dana[2] to najprawdopodobniej aktualizowal ja z kolejnej 2 paczki. teraz teoretycznie program czeka na 2 bajty a wydaje mi sie ,ze szybciej sie wykonaja aktualizacje kontrolek niz wysylanie bajtow. najlepiej z boku sprawdz sobie jak zapelnia sie bufor (ustaw bufor na jakis duzy i jezeli bufor rosnie tzn, ze program nie nadaza,jezeli nie to metoda ze sprawdzeniem czy znajduja sie tam conajmniej 2 bajty wydaje sie byc dobra)

JStan · Answer

Witam!!

W jaki sposób robisz obsługę odbioru danych, jesli masz przykładowe programu dołączone do komponentu cport to sprawdź comport example. Jest tam polecenie ComPort.ReadStr(Str, Count); umieszczone w wywołaniu RxChar. Odbierasz dwa bajty więc w count chyba możesz zadeklarować 2. Jeśli będziesz miał nadal problemy polecam poszukać na www.4programmers.com Ja robiłem tylko obsługe wysyłania danych a nie odbierania.

Pzdr!!

robiw · Answer

W procedurze zdarzenia RxChar Mam Comport.Read(Dana[i] , 1), gdzie dana to macierz 2-elementowa. W tej procedurze zwiększam i przy jej każdym wywołaniu i gdy i=2 to robię coś z danymi (aktualizuje pewne kontrolki). Sęk w tym, że to Read prawdopodobnie czeka na jakiś znak eventu (np. #0) a u mnie takich nie ma - leci ciąg 2 -bajtowych danych...i utknąłem w miejscu... robiw

Promuję tematy:
24.09.2025 fuseDoctor – ratownik zbrickowanych mikrokontrolerów AVR (ATmega8 i podobne).

JStan · Answer

Hmm może ten temat Ci pomoże, ja niestety niemam jak teraz zbadać Twojego przypadku głębiej. Pozdrawiam!!

Konto nie istnieje · Answer

Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowka procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer); var  znak:byte; begin  comport1.Read(znak,1);  if ord(znak)>127 then begin  dana[1]:=znak;  comport1.Read(znak,1);  dana[2]:=znak;  end; end;

robiw · Answer

Tylko po co Ord? Ja przesyłam wartości Byte i takie chce odczytywać? Poza tym jeśli faktycznie przyjdzie dana>127 to prawdopodobnie w Twojej propozycji odczytu drugiego bajta - on jeszcze nie zdąży przyjść bo baud=600. Dodatkowo, nie wiem dlaczego, przy włączaniu PCta i przy podłączonym układzie na procku - resetuje mi on kilka razy układ...robiw

Promuję tematy:
24.09.2025 fuseDoctor – ratownik zbrickowanych mikrokontrolerów AVR (ATmega8 i podobne).

Konto nie istnieje · Answer

nie czaje jak nie zdazy przyjs? przeciez w comport tez ustawiasz br600 poza, jak odbierze jeden znak to jak pojawi sie nastepny (onrxchar) wtedy odbiera drugi no i jeszcze jest bufor... ord dlatego ze myslalem stringowo

--- edit---

jakim przewodem masz podlaczony sterownik? jezeli kablem 1:1 to na rts i dtr moga zmieniac sie stany...

robiw · Answer

RTS itp mam wyłączone na comport. Kabel mam z przeplotką tzn. rx układu na tx PC i vice versa. Nie zdąży przyjść bo w delphi warunek będzie sprawdzony szybciej niż nadejdzie drugi bajt po RSie, no chyba, że procedura read czeka az w buforze pojawi się ten drugi bajt<48... robiw

Promuję tematy:
24.09.2025 fuseDoctor – ratownik zbrickowanych mikrokontrolerów AVR (ATmega8 i podobne).

Konto nie istnieje · Answer

najpierw sprawdz to co podalem.

robiw · Answer

Sprawdzę jutro ale wątpię,. Ja co prawda nie dawałem warunku tylko czytałem kolejne dane zwiększając indeks i gdy index=2 to coś z nimi robiłem... ale nie działało...myślę, że przez tą flagę event ustawianą we właściwościach...robiw

Promuję tematy:
24.09.2025 fuseDoctor – ratownik zbrickowanych mikrokontrolerów AVR (ATmega8 i podobne).

Konto nie istnieje · Answer

nic nie zmieniaj we wlasciwosciach oprocz baudrate - bedzie dzialac.
a co do kabla na wlaczonym kompie na tx kompa masz wysoki stan (przynajmniej u mnie) wiec moze zmiana stanu (niski przy wylaczonym kompie,wysoki przy wlaczonym powoduje ,ze procek sie resetuje) ale to akurat jest gdybanie

robiw · Answer

Działa...tyle,że pomiędzy poszczególnymi paczkami danych (2 bajtowych ze sterownika) muszę dać 100ms delay bo inaczej jakby gubił je - tzn. nie odświeża mi kontrolek suwaków - dokładnie rzecz ujmując to robi to dopiero po zajściu kolejnego zdarzenia RxChar - czyli odświeża tymi nieodczytanymi wcześniej danymi a dopiero jak wyczerpie ich "zapas" to działa na nowych, które przyszły. Przy daniu delayu w sterowniku - radzi sobie w czasie rzeczywistym...robiw

Promuję tematy:
24.09.2025 fuseDoctor – ratownik zbrickowanych mikrokontrolerów AVR (ATmega8 i podobne).

robiw · Answer

Kurczę, sam już nie wiem jak obsługiwać ten bufor aby czytać wszystko co przyszło? Może jakiś pomysł? robiw

Konto nie istnieje · Answer

Znaczy sie nie odbierasz danych ?

robiw · Answer

Odbieram ale część pozostaje w buforze do czasu następnego zdarzenia rxchar...robiw

Konto nie istnieje · Answer

To moze jak przetwarzasz te dane to trwa dluzej niz nadanie nastepnej paczki (nie wiem co masz dalej ale moze jestes w jakiejs petli, ktora za dlugo sie wykonuje)? Jezeli tak to czysc za bufor i za kazdym razem bedziesz mial bierzaca paczke.

robiw · Answer

Jest zapewne tak:
- zachodzi zdarzenie RxChar, w którym czytam zmienną "Znak" instrukcją ComPort.Read i jeśli Znak>127 to w obsłudze tego zdarzenia czytam jeszcze raz port. Mając już 2 bajty odświeżam tymi danymi kontrolki znajdujące się na formularzu. Prawdopodobnie gdy odświeżam te kontrolki, a więc jestem w procedurze RxChar, nadchodzą już nowe znaki (paczka 2-bajtowa), które zostaną odczytane dopiero jak zajdzie następne zdarzenie RxChar ale przecież to następne zdarzenie to już kolejna paczka 2-bajtowa a nie ta odczytana czyli nie odświeżam tego formularza na bieżąco i dane w takim razie, mam wrażenie, przychodzą w dziwnej kolejności. Należałoby jakoś obsługiwać ten bufor a może zmienić jego właściwości...ale nie wiem jak...robiw

Promuję tematy:
24.09.2025 fuseDoctor – ratownik zbrickowanych mikrokontrolerów AVR (ATmega8 i podobne).

Konto nie istnieje · Answer

Nie rozumie jak chcesz obslugiwac bufor? Buffor gromadzi nadchodzace dane i pobierasz je pokolei i teraz albo zrob osobna procedure odczytu portu (wtedy procedura nie bedzie sie wykonywala tylko jezeli zostana odebrane znaki) albo jezeli bedziesz mial onrxchar to poprostu czysc bufor:


ComPort1.ClearBuffer(True, False); //czyscisz bufor wejscia

Dodaj to na koncu procedury w ktorej ustawiasz kontrolki - sorry ale bez kodu i co z danymi robisz trudno powiedziec co jest nie tak...

robiw · Answer

Dokładnie kodu nie pamiętam ale nie ma tam nic szczególnego. Coś takiego (proszę pominąć błędy w składni ;-)

):


procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
 znak:byte;
begin
 comport1.Read(znak,1);
 if znak>127 then begin
  dana[1]:=znak and 127; {maskuję bit 7 aby dostać "czysty" numer rozkazu}
  comport1.Read(znak,1);{czytam daną związaną z tym rozkazem}
  dana[2]:=znak;
  {odświeżenie suwaków kontrolek w zależności od rozkazu, który mówi dla którego suwaka przyszły dane}
  Case dana[1] of
   1: bar1.Position=50-Dana[2];
   2: bar2.Position=50-Dana[2];
   3: bar3.Position=50-Dana[2];
  end;
 end;

end;

Tak mniej więcej wygląda obsługa zdarzenia. Nic szczególnego. Zastanawiam się jednak nad jednym: zdarzenie RxChar zachodzi jak przyjdzie bajt, ja sprawdzam ten bajt i chcę już czytać kolejny (dla Dana[2]). Skąd wiadomo, że kolejny już jest w buforze skoro zdarzenie zaszło dla tego pierwszego (rozkazu) i jak sprawdzam warunek czy>127 i czytam ponownie to może drugiego bajta jeszcze nie ma? A jeśli jest to przecież dla niego powinno zajść drugie wywołanie zdarzenia w czasie tego które właśnie obsługuję? Jak to jest? A może czytać ilość tych bajtów, które wywołują RxChar (zmienna Count) i jakoś reagować na ich ilość? Bajty ze sterownika wysyłane są parami: rozkaz (>127) i dana związana z rozkazem (<127)? No i po co czyścić bufor - stracę przecież (chyba) nieodczytane jeszcze dane? Czy czytanie bufora nie zdejmuje automatycznie tych przeczytanych? Moje pytania biorą się pewnie z niewiedzy jak działa ta kontrolka ale jej działanie jest dziwne... robiw

Promuję tematy:
24.09.2025 fuseDoctor – ratownik zbrickowanych mikrokontrolerów AVR (ATmega8 i podobne).

Konto nie istnieje · Answer

Jezeli wysylane jest w paczce po 2 bajty to mozesz smialo czytac odrazu nastepny bajt. dziwne troche bo powinno dzialac 'normalnie'. moze sprobuj zrobic sobie to w timerze a nie w onrxchar. no i dana[1] przybiera tylko 3 wartosci czy tylko dla 3 jest sprawdzana ?

robiw · Answer

Rozkaz może przybierać jedynie 11 wartości i tyle (te wszystkie wartości) sprawdzam w Case... (skróciłem listing) i aktualizuję wybrany suwak. Czy Dana[2] będzie już gotowa po sprawdzeniu warunku? Wątpię, bo przecież przy baud=600 b/sek następny bajt, powiedzmy, że ten Dana[2] przyjdzie dopiero po około 6.25ms a warunek myślę, że będzie sprawdzony dużo wcześniej. I nie wiem czy bufor jest automatycznie przesuwany o odczytane wartości... robiw

Promuję tematy:
24.09.2025 fuseDoctor – ratownik zbrickowanych mikrokontrolerów AVR (ATmega8 i podobne).

Konto nie istnieje · Answer

W takim razie


procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var
 znak:byte;
begin
 if count>=3 then begin
 comport1.Read(znak,1);
 if znak>127 then begin
  dana[1]:=znak and 127; {maskuję bit 7 aby dostać "czysty" numer rozkazu}
  comport1.Read(znak,1);{czytam daną związaną z tym rozkazem}
  dana[2]:=znak;
  {odświeżenie suwaków kontrolek w zależności od rozkazu, który mówi dla którego suwaka przyszły dane}
  Case dana[1] of
   1: bar1.Position=50-Dana[2];
   2: bar2.Position=50-Dana[2];
   3: bar3.Position=50-Dana[2];
  end;
 end;
 end;
end;

3 dlatego zeby rozpoczac odczyt jezeli w buforze beda minimum 3 bajty , bo moze zaczac sie od bajtu ,ktory reprezentuje dana[2] i w tym przypadku ja pominie i zacznie czytac 2 kolejne aczkolwiek nie jestem przekonany do konca przekonany... jak czest sa wysylane paczki ?

-edit-

nawiasem mowic mysle ,ze po to ustawia sie baudrate w comport,zeby miedzy innymi byly odpowiednie opoznienia czytania buforu i mozna czytac byfor 'raz za razem' ale tego to nie jestem pewien

robiw · Answer

Nic nie może zostać pominięte - nie tędy droga ...robiw

Konto nie istnieje · Answer

nie zrozumiales, to jest zabezpieczenie jezeli do buforu zostanie zaladowany jako pierwszy bajt ktory zostanie zapisany w dana[2], w tym przypadku wlasnie pentla odrzuci ten bajt i zacznie czytac od wlasciwego a przy nastepnych wywolaniach nie powinien zostac pominiety zdny bajt. zreszta dobisz te 2 linijki i sprawdz

robiw · Answer

Rozumiem ale sęk w tym, że właśnie żadna dana nie może być pominięta, nawet ta pierwsza Dana[2] :-(

. Może rozwiązaniem byłby odczyt asynchroniczny ale nie wiem jak podejść do tematu lub wprowadzić jakiś bufor FIFO i w innej procedurze Timera go czyścić i aktualizować...robiw

Promuję tematy:
24.09.2025 fuseDoctor – ratownik zbrickowanych mikrokontrolerów AVR (ATmega8 i podobne).

Konto nie istnieje · Answer

Jezeli jako pierwsza pojdzie dana[2] (nawet w wersji bez sprawdzania wielkosci bufora) to i tak bedzie pominieta bo masz warunek if znak>127 a tu chodzi ,zeby odczyt byl robiony po zapelnieniu bufora ,jezeli bufor bedzie zapelniony conajmniej 3 bajtami to zaczyna sie odczyt. Mozesz sprobowac zrobic : if count>=2 wtedy zacznie odczyt buforu jezeli nadejdzie paczka (czyli 2 bajty). Tak z ciekawosci to co jaki czas wysylasz te paczki ?

robiw · Answer

maks to 30 razy na sekunde... robiw

Dodano po 22 [minuty]:

Pomyślmy:
1. przychodzi nada[1]
2. wchodzimy w procedurę rxchar
3. czytamy dana[2]
4. rozpoczyna sie mozolna aktualizacja kontrolki
5. przychodzi nowa dana[1]' a my dalej w procedurze rxchar
6. przychodzi nowa dana[2]' a my dalej j.w.
7. kontrolka zaktualizowana i wychodzimy z procedury rxchar
8. przychodzi kolejna dana[1]'' wywołująca zdarzenie rxchar
9. w procedurze czytamy jakieś dane ale nie wiadomo czy stare jeszcze takie, które nie zaktualizowały kontrolek ( czyli z ') czy nowa (z '')...
...itd. itp... a problem może się nawarstwiać kiedy będą przychodziły często czyli pójdzie ich kilka w trakcie czasochłonnej procedury rxchar odświeżającej kontrolki na ekranie... ogólny galimatias... robiw

Promuję tematy:
24.09.2025 fuseDoctor – ratownik zbrickowanych mikrokontrolerów AVR (ATmega8 i podobne).

robiw · Answer

Witam,
Poszliśmy zupełnie ślepą uliczką :-)

. Problemem nie były timingi...tylko fakt, iż w procedurze RxChar nie sprawdzamy ile faktycznie przyszło paczek danych (a przychodziło nawet do pięciu) tylko odczytywaliśmy zawsze jedną paczkę i aktualizowaliśmy jeden suwak. Uwzględnienie liczby paczek i obsłużenie ich w procedurze RxChar za jednym razem rozwiązało wszelkie problemy. Oto poniższy, przykładowy kod:


procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var znak, ilosc, i : byte;
begin
 ilosc:=count div 2;
 for i:=1 to ilosc do
  begin
   comport1.Read(znak,1);
   if znak>127 then begin
     dana[1]:=znak;
     comport1.Read(znak,1);
     dana[2]:=znak;
     memo1.Text:=memo1.text+','+inttostr(dana[1])+','+inttostr(dana[2])+']'+#13#10;
   end;
  end;
end;

Tak to jest, jak nie zauważy się oczywistej oczywistości jak mawiał nasz były (na szczęście) prime minister ;-)

...pozdrawiam... robiw

Promuję tematy:
24.09.2025 fuseDoctor – ratownik zbrickowanych mikrokontrolerów AVR (ATmega8 i podobne).

[Delphi] Odbiór paczek 2-bajtowych z RS232 przy 600 b/s - jak to zrobić?

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Post #8

Post #9

Post #10

Post #11

Post #12

Post #13

Post #14

Post #15

Post #16

Post #17

Post #18

Post #19

Post #20

Post #21

Post #22

Post #23

Post #24

Post #25

Post #26

Post #27

Post #28

Post #29

Podsumowanie tematu