Discussion :

[max_31]

Bonjour,

Je suis actuellement en stage et je dois développer une appli en Delphi permettant de lire une carte vitale.
Je suis débutante en delphi, car j'ai tjours travaillé en java et je ne suis pas non plus d'un grand niveau en developpement.
Dans un premier temps j(aimerai faire une petite application qui ne récupére pas de paramètre et qui ammène sur un écran où l'on rentre les données et les récupères dans un fichier.
Pourriez vous m'aider sur la méthode à adopter?

Pour le moment, j'ai dans mon programme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
begin
  Application.Initialize;
  Application.Title := 'DMP';
  Application.Run;
 
  //Action selon le paramètre passé à l'exe
 if (Paramcount = 0) then
 begin
 testDMP := false;
 
 end;

et j'ai crée mon interface avec nom, prénom, numéro de sécu.

Merci par avance.

[Fxg]

pour pouvoir lire la carte vitale il faut passer par les API fournies par le GIE Sesame Vitale.

Sinon, utilise les balises pour le code (que tu as écris pas celui généré automatiquement au début d'un nouveau projet) et soit plus précis dans ta demande et le problème sur lequel tu butes

[max_31]

oui oui je sais bien qu'il faut passer par le GIE Sesam vitale, j'ai fais ma demande et je suis maintenant en attente de la réponse.
mais en attendant je veux simplement faire une petite application permettant de dire que je place 0 paramètre, et qui me retourne un écran ou je saisie mes données et qui me récupère un fichier.
Cette application est indépendant de la carte vitale pour le moment.
Et je ne sais pas vraiment comment procèder.

[Fxg]

Si j'ai bien compris tu souhaites récupérer (ou non) les paramètres passés à l'EXE, utilise la fonction Paramstr

[lyl_83]

Oui c'est tout à fait ça, mais je ne comprend pas vraiment le principe en fait

Suis je suis la bonne voie avec ce code?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
//Si le paramètre est à 0 , on affiche une aide
  if ParamCount = 0 then
  begin
   Application.Terminate;
   exit;
  end;
 
//Si le paramétre est à 1, on a un fichier retour obligatoirement
 
 
 
// Si le paramètre est à 2, on a 3 choix possibles : Vitale, INS, DMP
  try
    iAction       := StrToInt(ParamStr(2))
except
    iAction       := VITALE;
end;
 
 
// Si aucun ne correspond , on met une erreur expliquant les choix possibles

[tourlourou]

ParamCount te donne le nombre de paramètres passés en ligne de commande
tu accèdes ensuite à chacun par ParamStr[indice]

si tu n'as besoin que d'un paramètre qui peut avoir plusieurs significations, tu peux essayer qqch du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
if ParamCount=0 
then MonParametre:=0
else MonParametre:=StrToIntDef(ParamStr[1], 0); // attribue 0 si conversion impossible
 
case MonParametre of
  1 : begin
         // code spécifique
       end;
  2 : begin
         // code spécifique
       end;
  3 : begin
         // code spécifique
       end;
else  begin
         // code spécifique
         // affichage d'aide car pas de paramètre, ou non traduit en entier
       end;
end;