[Delphi] Récupérer un argument en ligne de commande

Version imprimable

24/04/2007, 11h34
rock-lee

[Delphi] Récupérer un argument en ligne de commande

Bonjour à tous,

Je suis vraiment débutant en programmation langage delphi.

J'ai créer un petit programme qui lit un fichier texte et qui l'affiche dans un memo.

Cependant j'aimerait pouvoir le lancer depuis la ligne de commande avec comme argument le fichier texte. quelque chose du style

mon_fichier.exe toto.txt

Est-ce que cela est possible , si oui auriez-vous une piste???

Merci d'avance
24/04/2007, 11h40
Fabrice ROUXEL 1

ParamCount et ParamStr() + traitement du fichier (vérif extension, chargement dans le memo) dans le MainForm.Create.

donc dans ce code la , je devrais placé ou cette fonction?? :

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
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  Tfrm_main = class(TForm)
    Memo1: TMemo;
    btn_ok: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btn_okClick(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  frm_main: Tfrm_main;
 
implementation
 
{$R *.dfm}
 
 
procedure Tfrm_main.btn_okClick(Sender: TObject);
Var F: TextFile;
Stg:String;
begin
//Lire le contenu du fichier
Memo1.Clear; //Efface le contenu de Memo1
AssignFile(F,ExtractFilePath(Application.ExeName)+'test.txt');
Reset(F);
repeat //Repeter...
Readln(F,Stg); //Lit une ligne du fichier texte jusqu'au prochain sut de ligne
Memo1.Lines.Add(Stg); //Affiche dans Memo1 le contenu de la variable
until EOF(F);// ...jusqu'à ce que la position en cours du pointeur se trouve en fin de fichier
CloseFile(F);
 
end;
 
procedure Tfrm_main.FormCreate(Sender: TObject);
begin
 
end;
end.

Salut

Tu peux faire quelque chose de ce genre:

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
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  if ParamCount = 1 then
  begin
    // Effectuer test d'usage sur le paramètre (extension, ...)
    LoadFileIntoMemo(ParamStr(1));
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  LoadFileIntoMemo(ExtractFilePath(Application.ExeName) + 'test.txt');
end;
 
procedure TForm1.LoadFileIntoMemo(F: TFilename);
begin
  with Memo1 do
  begin
    Clear;
    Lines.LoadFromFile(F);
  end;
end;
 
end.

@+ Claudius

24/04/2007, 12h10
rock-lee

Il me dit que " LoadFileIntoMemo " n'est pas déclaré :(

Je suis désolé je pose surement des questions basique , mais je n'y connais vraiment rien.

Il faut bien sûr que tu déclares la fonction dans la partie interface.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
interface

uses Forms, ...;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
    procedure LoadFileIntoMemo(F: TFilename);
  public
    { Déclarations publiques }
  end;

Désolé je suis un boulay, mais dans cette procédure :
Code:

1 2 3 4 5 6 7 8 9 procedure Tfrm_main.btn_okClick(Sender: TObject); Var F: TextFile; Stg:String; begin //Lire le contenu du fichier Memo1.Clear; //Efface le contenu de Memo1 //AssignFile(F,ExtractFilePath(Application.ExeName)+'test.txt'); LoadFileIntoMemo(ExtractFilePath(Application.ExeName) + 'test.txt');
Si je mets le test.txt , il va pas allé chercher le fichier texte que je mets en argument dans ma ligne de commande...Je suis pas sur de comprendre.

et dans cette procédure :
Code:

1 2 3 4 5 6 7 8 9 procedure Tfrm_main.FormCreate(Sender: TObject); begin if ParamCount = 1 then begin //Effectuer test d'usage sur le paramètre (extension, ...) LoadFileIntoMemo(ParamStr(1)); end; end;
Il me dit que FormCreate n'est pas un membre associé de Tfrm_main, c'est peut etre du a Delphi 2005 que j'utilise...

je ne sais pas :cry:

24/04/2007, 14h43
Cl@udius

Montre-nous ton code partie interface et implémentation, l'unité donc.

@+ Claudius

D'accord

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
65
66
67
68
69
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  Tfrm_main = class(TForm)
    Memo1: TMemo;
    btn_ok: TButton;
    procedure btn_okClick(Sender: TObject);
  private
    { Déclarations privées }
 
  public
    { Déclarations publiques }
    procedure LoadFileIntoMemo(F: TFilename);
  end;
 
var
  frm_main: Tfrm_main;
 
 
implementation
 
{$R *.dfm}
 
procedure Tfrm_main.FormCreate(Sender: TObject);
begin
  if ParamCount = 1 then
  begin
     //Effectuer test d'usage sur le paramètre (extension, ...)
   LoadFileIntoMemo(ParamStr(1));
  end;
end;
 
 
procedure Tfrm_main.LoadFileIntoMemo(F: TFilename);
begin
  with Memo1 do
  begin
    Clear;
    Lines.LoadFromFile(F);
  end;
end;
 
 
 
procedure Tfrm_main.btn_okClick(Sender: TObject);
Var F: TextFile;
Stg:String;
begin
//Lire le contenu du fichier
Memo1.Clear; //Efface le contenu de Memo1
//AssignFile(F,ExtractFilePath(Application.ExeName)+'test.txt');
 LoadFileIntoMemo(ExtractFilePath(Application.ExeName) + 'test.txt');
Reset(F);
repeat //Repeter...
Readln(F,Stg); //Lit une ligne du fichier texte jusqu'au prochain sut de ligne
Memo1.Lines.Add(Stg); //Affiche dans Memo1 le contenu de la variable
until EOF(F);// ...jusqu'à ce que la position en cours du pointeur se trouve en fin de fichier
CloseFile(F);
 
end;
 
end.

la il y a tout.

Comme tout à l'heure l'èvenement Create de la forme doit être déclarée dans la partie interface.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 type Tfrm_main = class(TForm) Memo1: TMemo; btn_ok: TButton; procedure FormCreate(Sender: TObject); procedure btn_okClick(Sender: TObject); private { Déclarations privées } public { Déclarations publiques } procedure LoadFileIntoMemo(F: TFilename); end;
Tu te retrouves dans cette situation car tu n'utilises les fonctionnalités de l'EDI.
Par exemple, tu poses un bouton sur ta fiche, il va se nommer 'Bouton1'. Pour implémenter son évènement OnClick, tu sélectionnes ce bouton, tu vas sur l'inspecteur d'objets et tu double-clic sur OnClick. Delphi qui est sympa :D va déclarer l'évènement automatiquement dans la partie interface et également d'ouvrir un 'squelette' dans la partie implémenation.

Voilà pour l'astuce.

@+ Claudius

24/04/2007, 15h12
Rayek

Je me permet au passage de préciser que la réponse sur le passage de paramètres était dans la :faq:

http://delphi.developpez.com/faq/?pa...tion#paramprog
24/04/2007, 15h55
rock-lee

Merci beaucoup claudius, et désolé si j'ai fait appel à vous malgrès qu'il y ait de la doc dans la FAQ. Mais bon le delphi je connais depuis ce matin 8h. Jamais vu ni appliqué auparavant, alors pour l'implémenter comme ca , même pour un programme basique , j'avais besoin d'un certain accompagnement.
24/04/2007, 17h51
Fabrice ROUXEL 1

Et dans Delphi menu executer-> parametre tu peux transmettre les parametres à l'application avant de l'executer.
24/04/2007, 18h37
CapJack

Juste un détail : TMemo.LoadFromFile écrase le contenu du mémo. Pas besoin d'écrire une fonction LoadFileIntoMemo. ;)
24/04/2007, 18h45
Fabrice ROUXEL 1

non
24/04/2007, 20h25
CapJack

Euh.. "non" quoi ? "Non, t'as raison, pas besoin", ou "non, t'as tort et le tort tue" ? :D
24/04/2007, 21h02
Fabrice ROUXEL 1

Non, pas besoin d'écrire une fonction LoadFileIntoMemo.

Penses à mettre :resolu:
24/04/2007, 22h46
Cl@udius

Citation:

pas besoin d'écrire une fonction LoadFileIntoMemo.

Effectivement dans la mesure où LoadFromFile ecrase le contenu du mémo, cette fonction n'a que peu d'intérêt. L'exemple se voulait plus didactique pour notre ami qui débute avec Delphi.

@+ Claudius