Exécuter un programme externe sous Linux

Bonjour
je voudrais exécuter un programme externe depuis Linux
ce code fonctionne et m'ouvre la calculatrice
mais à la compilation j'ai ce message test3.pas(5,2) Warning: Symbol "RunCommand" is deprecated
Quelle autre commande utiliser ?
Merci

Code:

---

1 2 3 4 5 6 7

program test3; uses Process; var s : ansistring; begin RunCommand('galculator',s); end.

---

Bonjour

Il faut utiliser la class TProcess de l'unité Process cf http://wiki.lazarus.freepascal.org/E...Simple_Example

A+

merci oui c'est mieux.
j'essaie d'utiliser sqlite3 en ouvrant la base test.sqlite

Code:

---

1 2	AProcess.Executable:= 'sqlite3 '; AProcess.Parameters.Add('test.sqlite;');

---

mais fpc me dit

Citation:

---

An unhandled exception occurred at $0000000000470955:
EProcess: Executable not found: "sqlite3 "
$0000000000470955
$0000000000400291

---

cordialement

Salut

Citation:

---

Envoyé par ptitjoz

Code:

---

AProcess.Executable:= 'sqlite3 ';

---

---

2 possibilités : "executable not found" comme le dit le message, donc le binaire n'est pas là où il faut (ou le path n'est pas bon), ou c'est l'espace après le "3" qui perturbe.

Citation:

---

Envoyé par ptitjoz

Code:

---

AProcess.Parameters.Add('test.sqlite;');

---

---

C'est quoi ce ";" après le filename ?

Bonjour,

Le point virgule qui "traînait" c'était un oubli...

Mon but est de passer une requête sql et de récupérer le résultat dans un fichier, donc je pensais faire ceci :

Code:

---

1 2	AProcess.Executable:= 'sqlite3'; AProcess.Parameters.Add('test.sqlite>requete.sql<result.tmp');

---

mais ça ne fonctionne pas. Dans le terminal, sqlite3 attend des instructions...

Citation:

---

SQLite version 3.19.3 2017-06-08 14:26:16
Enter ".help" for usage hints.
sqlite>

---

1)si je mets uniquement cette ligne :

Code:

---

AProcess.Executable:= 'sqlite3';

---

ça m'ouvre le terminal

Citation:

---

SQLite version 3.19.3 2017-06-08 14:26:16
Enter ".help" for usage hints.
Connected to a transient in-memory database.
Use ".open FILENAME" to reopen on a persistent database.
sqlite>

---

2) si je mets cette ligne :

Code:

---

AProcess.Executable:= 'sqlite3 test.sqlite';

---

Citation:

---

An unhandled exception occurred at $0000000000470915:
EProcess: Executable not found: "sqlite3 test.sqlite"

---

3) si je mets sur deux lignes

Code:

---

1 2	AProcess.Executable:= 'sqlite3'; AProcess.Parameters.Add('test.sqlite');

---

Citation:

---

SQLite version 3.19.3 2017-06-08 14:26:16
Enter ".help" for usage hints.
sqlite>

---

Pour info dans une autre langage Basic (basiconverter) j'arrive à le faire .. et je voulais transposer à Fpc

Citation:

---

SUB subrequetesql : ' execute ordre sql
LOCAL ficsql TYPE FILE*
OPEN "ordresql.sql" FOR WRITING AS ficsql
WRITELN codesql$ TO ficsql
CLOSE FILE ficsql
resultsql$=EXEC$("sqlite3 ./../compta2.sqlite < ordresql.sql")
END SUB

---

où je récupérais le résultat de la requête dans la variable resultsql$

Merci pour vos conseils.

Salut,

problème de scripting, alors.

j'ai googlé how to script sqlite3 et tu pourrais t'inspirer de la 1^re réponse qui remonte.

Sans garantie puisque, encore une fois, je ne connais pas du tout sqlite3.

Citation:

---

Envoyé par Jipété

Salut,

problème de scripting, alors.

j'ai googlé how to script sqlite3 et tu pourrais t'inspirer de la 1^re réponse qui remonte.

Sans garantie puisque, encore une fois, je ne connais pas du tout sqlite3.

---

Bonjour, je ne pense pas que ça soit un problème de ce que je passe à Sqlite3 (que je connais assez bien), je penserais plutôt que Fpc ne sait pas récupérer la main une fois qu'il a envoyé un ordre à Sqlite.

Bien cordialement

Citation:

---

Envoyé par ptitjoz

Bonjour, je ne pense pas que ça soit un problème de ce que je passe à Sqlite3 (que je connais assez bien), je penserais plutôt que Fpc ne sais pas récupérer la main une fois qu'il a envoyé un ordre à Sqlite.

Bien cordialement

---

Bonjour non ce n'est pas FPC, j'ai testé sous windows cela fonctionne parfaitement

Code:

---

1 2 3 4

Proc.Executable := 'sqlite3' ; Proc.Parameters.Add('chinook.db'); Proc.Parameters.Add('SELECT * FROM artists');

---

Ci-Joint une petit projet test modifié, tiré de cette discussion : https://www.developpez.net/forums/d1...ation-console/

le zip contient le fichier db test provenant de http://www.sqlitetutorial.net/sqlite-sample-database/

Pièce jointe 372776

Pièce jointe 372778

a+

Bonsoir

J'ai eu un peu de temps alors j'ai testé un peu plus. Se sont tes commandes SQLite qui ne sont pas correctes

ceci par exemple :

Code:

---

1 2 3 4

Proc.Executable := 'sqlite3' ; Proc.Parameters.Add('chinook.db'); Proc.Parameters.Add('.output albums.txt'); Proc.Parameters.Add('SELECT title FROM albums');

---

fonctionne parfaitement. Je te suggère de jeter un œil sur tutoriel sqLite commands
Les commandes que tu décris plus haut sont incorrectes

Pour lire un fichier "requête" et envoyer le résultat dans un fichier texte, il faut procéder comme ceci

Code:

---

1 2 3 4

Proc.Executable := 'sqlite3' ; Proc.Parameters.Add('chinook.db'); Proc.Parameters.Add('.output albums.txt'); Proc.Parameters.Add('.read requete.sql');

---

EDIT :

Citation:

---

Envoyé par Jipété

Salut,

problème de scripting, alors.

j'ai googlé how to script sqlite3 et tu pourrais t'inspirer de la 1^re réponse qui remonte.

Sans garantie puisque, encore une fois, je ne connais pas du tout sqlite3.

---

Et dans le deuxième :

Citation:

---

You want to feed the create.sql into sqlite3 from the shell, not from inside SQLite itself:

$ sqlite3 auction.db < create.sql
SQLite's version of SQL doesn't understand < for files, your shell does.

Unfortunately, not all shells understand < as input redirection. (E.g., PowerShell.) – Alan Jun 3 '16 at 17:44
@Alan PowerShell has some input redirection mechanism, no? And if not there's always bitops's approach. – mu is too short Jun 3 '16 at 17:52

---

A+

Bonjour
oui effectivement il valait mieux passer par les commandes natives de sqlite plutôt que par les commandes de redirection du shell.
merci pour ces exemples. Je me suis amusé à faire un peu autrement pour un résultat similaire avec ton fichier
j'ai mis mes ordres sql dans une variable

Code:

---

1 2 3 4 5 6 7 8 9 10 11

codsql:='SELECT UPPER(Lastname) AS ''Nom'' , FirstName AS ''Prénom'' , SUBSTR(BirthDate,1,10) AS ''Date Nais'' FROM employees'; codsql:=codsql+' ORDER BY BirthDate';   AProcess := TProcess.Create(nil); AProcess.Executable := 'sqlite3' ; AProcess.Parameters.Add('chinook.db'); AProcess.Parameters.Add('.headers on'); AProcess.Parameters.Add('.mode column'); AProcess.Parameters.Add('.width 15 15 10'); AProcess.Parameters.Add(codsql); AProcess.Options := AProcess.Options + [poWaitOnExit];

---

et ça me donne cela en retour :

Code:

---

1 2 3 4 5 6 7 8 9 10

Nom Prénom Date Nais --------------- --------------- ---------- PARK Margaret 1947-09-19 EDWARDS Nancy 1958-12-08 ADAMS Andrew 1962-02-18 JOHNSON Steve 1965-03-03 CALLAHAN Laura 1968-01-09 KING Robert 1970-05-29 MITCHELL Michael 1973-07-01 PEACOCK Jane 1973-08-29

---

donc tout va bien et encore merci de vos aides

Bien à vous