Как клонировать процесс

Delphi , ОС и Железо , Kylix

Автор: http://www.swissdelphicenter.ch

{
  In Linux it is possible to duplicate a process with fork. In the original
  process, fork will return the handle to the duplicated process. The
  duplicated process will return zero.
 }

program TestFork;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Libc;

var
  ForkedProcessHandle: __pid_t;
  bForked: Boolean;

procedure ForkNow;
begin
  bForked := true;
  ForkedProcessHandle := fork;
end;

function IsForked: Boolean;
begin
  Result := (ForkedProcessHandle = 0) and bForked;
end;

var
  Lf: Integer;

begin
  sigignore(SIGCHLD);
  bForked := false;

  WriteLn('do some stuff');

  WriteLn('before fork');
  ForkNow;
  WriteLn('after fork - we have dublicated the process');

  if IsForked then
  begin
    WriteLn('do some stuff in forked process (wait 5s)');
    for Lf := 0 to 50 do
    begin
      Write('f');
      sleep(100);
    end;
  end
  else
  begin
    WriteLn('do stuff in original process (wait 10)');
    for Lf := 0 to 100 do
    begin
      Write('o');
      sleep(100);
    end;
  end;

  WriteLn;

  if IsForked then
    WriteLn('forked process end')
  else
    WriteLn('original process end');
end.

{
Output of this demo app:

do some stuff
before fork
after fork - we have dublicated the process
after fork - we have dublicated the process
do some stuff in forked process (wait 5s)
fdo stuff in original process (wait 10)
ooffooffooffooffooffooffooffooffooffooffooffooffooffooffooffooffooffooff
ooffooffooffooffooffooffooffoo
forked process end
ooooooooooooooooooooooooooooooooooooooooooooooooo
original process end
 }

Программа на Delphi, демонстрирующая концепцию дублирования процесса с помощью системного вызова fork в Linux. Программа создает новый процесс, вызвав функцию fork, которая возвращает идентификатор процесса (PID) нового процесса в оригинальном процессе и 0 в дублированном процессе.

Расшифровка кода:

1. Программа включает модули SysUtils и Libc, которые предоставляют функции для работы с системными процессами и библиотеками соответственно.
2. Переменная ForkedProcessHandle объявлена для хранения PID нового процесса.
3. Булевая переменная bForked используется для отслеживания, является ли оригинальный процесс или дублированный процесс.
4. Процедура ForkNow вызывает функцию fork и присваивает ее возвращаемое значение ForkedProcessHandle. Если fork возвращает 0, то это означает, что дублированное processo создано; иначе, это оригинальный процесс.
5. Функция IsForked проверяет, является ли текущий процесс дублированным, сравнивая ForkedProcessHandle с 0 и проверкой значения bForked.
6. В основной программе вызывается sigignore( SIGCHLD ), игнорируя сигнал SIGCHLD, который отправляется родительскому процессу, когда его дочерний процесс завершается.
7. Используются операторы WriteLn для вывода сообщений в консоль.
8. Дублированное processo (если создано) или оригинальный процесс выполняет некоторые код, включая цикл, который пишет символы и спит на 100 миллисекунд.

Вывод:

Программа выводит различные поведения оригинального процесса и дублированного процесса:

• В оригинальном процессе:
  • Выводит "do stuff" и "before fork"
  • Вызывает ForkNow для создания нового процесса
  • Ожидает 10 секунд, выводя символы "o" в консоль
  • Выводит "original process end"
• В дублированном процессе (если создано):
  • Выводит "do some stuff in forked process (wait 5s)"
  • Ожидает 5 секунд, выводя символы "f" в консоль
  • Выводит "forked process end"

Обратите внимание, что системный вызов fork является специфичным для Linux и других операционных систем Unix-like. В Windows аналогичная концепция достигается с помощью функции CreateProcess.

Альтернативное решение:

В Delphi можно также использовать компонент TProcess, чтобы создать новый процесс. Вот пример:

uses
  System.SysUtils;

procedure CreateNewProcess;
var
  Proc: TProcess;
begin
  Proc := TProcess.Create(nil);
  Proc.CommandLine := 'some_command';
  Proc.Execute;
end;

Код создает новый процесс, выполняющий команду "some_command". Обратите внимание, что это подход специфичен для Windows и не может быть использован в Linux.

Статья описывает способ клонирования процесса в Linux с помощью функции fork, которая дублирует процесс и возвращает идентификатор нового процесса в оригинальном процессе.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Kylix ::