Bouton qui lance une commande Linux

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 !

Citation:

---

Envoyé par codefree

(...) 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,

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:

---

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:

---

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:

---

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.

Bonjour,

Citation:

---

Envoyé par codefree

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 :zoubi: