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
