Передача строки между программами

[Kronos913]

Задача такая:

Программа А запускает программу B, передаёт в нее строку и переходит в режим ожидания
Программа В принимает строку, совершает обработку и передаёт ее обратно в А, после чего закрывается

Программа А "оживает" после закрытия программы В

[p51x]

Заполняете TStartupInfo, вызваете и читайте/пишите.

[сфинкс]

Строка сохраняется на диск и считывается

Совет прошлого века

[p51x]

сфинкс, это особенно актуально, если эточужая консольная программа...

[northener]

Сообщение от Kronos913

Программа А запускает программу B, передаёт в нее строку и переходит в режим ожидания

Элементарно. Запуск программы с командной строкой параметров.
Режим ожидания тоже элементарно. Если программу не закрывать.

Сообщение от Kronos913

Программа В принимает строку, совершает обработку и передаёт ее обратно в А, после чего закрывается

А вот тут уже сложнее. Как программе B узнать кто её вызвал? И как ей туда передать ответ?

Kronos913, вы на форуме не первый день. Может сформулируете нормальный вопрос не про сферического коня в вакууме?

[p51x]

Сообщение от northener

Запуск программы с командной строкой параметров.

А если это чужая консольная программа?

Сообщение от northener

Режим ожидания тоже элементарно. Если программу не закрывать.

Причем тут "если"?

Сообщение от northener

А вот тут уже сложнее. Как программе B узнать кто её вызвал? И как ей туда передать ответ?

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

Сообщение от northener

Kronos913, вы на форуме не первый день. Может сформулируете нормальный вопрос не про сферического коня в вакууме?

А что вам не нравится в вопросе? Ответ дан во 2 посте темы, перенаправляете стандартные ввод/вывод и работаете.

[Arigato]

Функция для запуска приложения с параметрами, ожидания его завершения и получения кода возврата:

uses
  Windows;

function CmdExec(const Cmd: string): Integer;
// Выполнение консольного приложения с ожиданием его завершения и возвратом кода возврата
var
  Rlst: LongBool;
  StartUpInfo: TStartUpInfo;
  ProcessInfo: TProcessInformation;
  ExitCode: Cardinal;
begin
  FillChar(StartUpInfo, SizeOf(TStartUpInfo), 0); // заполнение структуры нулями
  with StartUpInfo do
  begin
    cb := SizeOf(TStartUpInfo);
    dwFlags := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;
    wShowWindow := SW_SHOWNORMAL;
  end;
  Rlst := CreateProcess(
      nil,
      PChar(Cmd), // команда
      nil,
      nil,
      False, // флаг наследования текущего процесса
      NORMAL_PRIORITY_CLASS, // флаги способов создания процесса
      nil,
      nil, // текущий диск и каталог
      StartUpInfo, // структура STARTUPINFO
      ProcessInfo // структура PROCESS_INFORMATION
    );
  if Rlst then begin // если запуск прошел успешно
    with ProcessInfo do begin
      WaitForInputIdle(hProcess, INFINITE); // ждем завершения инициализации
      WaitForSingleObject(hProcess, INFINITE); // ждем завершения процесса
      GetExitCodeProcess(hProcess, ExitCode); // получаем код завершения
      CloseHandle(hThread); // закрываем дескриптор процесса
      CloseHandle(hProcess); // закрываем дескриптор потока
    end;
  end else begin // ошибка выполнения команды
    WriteLn('Error: ', GetLastError, ' > ', Cmd);
    ExitCode := 0;
  end;
  Result := Integer(ExitCode); // возвращаем код возврата с приведением к типу Integer
end;

Пример использования:

var
  S: Integer;

begin
  S := CmdExec('program_b stroka');
  WriteLn(S);
  ReadLn;
end.

[Kronos913]

Сообщение от сфинкс

Строка сохраняется на диск и считывается

Совет прошлого века

У меня была схожая идея - просто clipboadr использовать. Но и проблема возникает очевидная - без спросу пользователя будет стираться то что там сохранено

[Kronos913]

Сообщение от northener

Режим ожидания тоже элементарно. Если программу не закрывать.

Как? Если я не знаю заранее как долго нужно ожидать

[Kronos913]

Arigato как я понял, то функция самого вызова, верно?
Тогда второй вопрос - как из программы В вернуть какую-то информацию?