Аналог ShellExecute под LAZARUS

[FluffyMan]

в делфи есть процедура или функция, не помню точно, ShellExecute. есть ли аналог для лазаруса?
мне нужно из приложения вызвать консольную команду с параметрами. к примеру по нажатию кнопки происходил происходил  ping x, где x-заданный в моей программе адрес. это возможно?

[ZwS]

http://wiki.freepascal.org/Executing_External_Programs/ru

Код: [Выделить]

uses Process;
var AProcess: TProcess;

...

AProcess := TProcess.Create(nil);
Aprocess.CommandLine := 'ping ' + x;
AProcess.Options := [];
AProcess.Execute;
AProcess.Free;


[FluffyMan]

хорошо, работает.
но не могли бы Вы привести пример с использованием конвеера?
к примеру

Код: [Выделить]

cat /home/user/text.txt | festival --tts --language russianПользователь решил продолжить мысль 15 Мая 2011, 20:17:33:

Код: [Выделить]

var
  Form1: TForm1;
  a,b:TProcess;

procedure TForm1.Button1Click(Sender: TObject);
begin
a := TProcess.Create(nil);
b := TProcess.Create(nil);
a.CommandLine := 'cat /home/fluffy/q.txt';
a.Options := [poUsePipes];
a.Execute;
b.CommandLine := a.Output + 'festival --tts --russian';
a.Free;
b.Free;
end;так не компилится. выдеат ошибку  

unit1.pas(39,27) Error: Operator is not overloaded
unit1.pas(48) Fatal: There were 1 errors compiling module, stopping

[Sam Stone]

Какая из этих строчек номер 39?

[FluffyMan]

Код: [Выделить]

b.CommandLine := a.Output + 'festival --tts --russian';кажется эта. но мне кажется, что эта конструкция неправильная. сама по себе. "вывод команды КЭТ + фестивал"

[ZwS]

вообщем a.Output не является обычным стрингом и пихать его туда нельзя.

Код: [Выделить]

property Output: TInputPipeStream; [r]     Stream connected to standard output of the process.по той ссылке есть пример с подобной ситуацией

Код: [Выделить]

   // Зададим командную строку
   AProcess.CommandLine := 'ppc386 -h';
 
   // Установим опции программы. Первая из них не позволит нашей программе
   // выполнятся до тех пор, пока не закончит выполнение запущенная программа
   // Также добавим опцию, которая говорит, что мы хотим прочитать
   // вывод запущенной программы
   AProcess.Options := AProcess.Options + [poWaitOnExit, poUsePipes];
 
   // Теперь запускаем программу
   AProcess.Execute;
 
   // Пока запущенная программа не закончится, досюда мы не дойдем
 
   // А теперь прочитаем вывод в список строк TStringList.
   AStringList.LoadFromStream(AProcess.Output);
 
   // Сохраним вывод в файл
   AStringList.SaveToFile('output.txt');

[FluffyMan]

ситуация подобная. но совсем не то, что нужно. там вывод программы в файл записывается. а мне надо передать вывод следущей команде.

[Not eXist]

в делфи есть процедура или функция, не помню точно, ShellExecute. есть ли аналог для лазаруса?

Это метод WinAPI, причём тут Делфи?

[FluffyMan]

имелось в виду, что этот способ работает только под виндой.
Пользователь решил продолжить мысль 16 Мая 2011, 14:17:51:

но не могли бы Вы привести пример с использованием конвеера?
к примеру

Код: [Выделить]

cat /home/user/text.txt | festival --tts --language russian

не верю, что никто с таким не сталкивался. поделитесь опытом