Discussion :

[letoumbouc]

Bonjour à tous,

je suis à la recherche d'une possibilité d'effectuer certaines commandes Linux dans un programme Delphi. Par exemple la commande me permetant de supprimer tous les fichiers vieux de plus de 7 jours serait directement sous Ubuntu:

Code :

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

find /root/PAServer/scratch-dir/log -mtime +7 -delete

La meme commande j'ai envie de l'appeler dans un programme Delphi qui va fonctionner sous Linux. Sous Windows on aurait simplement appelé un ShellExecute (ShellExecute(Handle, 'open', PChar(filePath+'Test.exe'), PChar(test_host+' '+test_host), nil, SW_SHOWNORMAL);).

Merci pour votre attention.

[ShaiLeTroll]

Ceci ressemble à votre demande Execute external program from Linux/Delphi 10.2 console application, je suppose que vous avez déjà exploré cette piste sans succès ?!

Sinon la fonction _system de Posix.Stdlib

[letoumbouc]

Bonjour,

j'essaie d'adapter le programme sur votre liendepuis un bon bout à mon cas. J'ai pas encore trouvé la bonne solution.

[pprem]

Je ne me souviens plus si "find" est une commande bash ou un programme.

Dans le premier cas, faut appeler bash et la lui passer, dans le second directement exécuter la ligne.

Code :

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

_system(PAnsiChar(AnsiString(commande)));

avec la bonne unité devrait effectivement régler la question, comme sur Mac, mais attention à un point important : le chemin d'accès à "find" n'est peut-être pas connu, donc ne trouvant pas la commande, il ne fait rien. Mieux vaut spécifier le nom complet avec son chemin.

[SergioMaster]

J'ai trouvé sans tester ceci
https://chapmanworld.com/2017/04/06/...s-from-delphi/

[letoumbouc]

ce programme je l'ai déjà vu aussi, mais là on a à faire à une lecture de fichier si j'ai bien compris.

[letoumbouc]

Code :

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

_system

c'est pas sous windows?

Je ne me souviens plus si "find" est une commande bash ou un programme.

Dans le premier cas, faut appeler bash et la lui passer, dans le second directement exécuter la ligne.

Code :

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

_system(PAnsiChar(AnsiString(commande)));

avec la bonne unité devrait effectivement régler la question, comme sur Mac, mais attention à un point important : le chemin d'accès à "find" n'est peut-être pas connu, donc ne trouvant pas la commande, il ne fait rien. Mieux vaut spécifier le nom complet avec son chemin.