TProcess & (*) Parameter

[Mathias]

Folgender Code lädt, wie erwartet die beiden Units in die Memo1.

Code: Alles auswählen

var
  AProcess: TProcess;
begin
  AProcess := TProcess.Create(nil);
  AProcess.Executable := '/bin/cat';
//  AProcess.Parameters.Add('*.pas');
  AProcess.Parameters.Add('unit1.pas');
  AProcess.Parameters.Add('unit2.pas');
  AProcess.Options := AProcess.Options + [poWaitOnExit, poUsePipes];
  AProcess.Execute;
 
  Memo1.Lines.LoadFromStream(AProcess.Output);

Ersetze ich die beiden Add Zeilen durch '*.pas', dann bleibt das Memo leer.

Gebe ich aber direkt in der Konsole

Code: Alles auswählen

cat *.pas

ein, dann wird der Text der beiden Units wie erwartet ausgegeben.

Wieso ?

[Socke]

Das *.pas wird nicht von cat in die verschiedenen Dateinamen aufgelöst sondern von deiner Konsole/Shell. Das Ganze heißt filename expansion oder globbing.
In Free Pascal kannst du das mit mit der Funktion FindAllFiles machen.

[af0815]

Kurz gesagt, TProcess ist/hat keine Shell. Damit geht das erweitern der Wildcards und anderes nicht. Siehe auch in der Wiki.

[Mathias]

Ich sehe da nicht durch.

Mache ich folgendes, anstelle von cat nehme ich ein Lazarus-Project und gebe diesem den *.pas Parameter mit, dann kommt dieser dort auch an.

Code: Alles auswählen

procedure TForm1.Button3Click(Sender: TObject);
var
  AProcess: TProcess;
begin
  AProcess := TProcess.Create(nil);
  AProcess.Executable := 'project1';
  AProcess.Parameters.Add('*.pas');
  AProcess.Parameters.Add('-para');
  AProcess.Options := AProcess.Options + [poWaitOnExit, poUsePipes];
  AProcess.Execute;
 
  Memo1.Lines.LoadFromStream(AProcess.Output); // Hier kommt alles schön retour, wie erwartet.
 
  AProcess.Free;
end; 

Hier wird alles empfangen, inklusive *.pas .

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i := 1 to  ParamCount do begin
    Writeln('Parameter ', i, '= ', ParamStr(i));
    ShowMessage(ParamStr(i));
  end;
end; 

Wieso ist das bei /bin/cat nicht der Fall ?
Mit /bin/ls geht es auch nicht.

[MacWomble]

Ich habe das bei meinem Problem im anderen Thread so gelöst:

Code: Alles auswählen

RunCommand('sh -c "cat ' + QuellDatei + ' | formail -X FROM:  -X subject > ' + '/tmp/header.txt"' , Result);

Wichtig waren die umschließenden doppelten Anführungstzeichen. Auch bei mir trat das Problem in Verbindung mit cat auf, andere Befehlszeilen funktionieren auch hier.

Ich verwende RunCommand da ich es übersichtlicher finde, aber er ist als depricated markiert!