получить вывод другой программы

[Attid]

подняли похожую тему в конфе там кинули ссылку на использовани mplayer
http://svn.berlios.de/svnroot/repos/cac ... player.pas

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

[alex208210]

program prrocess;
{$mode objfpc}{$H+}
uses classes,process;

Const
TheProgram = 'ls -a';

Var
S : TProcess;
Buf, ss : ansistring;
Count : longint;
begin
S:=TProcess.Create(Nil);
S.Commandline:=theprogram;
S.Options:=[poUsePipes,poNoConsole];
S.execute;
SetLength(buf, 1000);
Repeat
Count:=s.output.read(buf[1], length(buf));
ss:=ss + Copy(buf, 1, Count);
until Count=0;
writeln(ss);
S.Free;
writeln('finished Ok.');
end.

по этому примеру будет выводиться информация только для одной команды.. как вывести содержимое консоли например если параметр theprogram будет равен "ifconfig | grep eth0" ?

[Brainenjii]

Код: Выделить всё

Const 
  TheProgram = 'bash -c "/sbin/ifconfig|grep eth0"';

[alex208210]

спасибо, работает)