Description
Librairie CPort modifiée pour passer sous Lazarus 1.+/CodeTyphon 4.7
La led et le terminal ne fonctionnent pas.
Pour l'instant la parade pour la led est de mettre une autre led,
par exemple celle du paquet industrial (AdvLed).
Il suffit ensuite de mettre une condition pour la connection
et une autre pour la déconnection.
"procedure TForm1.ComPort1AfterOpen(Sender: TObject); begin AdvLed1.State := lsOn ; end; procedure TForm1.ComPort1BeforeClose(Sender: TObject); begin AdvLed1.State := lsOff; end;"
La led et le terminal ne fonctionnent pas.
Pour l'instant la parade pour la led est de mettre une autre led,
par exemple celle du paquet industrial (AdvLed).
Il suffit ensuite de mettre une condition pour la connection
et une autre pour la déconnection.
"procedure TForm1.ComPort1AfterOpen(Sender: TObject); begin AdvLed1.State := lsOn ; end; procedure TForm1.ComPort1BeforeClose(Sender: TObject); begin AdvLed1.State := lsOff; end;"
- Je travail sur la récupération de la led et du terminal*