Gestion d'évènement pour lecture des codes barres

Signaler
Messages postés
100
Date d'inscription
samedi 5 janvier 2008
Statut
Membre
Dernière intervention
11 avril 2008
-
Messages postés
292
Date d'inscription
dimanche 14 mars 2004
Statut
Membre
Dernière intervention
18 décembre 2014
-
Bonjour


j'ai déjà posé la question à porpos des lecteurs codes barres, mais je n'ai pas eu de réponse...


alors j'ai créer un objet TGestCAB qui gère la lecture de code barre, et cela on déclarant un évènement:
TOnCodeRecuEvent = procedure (Sender : TObject; NumLecteur : integer; sCAB : string) of object;
avec

 FOnCodeRecu : TOnCodeRecuEvent;

property OnCodeRecu : TOnCodeRecuEvent read FOnCodeRecu Write FOnCodeRecu;
et la procédure

procedure CodeRecu(Sender: TObject; returnPacket : string);


//: Procedure appelée lorsque un code est reçu sur le port série

procedure TGestCAB.CodeRecu(Sender: TObject; returnPacket : string);

 var

  CodeBar : String;

  numLecteur : integer;

begin

    if LeftStr(returnPacket, 2)='/*' then // message avertissement, on ignore

      exit;

    // on récupère le n° de lecteur (les 4 premiers chars)

    numLecteur := StrToInt(LeftStr(returnPacket,4));

    // on récupère le code

    CodeBar := MidStr(returnPacket, 5, Length(returnPacket)-4);

    DoCodeRecu(numLecteur, CodeBar);

end;
 j'ai un autre objet TGestProcess qui va reçvoir ce code barre et il dois répondre à TGestCAB qui l'a bien reçu ce code,

ma question :

comment je dois procéder quelq'un a une idée?

je suis débutante en delphi


merci

1 réponse

Messages postés
292
Date d'inscription
dimanche 14 mars 2004
Statut
Membre
Dernière intervention
18 décembre 2014
3
Bonjour,

Quel composant utilise tu pour le port série ? TComport ou à la "main". ?

Oniria