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*
Codes Sources
A voir également
- CPort
- Delphi cport - Forum Delphi / Pascal
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.