Discussion :

[codefree]

Bonjour,

Je suis sur la dernière version de Lazarus.

Je suis tout nouveau et je connais pas trop ce langage ; j'ai réussi a faire le "hello world" et un bouton Quitter.

En attendant d'acheter des livres sur Lazarus Free Pascal, je voudrais savoir quel code il faut mettre dans l'objet bouton entre begin et end pour lancer un ping avec son terminal sous Linux.

Pouvez-vous aussi me conseiller pour débutant pour des livres Lazarus en français ; le but est de pouvoir réaliser des GUI pour Linux.

Merci !

[Jipété]

(...) je voudrais savoir quel code il faut mettre dans l'objet bouton entre begin et end pour lancer un ping avec son terminal dans un linux.

Pouvez-vous aussi me conseiller pour débutant pour des livres lazarus en français le but est de pouvoir réaliser des gui pour linux.

Merci !

Pour le code à mettre, je vais plutôt te conseiller d'étudier l'objet TProcess et cette page, et pour le bouquin je n'ai pas la moindre idée.

Bon courage,

[larsal007]

Bonjour,
Effectivement, il faut utiliser la classe Tprocess. Il y'a également moyen de récupérer la message de sortie suite à la ligne de commande "poUsePipes" ainsi que les messages d'erreur "poStderrToOutPut". J'ai un petit code pour exécuter une requête SQL en utilisant PSQL qui est le client en ligne de commande de PostreSQL. J’espère que cela t'aidera et pourra te donner des idées.

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
21
22
23
24
 
procedure TMainForm.ExecuteSQL(const aSQL, aOutputFileName : string);
var
   aProcess    : TProcess;
   aStringList : TStringList;
 begin
   aProcess    := TProcess.Create(nil);
   aStringList := TStringList.Create;
   // Initialiser ta ligne de commande
   AProcess.CommandLine :=
     'psql -d DB_MOSAIC -U postgres -h 196.217.240.103 -w motdepasse -c '''
     +aSQL+'''';
   // Demander d'attendre la fin d'execution et lire le retour
   aProcess.Options := AProcess.Options + [poWaitOnExit, poUsePipes];//, poStderrToOutPut];
   // Executer le process
   aProcess.Execute;
   // Récupérer le flux de données
   aStringList.LoadFromStream(AProcess.Output);
   // Sauvegarde de la sortie dans un fichier
   aStringList.SaveToFile(aOutputFileName);
   //Libérer les instances d'objets
   aStringList.Free;
   aProcess.Free;
end;

Dans ton cas, il faudra modifier la ligne 10 comme suit pout pinger 10 fois sur l'adresse IP '192.168.0.23':

Code :

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

1
2
 
  AProcess.CommandLine := 'ping 192.168.0.23 -c 10';

Puis il faut ensuite parser le fichier sortant et l'afficher dans une tStringGrid selon tes besoin. Un exemple d'affichage de base. A toi de broder.....

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
 
procedure TMainForm.LoadOutputFile( const aFileName: TFileName;
                                    aGrid: TStringGrid);
var
  RowStrings : TStringList;
  rowLoop    : Integer;
begin
  RowStrings := TStringList.Create;
  try
    RowStrings.LoadFromFile(aFileName);             // Charger le fichier
    aGrid.RowCount := RowStrings.Count;             // Modifie nb lignes de la grille
    for rowLoop := 0 to Pred(RowStrings.Count) do   // Boucle sur le nb de lignes
    begin
        aGrid.Cells[1, rowLoop] := rowstring[colLoop];
    end;
  finally
    ColStrings.Free;
    RowStrings.Free;
  end;
end;

Pour ce qui est du bouquin, voici des liens http://wiki.freepascal.org/Lazarus_Documentation/fr
Bon courage.
Salim.

[Ph. B.]

Bonjour,

En attendant d'acheter des livres sur Lazarus Free Pascal, je voudrais savoir quel code il faut mettre dans l'objet bouton entre begin et end pour lancer un ping avec son terminal sous Linux.

Après testé TProcess et la récupération des informations retournées par la commande système Ping, vous pourrez vous entrainez à faire cela en utilisant des composants, ceux de la bibliothèque Indy par exemple...
Le composant TIdIcmpClient répond à ce besoin.

Mais attention, il faudra auparavant étudier comment on installe des composants sous Lazarus : Rien de bien compliqué comme le dit tintinux dans la discussion Installation de composants sous Linux