VPF::Запуск приложений - Форум программистов

Error202

Дата 8.2.2008, 14:18 (ссылка)

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

Загрузка ...

Бывалый

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

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

Как можно запустить консольное приложение из своего так, чтобы он не показывалось на экране
и при этот в переменную забрать его вывод?

P.S. на Free Pascal

Это сообщение отредактировал(а) Error202 - 8.2.2008, 14:32

volvo877

Дата 8.2.2008, 14:47 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

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

http://forum.vingrad.ru/faq/topic-156323.html

Error202

Дата 8.2.2008, 14:53 (ссылка)

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

Загрузка ...

Бывалый

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

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

consoleoutput.pas(52,33) Error: Illegal type conversion: "ShortString" to "^Char"

mmvds

Дата 8.2.2008, 14:54 (ссылка)

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

Загрузка ...

Бывалый

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

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

Насчет запуска, в модуле DOS есть процедура exec(ProgramName,CmdLine);

volvo877

Дата 8.2.2008, 15:03 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

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

Error202, замени String на AnsiString... Или компилируй в режиме {$mode delphi}

Error202

Дата 8.2.2008, 15:54 (ссылка)

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

Загрузка ...

Бывалый

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

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

Спасибо! Все работает...

Но Если я делаю запрос:
C:\WebServers\usr\bin\Perl.exe -c C:\Temp\tmp.pl, то приложение вываливается с ошибкой "Не могу выполнить командную строку"

А если
C:\WebServers\usr\bin\Perl.exe -c 111, то все нормально, получаю сообщение об отсутствии файла

С чем может быть такое связано?

Qu1nt

Дата 8.2.2008, 18:15 (ссылка)

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

Загрузка ...

Опытный

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

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

Проблема была в неправильной обработке ExtractFilePath.
Самое простое решение:

Код


function GetDosOutput(CommandLine, Args: string): string;
var
  SA: TSecurityAttributes;
  SI: TStartupInfo;
  PI: TProcessInformation;
  StdOutPipeRead, StdOutPipeWrite: THandle;
  WasOK: Boolean;
  Buffer: array[0..255] of Char;
  BytesRead: Cardinal;
  WorkDir, Line: String;
begin
  Application.ProcessMessages;
  with SA do
  begin
    nLength := SizeOf(SA);
    bInheritHandle := True;
    lpSecurityDescriptor := nil;
  end;
  // создаём пайп для перенаправления стандартного вывода
  CreatePipe(StdOutPipeRead,  // дескриптор чтения 
             StdOutPipeWrite, // дескриптор записи
             @SA,             // аттрибуты безопасности
             0                // количество байт принятых для пайпа - 0 по умолчанию
             );
  try 
    // Создаём дочерний процесс, используя StdOutPipeWrite в качестве стандартного вывода,
    // а так же проверяем, чтобы он не показывался на экране. 
    with SI do 
    begin
      FillChar(SI, SizeOf(SI), 0);
      cb := SizeOf(SI); 
      dwFlags := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES; 
      wShowWindow := SW_HIDE; 
      hStdInput := GetStdHandle(STD_INPUT_HANDLE); // стандартный ввод не перенаправляем
      hStdOutput := StdOutPipeWrite; 
      hStdError := StdOutPipeWrite; 
    end; 
    // Запускаем компилятор из командной строки
    WorkDir := ExtractFilePath(CommandLine);
    CommandLine := CommandLine + #32 + Args; // <<<---
    WasOK := CreateProcess(nil, PChar(CommandLine), nil, nil, True, 0, nil, PChar(WorkDir), SI, PI); 
    // Теперь, когда дескриптор получен, для безопасности закрываем запись. 
    // Нам не нужно, чтобы произошло случайное чтение или запись. 
    CloseHandle(StdOutPipeWrite);
    // если процесс может быть создан, то дескриптор, это его вывод 
    if not WasOK then 
      raise Exception.Create('Could not execute command line!' + WorkDir)
    else 
      try
        // получаем весь вывод до тех пор, пока DOS-приложение не будет завершено 
        Line := '';
        repeat
          // читаем блок символов (могут содержать возвраты каретки и переводы строки)
          WasOK := ReadFile(StdOutPipeRead, Buffer, 255, BytesRead, nil);
          // есть ли что-нибудь ещё для чтения? 
          if BytesRead > 0 then 
          begin
            // завершаем буфер PChar-ом
            Buffer[BytesRead] := #0;
            // добавляем буфер в общий вывод
            Line := Line + Buffer; 
          end;
        until not WasOK or (BytesRead = 0);
        // ждём, пока завершится консольное приложение 
        WaitForSingleObject(PI.hProcess, INFINITE);
      finally
        // Закрываем все оставшиеся дескрипторы 
        CloseHandle(PI.hThread);
        CloseHandle(PI.hProcess);
      end;
  finally
      result:=Line;
      CloseHandle(StdOutPipeRead);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Text := GetDosOutput('C:\Perl\bin\perl.exe', '-c C:\Perl\bin\config.pl');
end;

Это сообщение отредактировал(а) Qu1nt - 8.2.2008, 18:17

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