1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
|
var
FAppro : TApdComPort ;
...
begin
//Initialisation
EnvoyerOrdreNouveauDocument ;
ChaineRecue := '';
// Tant que l'utilisateur n'a pas mis fin a la lecture
While Flecture do
begin
{ Laisse a l'application le temps de traiter ses messages }
Application.ProcessMessages ;
{ On recupere les donnes renvoyees par le lecteur }
if FAppro.CharReady then
{ On a recu un caractere }
begin
Try
CaractereLu := FAppro.GetChar ;
{
L'instruction suivante est un hack pour contrer un bug sous XP.
Ce bug ne renvoit pas la bonne chaine de caractère
On écrit dans un fichier pour faire passer le temps
{}
If UseHackXP then
WriteEcraseInLog('On lit un caractère.',FichierPasseTemps);
ChaineRecue := ChaineRecue + CaractereLu ;
{ Debut de document ? }
If Pos(DebutDoc,ChaineRecue)>0 then
DebutDocument := true ;
{ Debut d'enregistrement ? }
If Pos(DebutEnr,ChaineRecue)>0 then
... |
Partager