test de pointeur non null

Version imprimable

Voir 40 message(s) de cette discussion en une page

06/04/2007, 13h56
czezko

oui mais....il faut tenter une lecture de la carte pour voir si elle est présente, le pointeur ne devient pas non null tout seul, il faut d'abord lire, donc ça ne fonctionnera pas, il faut lire en boucle, dés que le pointeur est non null ( carte présente ) arreter de lire , traiter les information de la carte, je crois qu'il faudra que je relance la lecture moi même à la main, parce que pour détecter que la carte à été retirée, il faut lire aussi en boucle tant qu'elle est dedans

Lecture carte

Bonjour,

En fait le timer n'est la que pour tester la présence de la carte et eventuellement récupérer les infos contenues dedans.
car c'est bien ça la finalité de ton problème non?

Alors voilà ce que je te propose:

Ton timer teste en permanence la présence de la carte.
tu crée une variable pour stocké les infos de la carte. si celle ci est vide alors tu lance le traitement de récupération des infos.

sur la fiche 2 boutons, un timer et un label

Code:

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
 
 
  TfrmMain= class(TForm)
  (...)
  private
    FIsSmartCardInseree: Boolean;
    FInfoCarte: Pointer;
    function EssaiLireCarte: Pointer;
    procedure RecupererInfosCarte;
  end;
 
var
   frmMain = TfrmMain
   Ptr: Pointer = nil; //pour la simulation
 
implementation
 
function TfrmMain.EssaiLireCarte: Pointer;
begin
  Result := Ptr;
  if Assigned(Result) then
    lblMessage.Caption := 'Carte insérée'
  else
    lblMessage.Caption := 'Aucune carte';
end;
 
procedure TfrmMain.tmrVerifierPresenceCarteTimer(Sender: TObject);
var
  ResultatLectureCarte: Pointer;
begin
  ResultatLectureCarte := EssaiLireCarte;
  FIsSmartCardInseree := Assigned(ResultatLectureCarte);
  if FIsSmartCardInseree and (not Assigned(FInfoCarte)) then
    RecupererInfosCarte;
end;
 
//ce bouton simule l'insertion d'une carte en mettant un valeur arbitraire 
//à la variable globale Ptr
procedure TfrmMain.btnInsertCarteClick(Sender: TObject);
begin
  Ptr := Pointer(5);
end;
 
//ce bouton simule la non présence d'une carte en mettant un valeur 
// nil à la variable globale Ptr
//et vide les infos
procedure TfrmMain.btnRetirerCarteClick(Sender: TObject);
begin
  Ptr := nil;
  FInfoCarte := nil;
end;
 
//simule la récuperation d'infos de la carte
procedure TfrmMain.RecupererInfosCarte;
begin
  if FIsSmartCardInseree then
  begin
    //valeur arbitraire
    FInfoCarte := Pointer(5);
    Showmessage('récupération info carte ici');
  end
  else
    Showmessage('erreur: carte retirée entre temps');
end;

j'èspère que c'est clair et que ca répond à ton problème.

06/04/2007, 16h27
czezko

oui mais le pointeur je ne dois pas le créer, je n'en suis pas propriétaire, enfin c'est pas grave, à l'insertion les données sont affichées et l'extraction elles s'éffacent et tant pis si elles sont continuellement écrasées tant que la carte est insérée
06/04/2007, 16h51
Kaféine

lecture carte

Le pointeur est là que pour la simulation !
car j'ai pas de lecteur de carte moi.

Citation:

Envoyé par czezko

oui mais....il faut tenter une lecture de la carte pour voir si elle est présente, le pointeur ne devient pas non null tout seul, il faut d'abord lire, donc ça ne fonctionnera pas, il faut lire en boucle, dés que le pointeur est non null ( carte présente ) arreter de lire , traiter les information de la carte, je crois qu'il faudra que je relance la lecture moi même à la main, parce que pour détecter que la carte à été retirée, il faut lire aussi en boucle tant qu'elle est dedans

Je ne vois pas ce qui est génant dans mon code :?

Si tu fais la lecture de ton pointeur dans la routine du timer, vu que celui-ci est désactivé en début d'événement, il ne va pas se relancer.

Ensuite, la procédure procedure_insertion_carte(); est appelée avant que le timer soit relancé. Donc pas de problème non plus de ce coté là.

Enfin, lorsque la procédure ci-avant sera terminée, le timer est relancé. Donc dans le cas où la carte est retirée, tu le détectes.

Eventuellement, il faudrait ajouter un autre test détectant le passage de la variable carte_presente de TRUE à FALSE.

M'enfin, je ne suis pas sur que tu ais bien expliqué ton problème, je n'arrive pas à comprendre où mon raisonnement bloque...
Code:

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 40 41 42 43 44 45 46 47 procedure Tform1.TimerTimer(Sender: TObject); var insertion_carte : boolean; desinsertion_carte : boolean; begin Timer.Enabled := FALSE; // On bloque l'appel du timer // Nos 2 variables permettant de détecter l'insertion / désinsertion d'une carte insertion_carte := FALSE; desinsertion_carte := FALSE; // Là, tu fais ta lecture de pointeur pointeur := lecture_pointeur(); // On teste la présence de la carte if (pointeur = nil) then begin // -- le pointeur est nul, y'a pas de carte if (carte_presente) then // La carte était présente, elle ne l'est plus desinsertion_carte := TRUE; carte_presente := FALSE; // Carte_presente est une variable globale de type booléen // On reset les contrôles d'affichage UNIQUEMENT à la désinsertion if (desinsertion_carte) then begin Label1.Caption := ''; end; end else begin // -- Le pointeur n'est pas nul, il y a une carte if (not carte_presente) then // La carte n'était pas présente, mais maintenant si insertion_carte := TRUE; carte_presente := TRUE; // Ici, comme on vient d'insérer la carte, on appelle la fonction ad hoc if (insertion_carte) then procedure_insertion_carte(); // Cette procédure affiche dans tes contrôles le contenu de la carte end; Timer.Enabled := TRUE; // On 'oublie pas de relancer le timer pour détecter si la carte est enlevée ou pas!!! end;
Voilà, avec le code ci-dessus, tu lis la carte UNIQUEMENT lors de son insertion, tu effaces les données UNIQUEMENT lorsque tu l'enlèves, et enfin, tu testes en continue la présence de la carte (sauf pendant les 2 opérations précédentes...

Voir 40 message(s) de cette discussion en une page