W Delphi używam jak w poradnikach Mirka: comport, ComDataPacket i MkUsbDetector.
Mianowicie wysyłałam sobie do PC przez FT232 z atmegi dane w postaci stringów coś takiego --> wartość1,wartość2\r\n czyli np.
znak,15
liczba,25132
kod,1
wartosc,128
Okres wysyłania tych stringów jest różny tzn. kolejność wysyłania nie jest stała (najlepiej zobaczyć -> zrzut z konsoli):
znak,15
liczba,25132
kod,1
wartosc,128
znak,15
liczba,25132
kod,1
wartosc,128
liczba,25132
znak,15
wartosc,128
kod,1
liczba,25132
znak,15
wartosc,128
kod,1
To przecież nie powinno mieć żadnego znaczenia bo i tak ComDataPacket analizuje linia po linii, a sytuacja jest taka że niby dane są odbierane prawidłowo, ale z czasem jakby się program w delphi gubił i przestaje odbierać te dane. Podłączony moduł nie przestaje nadawać bo w putty dane cały czas śmigają bez zwiechy nie zauważyłem też żadnych przekłamań
W ComDataPacket mam tak napisane w zdarzeniu odbiorczym "OnPacket", czyli mam podgląd w Memo1 na odbierane dane i tak jak pisałem wyżej co jakiś czas (różnie to jest, tutaj jakiejś zależności czasowej niema) przestaje dodawać nowe linie do Memo i aktualizować te odbierane wartości. Tak jakby się to zdarzenie wieszało
Jak wyłączę i włączę ponowni aplikacje to znowu działa jakiś czas dobrze.
PS. Próbowałem zmieniać prędkość transmisji od 9600 do 115200 zero poprawy. Kwarc mam przyjazny czyli 14 745 600 Hz
Ma ktoś jakiś pomysł gdzie leży błąd
[syntax=delphi]procedure TForm1.ComDataPacket1Packet(Sender: TObject; const Str: string);
var
buf : String;
tab: TArray<String>;
begin
buf := Trim( Str );
Memo1.Lines.Add( buf );
tab := buf.Split( [ ',' ] );
//jeśli przyszły dane z modułu
if CompareStr(tab[0],'znak') = 0 then
begin
Panel1.Caption := tab[1];
end else
if CompareStr(tab[0],'liczba') = 0 then
begin
Panel2.Caption := tab[1];
end else
if CompareStr(tab[0],'kod') = 0 then
begin
Panel3.Caption := tab[1];
end else
if CompareStr(tab[0],'wartosc') = 0 then
begin
Panel4.Caption := tab[1];
end;
end;[/syntax]
PS.
Edit:
Zmieniłem żeby co powiedzmy 500ms dane z atmegi wysyłały się dokładnie w takiej kolejności jak wyżej czyli np.
znak,15
liczba,25132
kod,1
wartosc,128
Ale efekt jest taki sam ... kilka razy takie "pakiet" przejdzie i następuje zwiecha
-- wczoraj, o 20:02 --
Dopisałem jeszcze tej procedury taki "else"
[syntax=delphi]else
begin
StatusBar1.Panels[3].Text := 'STOP!';
end;[/syntax]
Czyli powinno to wyłapać jeśli przyjdzie string nie spełniając żadnego z warunków ... ale przy zawieszeniu dalej się ten else nie wykonuje ... czy wynika że nie w tym problem że przychodzą złe dane
... Ma ktoś pomysł jak temu zawieszaniu zaradzić ?Próbowałem też ze zdarzeniem cPortu OnError i OnBreak żeby wyświetliło na statusbarze ale też bez efektu, czyli tu też błędu nie wywala :/ Wygląda na to że port jest ciągle otwarty i się błędy nie pojawiają tylko w ComDataPacket coś się chrzani :/
PS. Zauważyłem że po tym błędzie dioda sygnalizująca nadawanie przy FT232 przestaje migać, czyli przestaje wysyłać bo ComDataPacket go olewa ?
Za to nadawanie działa cały czas nawet gdy przestaje odbierać i dane do modułu z atmegą przychodzą na 100% poprawnie ...
Statystyki: Napisane przez faber33 — 6 gru 2017, o 20:02
]]>