Работа с консолью(Линукс)

[LazRus]

Хочу автоматизировать работу консольной комманды. Нужно, чтобы в консоль что-либо написалось и выполнилось.

[wavebvg]

Поиск рулит
http://freepascal.ru/forum/viewtopic.php?f=5&t=3669&p=26932&hilit=%D0%BA%D0%BE%D0%BD%D1%81%D0%BE%D0%BB%D1%8C#p26932
http://freepascal.ru/forum/viewtopic.php?f=1&t=3563&p=25736&hilit=%D0%BA%D0%BE%D0%BD%D1%81%D0%BE%D0%BB%D1%8C#p25736

[LazRus]

Мне нужен не код а сам принцип... как я понял для всего этого нужно создать процесс,myproc.commandline-у любого процесса своя консоль получается?

[Attid]

сам принцип

запустил процесс, пишешь ему данные , читаешь данные от него. все.

а пример кода есть в разновидностях в первом топике FAQ

[Mr.Smart]

Мне нужен не код а сам принцип... как я понял для всего этого нужно создать процесс,myproc.commandline-у любого процесса своя консоль получается?

http://freepascal.ru/forum/viewtopic.php?f=5&t=3876

[DIEmens]

требуется запустить команду в консоли с правами рута (sudo) ка вывести окно в котором будет просить пас?
=============
сори, ступил... сижу курю ман по "общению с тпроцесом"=)

Добавлено спустя 46 минут:
с общением с конслью разобрался=)
но как перевести программу в режим рута?
ПЫСЫ: запускать командой в терминале не предлагать=)

[Attid]

gksudo =) или читай исходник sudo

[DIEmens]

спс=) про gksudo забыл

Добавлено спустя 36 минут 55 секунд:
проблемка=)
юзаю команду ping. создал процесс и т.д.

опции:
вписать [powaitonexit] (ожидание завершения программы) не могу, ибо программа ping выполняется вечно, т.е. моя программа повиснет и будет ожидать завершения ping который никогда не завершится=). стираю [powaitonexit] оставляю только [pousepipes], программа выполняется, я получаю нужные мне данные, в конце <name>.free; программа работает дальше, все хорошо, смотрю в список процессов - ping работает!=(
как мне его убить??????=)

вот функция:

function testconnect() : string;
var a : tprocess; st : tstringlist;
begin
result := '';
a := tprocess.Create(nil);
st := tstringlist.Create;
a.CommandLine := 'ping google.com';
a.Options := a.Options + [pousepipes];
a.Execute;
st.LoadFromStream(a.Output);
result := (st.text);
a.free;
st.Free;
end;

[alaken]

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

function testconnect() : string;
var a : tprocess; st : tstringlist;
begin
result := '';
a := tprocess.Create(nil);
st := tstringlist.Create;
a.CommandLine := 'ping google.com';
a.Options := a.Options + [pousepipes];
a.Execute;
st.LoadFromStream(a.Output);
result := (st.text);

if a.Terminate(0) then // так не пробовали? вдруг поможет.
  a.free;

st.Free;
end;