VPF::Работа с консолью в Delphi - Форум программистов

stanlys

Дата 10.3.2008, 20:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 10.3.2008

Репутация: нет
Всего: нет

Помогите пожалуйста.
Необходимо запустить консольную программу, ввести необходимые данные и результат ее работы получить (мемо, файл, строка)куда угодно.

ama_kid

Дата 11.3.2008, 12:23 (ссылка)

(нет голосов)

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

Репутация: 19
Всего: 95

Мне в своё время помогла найденная в инете функция:

Код


function RunAny(CommandLine: string; Str: TStrings): boolean;
var
   I: byte;
   S: string;
   Flag: boolean;
   tRead, cWrite, dwRead, dwAvail: cardinal;
   SA: TSecurityAttributes;
   PI: TProcessInformation;
   SI: TStartupInfo;
begin
   Result:=False;
   SA.nLength:=SizeOf(SECURITY_ATTRIBUTES);
   SA.bInheritHandle:=True;
   SA.lpSecurityDescriptor:=nil;
   if not CreatePipe(tRead, cWrite, @SA, 0) then Exit;
   ZeroMemory(@SI, SizeOf(TStartupInfo));
   SI.cb:=SizeOf(TStartupInfo);
   SI.dwFlags:=STARTF_USESTDHANDLES or STARTF_USESHOWWINDOW;
   SI.wShowWindow:=SW_HIDE;
   SI.hStdOutput:=cWrite;
   CommandLine:='cmd.exe /c '+CommandLine;
   if CreateProcess(nil, PChar(CommandLine), nil, nil, True, 0, nil, nil, SI, PI) then begin
      WaitForSingleObject(PI.hProcess, INFINITE);
      CloseHandle(PI.hProcess);
      CloseHandle(PI.hThread);
      Str.Clear();
      Flag:=True;
      while Flag do begin
         for I:=0 to 9 do begin
            PeekNamedPipe(tRead, nil, 0, nil, @dwAvail, nil);
            if (dwAvail>0) then begin
               Flag:=True;
               Break;
            end
            else Flag:=False;
            //Sleep(100);
         end; //for I:=
         if dwAvail>0 then begin
            SetLength(S, dwAvail);
            ReadFile(tRead, PChar(S)^, Length(S), dwRead, Nil);
            OemToChar(PChar(S), PChar(S));
            Str.Add(S);
            Application.ProcessMessages;
            Result:=True;
         end; // if dwAvail
      end;    // while Flag
   end;       // if CreateProcess
   CloseHandle(tRead);
   CloseHandle(cWrite);
end;

В твоем случае (из-за того, что тебе надо вводить данные в консоль) - для её применения надо либо организовывать перехват стандартного ввода, либо вызывать приведённую функцию в отдельном потоке, чтобы основной поток не блокировался, пока ты вводишь данные...

--------------------

самурай без меча подобен самураю с мечом, но только без меча

RinOSpro

Дата 20.3.2008, 15:24 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

Код


tree >> c:\1.txt

а потом уже в мемо

Код


memo1.LoadFromFile('c:\1.txt');

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »