TComPort et Patte DSR

Je veux développer un programme qui lit une EEprom a partir du port série, j’ai trouvé sur ce sujet pas mal de réalisations, l’une d’elles un programme avec visuel basic
Code:

1 2 3 4 5 6 7 8 MSCOM.RTSEnable = False ' SCL=0 Loop8Bits2: ' Passer au bit suivant (7..0) MSCOM.RTSEnable = True ' SCL=1 If MSCOM.DSRHolding = True Then Recep_8_I2c = Recep_8_I2c + n ' DSR=SDA(7..0)(ENTREE) MSCOM.RTSEnable = False ' SCL=0 n = n / 2 ' Valeur du bit n-1 If n <> 0.5 Then GoTo Loop8Bits2 ' Si les 8 bits pas tous Reç recommencer
Mon problème c’est quand j’ai essayé de convertir ce programme, je n’ai pas trouvé l’équivalant de l’instruction DSRHolding avec le composant TComPort alors mon programme ne marche pas.
voila ce que j'ai fait:
Code:

1 2 3 4 5 6 7 8 9 do { ComPort->SetRTS(true); if (DSR) donnee = donnee + n; ComPort->SetRTS(false); n = n / 2; } while (n > 0.5);
la variable DSR est globale et change d'etat dans l'evenement OnDSRChange,et prend la valeur OnOff.
Merci.