ATNEL tech-forum

Re: ComPort + MkUsbDetector nie wznawia transmisji

2018-02-17T14:07:47+01:00

Klawo, że udało Ci się rozwiązać problem.
Mi niestety do chwili obecnej nie udało się znaleźć tamtego projektu.

Statystyki: Napisane przez karolen — 17 lut 2018, o 14:07

Re: ComPort + MkUsbDetector nie wznawia transmisji

2018-02-16T11:07:22+01:00

Już działa ok. Trzeba było dodać obsługę wyjątku dla ComPort.

Statystyki: Napisane przez kosta — 16 lut 2018, o 11:07

Re: ComPort + MkUsbDetector nie wznawia transmisji

2018-02-16T08:05:15+01:00

W MkUsbDetector1UsbDetect jest wywoływana procedura StopComPort, tak więc to nie pomoże.

Quote:

Postaram się jednak znaleźć własne przykłady, to wtedy pomogę.

To jakbyś mógł to kuknij i daj znać.

Statystyki: Napisane przez kosta — 16 lut 2018, o 08:05

Re: ComPort + MkUsbDetector nie wznawia transmisji

2018-02-15T23:10:17+01:00

Jakiś czas temu jak sam przerabiałem tą serię poradników to mi to wtedy działało bez najmniejszego zarzutu.
Może będe mało pomocny, ale obstawiam że wkradł się jakiś chochlik przy "transuzji kodu".
Mi też kilka razy się wydawało, że robię toćka-w toćkę to co Mirek, ale dopiero przy kolejnym oglądaniu poradnika znajdowałem psikusa u mnie
Postaram się jednak znaleźć własne przykłady, to wtedy pomogę.

Statystyki: Napisane przez karolen — 15 lut 2018, o 23:10

Re: ComPort + MkUsbDetector nie wznawia transmisji

2018-02-15T18:44:14+01:00

A może w zdarzeniu MkUsbDetector1UsbDetect dorzuć to, co jest w procedurze StopComPort.
Uprzedzam, że strzelam, nie znam się na delphi

Statystyki: Napisane przez Marhef — 15 lut 2018, o 18:44

ComPort + MkUsbDetector nie wznawia transmisji

2018-02-15T18:12:54+01:00

Witam
Przerabiam poradniki dotyczące oprogramowania i komunikacji UART w DELPHI. Odnośnie AsyncPro wszystko działa zgodnie z poradnikami.
Chciałem jednak przesiąść się na ComPort + MkUsbDetector. Komunikacja z użyciem tych komponentów działa również bez zarzutu w obie strony. Wszystko robiłem krok po kroku zgodnie z poradnikami.
Natomiast mam problem gdy symuluję awarie łącza (odłączam kabel USB) od płytki ATB. Opiszę po kolei. Stworzyłem prostą aplikację pod DELPHI jak najprostszą aby tylko przejść do sedna problemu.. Zrzut ekranu poniżej:

Na płytce ATB do przesyłania danych do aplikacji Delphi wykorzystuje enkoder (tak jak jest to przedstawione w poradnikach).
W tej aplikacji mam na sztywno wpisany nr portu COM (do testów tylko). W momencie podłączenia kabla konfiguracja transmisji jest automatycznie konfigurowana. Odbywa się to za pośrednictwem zdarzenia MkUsbDetector1NewComInfo:

[syntax=c]procedure TForm1.MkUsbDetector1NewComInfo(Sender: TObject;
MkComInfo: array of TMkComInfo; count: Integer);
begin

if count > 0 then begin
if cPort.Port = MkComInfo[0].sPort then begin
cominfo.ComPort := MkComInfo[0].sPort;
cominfo.ComID := MkComInfo[0].Serial;
Label1.Caption := cominfo.ComID;
StopComPort;
StartComPort;
end else begin
PortNr.Caption := 'Podłączono: '+MkComInfo[0].sPort;
end;
end;
end;[/syntax]

Procedura StartComPort:

[syntax=c]procedure TForm1.StartComPort;
begin
ComDataPacket1.StopString := #13;
try
cPort.Open;
cPort.Connected := True;
StatusBar1.Panels[0].Text := cPort.Port;
except
StatusBar1.Panels[0].Text := '!!!';
end;
end;[/syntax]

Procedura StopComPort:

[syntax=c]procedure TForm1.StopCom;
begin
try
cPort.Connected := False;
cPort.Close;
except

end;
end;[/syntax]

Zdarzenie MkUsbDetector1UsbDetect (reagujace na utrate lacznosci):

[syntax=c]procedure TForm1.MkUsbDetector1UsbDetect(Sender: TObject; UsbName, vid,
pid: string; inout: Integer);
begin

if inout = 0 then begin

if usbname = cominfo.ComID then begin
StopCom;
StatusBar1.Panels[0].Text := 'COM?';
end;
end;
end;[/syntax]

Podczas odłączania nie jest nic przesyłane w żadną ze stron.

Po ponownym podłączeniu kabla aplikacja już nie potrafi wznowić transmisji.
Aplikacja nie wysyła już nic z pola Edit, ani nie odbiera danych z Enkodera.
Po zamknięciu aplikacji po około 10 sekundach pojawia się błąd:

Natomiast jeśli przed odłączeniem kabla rozłącze transmisję przyciskiem Stop (procedura StopComPort) i następnie włącze kabel transmisja między układem a aplikacją jest prawidłowa.
Co jeszcze muszę ustawić skonfigurować czy dopisać do kodu aby zadziałało tak jak powinno, czyli żeby transmisja wracała bez konieczności zatrzymywania przyciskiem Stop?
Wersja komponentu MkUsbDetector - 1.6 (z licencją).
Patrzyłem do kodu Mirka przykładowej aplikacji, ale nie dopatrzyłem się co jeszcze trzeba zrobić. Pomóżcie

Statystyki: Napisane przez kosta — 15 lut 2018, o 18:12