Discussion :

[P.G]

Bonjour à tous,

Je souhaite configurer quelques paramètres d'une liaison série
sans passer par des boites de dialogues je procède comme ci-deesous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
procedure TForm1.Panel1Enter(Sender: TObject);
begin
        Comport1.DataBits:=dbeight;
        Comport1.Parity:=prNone;
end;

et j'obtient le message d'erreur suivant :
[Erreur] TComPort_1.pas: Types incompatibles : 'TComParity' et 'TParityBits'

Je débute en POO et n'ai pas réussi à décortiquer suffisamment CPort.pas
pour résoudre mon problème. le DataBits s'initialise bien mais pas le Parity.

Merci du coup de main.

P.G

[ShaiLeTroll]

CPortTypes.pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
TDataBits = (dbFive, dbSix, dbSeven, dbEight);
TParityBits = (prNone, prOdd, prEven, prMark, prSpace);

CPort.pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
// parity settings
  TComParity = class(TPersistent)
  private
    FComPort: TCustomComPort;
    FBits: TParityBits;
     ...
published
    property Bits: TParityBits read FBits write SetBits;
  ....

Je ne connais pas TComPort, à voir le code sur Koders, je pense à un truc comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Comport1.DataBits := dbEight;
Comport1.Parity.Bits := prNone;

car Parity est un TComParity, un objet et non une valeur entière enumérée comm TParityBits

Pour résumer, la réponse c'est la propriété Bits du type TParityBits propriété de l'objet Parity du type TComParity

Si tu débutes, comme tu as les sources, profites-en ! Lis-les et Relis, puis relis encore ! Cela te sera profitable même si c'est un peu pénible.
J'ai appris comme cela, je me suis inspiré de classes.pas pour la plupart des codes objets !

Pour les objets standaard, pense à la touche et la documentation en ligne,

[P.G]

Hello,

Bon j'ai essayé ta proposition pour TcomPort
Comport1.Parity.Bits := prNone;
C'est ok
Super
Merci beaucoup
P.G