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

cs_dunith Messages postés 100 Date d'inscription samedi 5 janvier 2008 Statut Membre Dernière intervention 11 avril 2008 - 1 avril 2008 à 09:41
Oniria Messages postés 292 Date d'inscription dimanche 14 mars 2004 Statut Membre Dernière intervention 18 décembre 2014 - 2 avril 2008 à 16:49
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

Oniria Messages postés 292 Date d'inscription dimanche 14 mars 2004 Statut Membre Dernière intervention 18 décembre 2014 3
2 avril 2008 à 16:49
Bonjour,

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

Oniria
0
Rejoignez-nous