Обмен данными между процессами

@noname_club · Регистрация: 01.05.2013

Author24 — интернет-сервис помощи студентам

хотелось бы узнать в какую сторону копать сей вопрос (Обмен данными между процессами)

надо чтобы одна программа передала другой, скажем строку из 200 символов

условия :
-не использовать чтение диска, иначе я бы не задавал этот вопрос
-другая программа не знает handle процесса другой (предполагается что должна откудато узнать) знает только ее имя и может знать все что и другая при запуске (свой путь параметры и прочее)

по сути мне интересно как сказать операционоой системе что повилась программа N и она где-то создала в памяти хранилище с ключем K, чтобы все остальные запущенные дочерние процессы могли чтобы нибудь оттуда прочесть без использования диска

@FIL · 19.10.2013, 20:19

FindWindow
SendMessage

@noname_club · 19.10.2013, 20:27 **[ТС]**

FindWindow

предлагаешь слепо верить именам процессов которые запущены, ведь кроме как по имени, как найти "свой" процесс?

@FIL · 19.10.2013, 20:35

Если процессы ты создаешь сам, то можешь задать им нужные уникальные имена.

@noname_club · 19.10.2013, 20:41 **[ТС]**

Имя процесса совпадает с именем файла? если так, что придется имя файла называть как adf346ftfg.exe чтобы быть уверенным что совпадений не будет.

А также что делать в случае если чужой процесс так был назван умышленно чтобы нарушить работу программы. Неужели кроме имени окна нельзя ничего "сохранить в системе временно" под своим ключем, например сохранить там этот Handle процесса и далее просто через WM_COPYDATA обмениваться

@cotseec · 19.10.2013, 20:50

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

Неужели кроме имени окна нельзя ничего "сохранить в системе временно" под своим ключем

RegisterWindowMessage
Mutex
About Atom Tables

IPC: основы межпроцессного взаимодействия

@noname_club · 19.10.2013, 21:06 **[ТС]**

http://delphiworld.narod.ru/base/filemapping.html думаю это самое подходящее

@noname_club · 19.10.2013, 22:01 **[ТС]**

Выкладываю готовый модуль

ProcessTransport.pas

Delphi

unit ProcessTransport;
 
// модуль обмена данными между процессами
 
// [url]http://delphiworld.narod.ru/base/filemapping.html[/url]
 
interface
 
uses
  Windows,SysUtils;
 
type
  PT_File = record
    name: AnsiString;
    handle: THandle;
    size: byte;
    memoryAdress: PChar;
  end;
 
function PT_CreateFileMapping(filename: AnsiString; fileSize: byte = 2):PT_File;
 
procedure PT_WriteToFileMapping(fileRecord: PT_File; data:AnsiString);
 
function PT_ReadFromFileMapping(fileRecord: PT_File): AnsiString;
 
procedure PT_CloseFileMapping(fileRecord: PT_File);
 
implementation // -----------------
 
function PT_CreateFileMapping(filename: AnsiString; fileSize: byte = 2):PT_File;
begin
  Result.name:=filename;
  Result.size:= fileSize;
  Result.memoryAdress := nil;
 
  Result.handle := Windows.CreateFileMapping(MAXDWORD,Nil,PAGE_READWRITE,0,fileSize,PChar(filename));
  if Result.handle<>0 then
    Result.memoryAdress:= Windows.MapViewOfFile(Result.handle,FILE_MAP_WRITE,0,0,0);
 
end;
 
procedure PT_WriteToFileMapping(fileRecord: PT_File; data: AnsiString);
begin
  if (fileRecord.memoryAdress=nil) then exit;
 
  SysUtils.StrPCopy(fileRecord.memoryAdress, data);
 
end;
 
function PT_ReadFromFileMapping(fileRecord: PT_File): AnsiString;
begin
   if (fileRecord.memoryAdress=nil) then exit;
 
   result:= PChar(fileRecord.memoryAdress);
end;
 
procedure PT_CloseFileMapping(fileRecord: PT_File);
begin
    if (fileRecord.handle=0) OR (fileRecord.memoryAdress=nil) then exit;
    Windows.UnMapViewOfFile(fileRecord.memoryAdress);
    Windows.CloseHandle(fileRecord.handle);
end;
 
end.

исходник программы

Delphi

unit Main;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, ProcessTransport;
 
type
  TForm1 = class(TForm)
    edVariable: TEdit;
    lbEnterValues: TLabel;
    bbOK: TBitBtn;
    bbExit: TBitBtn;
    lbShowValue: TLabel;
    lbVariable: TLabel;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure bbExitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bbOKClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
    Form1: TForm1;
 
    myfile: PT_File;
implementation
 
{$R *.DFM}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
myfile:=PT_CreateFileMapping('helloworld');
 
end;
 
procedure TForm1.bbExitClick(Sender: TObject);
begin
//закроем форму
    Close;
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 
    PT_CloseFileMapping(myfile);
 
    Action:=caFree;
end;
 
procedure TForm1.bbOKClick(Sender: TObject);
begin
// запись данных
 
    PT_WriteToFileMapping(myfile, edVariable.Text);
 
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
// считывание
    lbVariable.Caption:= PT_ReadFromFileMapping(myfile);
end;
 
end.

@noname_club · 20.10.2013, 10:48 **[ТС]**

пересобрал с поддержкой юникода

Delphi

unit ProcessTransport;
 
// модуль обмена данными между процессами
 
// [url]http://delphiworld.narod.ru/base/filemapping.html[/url]
 
interface
 
uses
  Windows,SysUtils;
 
type
  PT_File = record
    name: AnsiString;
    handle: THandle;
    size: byte;
    memoryAdress: PChar;
  end;
 
function PT_CreateFileMapping(filename: AnsiString; fileSize: byte = 2):PT_File;
 
procedure PT_WriteToFileMapping(fileRecord: PT_File; data:UTF8String);
 
function PT_ReadFromFileMapping(fileRecord: PT_File): UTF8String;
 
procedure PT_CloseFileMapping(fileRecord: PT_File);
 
implementation // -----------------
 
function PT_CreateFileMapping(filename: AnsiString; fileSize: byte = 2):PT_File;
begin
  Result.name:=filename;
  Result.size:= fileSize;
  Result.memoryAdress := nil;
 
  Result.handle := Windows.CreateFileMapping(MAXDWORD,Nil,PAGE_READWRITE,0,fileSize,PChar(filename));
  if Result.handle<>0 then
    Result.memoryAdress:= Windows.MapViewOfFile(Result.handle,FILE_MAP_WRITE,0,0,0);
 
end;
 
procedure PT_WriteToFileMapping(fileRecord: PT_File; data: UTF8String);
begin
  if (fileRecord.memoryAdress=nil) then exit;
 
  SysUtils.StrPCopy(fileRecord.memoryAdress, data);
 
end;
 
function PT_ReadFromFileMapping(fileRecord: PT_File): UTF8String;
begin
   if (fileRecord.memoryAdress=nil) then exit;
 
   result:= PWideChar(fileRecord.memoryAdress);
end;
 
procedure PT_CloseFileMapping(fileRecord: PT_File);
begin
    if (fileRecord.handle=0) OR (fileRecord.memoryAdress=nil) then exit;
    Windows.UnMapViewOfFile(fileRecord.memoryAdress);
    Windows.CloseHandle(fileRecord.handle);
end;
 
end.

@noname_club 112 / 103 / 12 Регистрация: 01.05.2013 Сообщений: 603
		1
	Обмен данными между процессами 19.10.2013, 20:07. Показов 7404. Ответов 8 Метки нет (Все метки) хотелось бы узнать в какую сторону копать сей вопрос (Обмен данными между процессами) надо чтобы одна программа передала другой, скажем строку из 200 символов условия : -не использовать чтение диска, иначе я бы не задавал этот вопрос -другая программа не знает handle процесса другой (предполагается что должна откудато узнать) знает только ее имя и может знать все что и другая при запуске (свой путь параметры и прочее) по сути мне интересно как сказать операционоой системе что повилась программа N и она где-то создала в памяти хранилище с ключем K, чтобы все остальные запущенные дочерние процессы могли чтобы нибудь оттуда прочесть без использования диска 0

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	19.10.2013, 20:19	2
	FindWindow SendMessage 0

@noname_club 112 / 103 / 12 Регистрация: 01.05.2013 Сообщений: 603
	19.10.2013, 20:27 [ТС]	3
	FindWindow предлагаешь слепо верить именам процессов которые запущены, ведь кроме как по имени, как найти "свой" процесс? 0

@FIL Модератор 3490 / 2613 / 741 Регистрация: 19.09.2012 Сообщений: 7,974
	19.10.2013, 20:35	4
	Если процессы ты создаешь сам, то можешь задать им нужные уникальные имена. 0

@noname_club 112 / 103 / 12 Регистрация: 01.05.2013 Сообщений: 603
	19.10.2013, 20:41 [ТС]	5
	Имя процесса совпадает с именем файла? если так, что придется имя файла называть как adf346ftfg.exe чтобы быть уверенным что совпадений не будет. А также что делать в случае если чужой процесс так был назван умышленно чтобы нарушить работу программы. Неужели кроме имени окна нельзя ничего "сохранить в системе временно" под своим ключем, например сохранить там этот Handle процесса и далее просто через WM_COPYDATA обмениваться 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	19.10.2013, 20:50	6
	Сообщение от noname_club Неужели кроме имени окна нельзя ничего "сохранить в системе временно" под своим ключем RegisterWindowMessage Mutex About Atom Tables IPC: основы межпроцессного взаимодействия 1

@noname_club 112 / 103 / 12 Регистрация: 01.05.2013 Сообщений: 603
	19.10.2013, 21:06 [ТС]	7
	http://delphiworld.narod.ru/base/filemapping.html думаю это самое подходящее 0

	20.10.2013, 10:48