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.

[ShaiLeTroll]

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

Vous n'avez pas compris, il s'agit de lancer la commande via un shell, le shell lit le contenu et l'execute, ensuite cela récupère la sortie de la console, l'équivalent d'un ReadPipe dans Windows.

L'exemple dans chapmanworld.com a été amélioré dans le lien que j'ai fourni Execute external program from Linux/Delphi 10.2 console application, il faut aller à la fin pour avoir un code réutilisable dans un objet TLinuxUtils.

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
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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
 
unit LinuxUtils;
 
interface
 
uses
  System.SysUtils,
  System.Classes,
  Posix.Base,
  Posix.Fcntl;
 
type
  TStreamHandle = pointer;
 
  TLinuxUtils = class
  public
    class function RunCommandLine(ACommand : string) : TStringList;overload;
    class function RunCommandLine(Acommand : string; Return : TProc<String>) : boolean; overload;
    class function findParameter(AParameter : string) : boolean;
  end;
 
 
 
  function popen(const command: MarshaledAString; const _type: MarshaledAString): TStreamHandle; cdecl; external libc name _PU + 'popen';
  function pclose(filehandle: TStreamHandle): int32; cdecl; external libc name _PU + 'pclose';
  function fgets(buffer: pointer; size: int32; Stream: TStreamHAndle): pointer; cdecl; external libc name _PU + 'fgets';
 
 
implementation
 
class function TLinuxUtils.RunCommandLine(ACommand : string) : TStringList;
var
  Handle: TStreamHandle;
  Data: array[0..511] of uint8;
  M : TMarshaller;
 
begin
  Result := TStringList.Create;
  try
    Handle := popen(M.AsAnsi(PWideChar(ACommand)).ToPointer,'r');
    try
      while fgets(@data[0],Sizeof(Data),Handle)<>nil do begin
        Result.Add(Copy(UTF8ToString(@Data[0]),1,UTF8ToString(@Data[0]).Length -1));//,sizeof(Data)));
      end;
    finally
      pclose(Handle);
    end;
  except
    on E: Exception do
      Result.Add(E.ClassName + ': ' + E.Message);
  end;
end;
 
class function TLinuxUtils.RunCommandLine(Acommand : string; Return : TProc<string>) : boolean;
var
  Handle: TStreamHandle;
  Data: array[0..511] of uint8;
  M : TMarshaller;
 
begin
  Result := false;
  try
    Handle := popen(M.AsAnsi(PWideChar(ACommand)).ToPointer,'r');
    try
      while fgets(@data[0],Sizeof(Data),Handle)<>nil do begin
        Return(Copy(UTF8ToString(@Data[0]),1,UTF8ToString(@Data[0]).Length -1));//,sizeof(Data)));
      end;
    finally
      pclose(Handle);
    end;
  except
    on E: Exception do
      Return(E.ClassName + ': ' + E.Message);
  end;
end;
 
class function TLinuxUtils.findParameter(AParameter : string) : boolean;
var
  I : Integer;
begin
  Result := false;
  for I := 0 to Pred(ParamCount) do
  begin
    Result := AParameter.ToUpper = ParamStr(i).ToUpper;
    if Result then
      Break;
  end;
end;
 
end.

Code :

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

_system

c'est pas sous windows?

Lisez vous nos réponses ?

Sinon la fonction _system de Posix.Stdlib

Evidement pour faire un code mixte, il faut gérer ShellExecute() pour windows et _system() pour POSIX