Проблемы с SendMessage

[Ronder]

Хочу передать текст из одной программы в другую. Получаю хэндл второй программы, передаю текст:

var
  win: Thandle;
  text: PChar;

begin
  text := 'hello!';
  win := FindWindow(nil, 'Prog2');
  SendMessage(win, MY_MESSAGE, 0, DWORD(PChar(text)) );

Вторая программа получает сообщение с помощью процедуры:

procedure MessageReceiver(var msg: TMessage); message MY_MESSAGE;

procedure TForm1.MessageReceiver(var msg: TMessage);
 var
   txt: PChar;
 begin
   txt := PChar(msg.lParam);
   msg.Result := 1;
   ShowMessage(txt);
 end;

В итоге, вторая программа получает сообщение в непонятно виде. Что я делаю неправильно?

[JTG]

var
  win: Thandle;
  txt: PChar;
begin
  txt := PChar(string('hello!'));
  win := FindWindow(nil, 'Form1');
  SendMessage(win, WM_USER+х, 0, dword(txt));

procedure MessageReceiver(var msg: TMessage); message WM_USER+x;

procedure TForm1.MessageReceiver(var msg: TMessage);
var
   txt: PChar;
begin
   //привет, переполнение буффера :)
   txt := pchar(ptr(msg.lParam));
   ShowMessage(StrPas(txt));
end;

По-хорошему надо явно выделить память через GlobalAlloc и проверять чего и сколько пришло в MessageReceiver

[Ronder]

Вот что пришло в Form1, вместо 'hello!':

[0nni]

Такое лучше делать через WM_COPYDATA

[AndreyMust19]

JTG

//привет, переполнение буффера

Какое переполнение буфера? Здесь буфера никакого нет! То что ты показал в примере - работает правильно. Дело в другом.

Программы выполняются в разных адресных пространствах. Если вы передаете другой программе указатель на строку из другой программы, то в ней этой строки не будет. Строка, к-ю вы хотите передать - существует только в АП первого процесса. В АП второго процесса по тому же адресу ее нет.

Передавать надо так (один вариант из 3-х):
1) Передавать через lParam и wParam сами символы строки по 8 штук (четыре символа на один параметр).
2) Пусть 2-ой процесс выделит в АП блок памяти и передаст первому процессу его адресу. Тот запишет нужные данные в этот блок.
3) А вообще обмен данными между процессами реализуется с помощью разделяемой памяти (Shared Memory). Чтобы оба процесса не читали и не писали в нее данные одновременно, используйте синхронизацию с помощью событий, сообщений или семафоров (один процесс ждет, когда другой разрешить писать / читать).

[0nni]

procedure TcdServerForm.Button1Click(Sender: TObject);
var
  pStr : PChar;
  len : Integer;
  ClientWnd : HWND;
  CopyDataStr : TCopyDataStruct;
begin
  len := Length(Edit1.Text);
  pStr := PChar(Edit1.Text);



  ClientWnd := FindWindow('TcdClientForm', nil);
  CopyDataStr.dwData := 0;//размер данных для 64-x
  CopyDataStr.cbData := (len + 1) {* 2 }; //Размер для 32-x. Двойка для юникода
  CopyDataStr.lpData := pStr;//Указатель на данные
  SendMessage(ClientWnd, WM_COPYDATA, Handle, Integer(@CopyDataStr));
end;

type
  TcdClientForm = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure wmcopydata(var msg : TWMCopyData); message WM_COPYDATA;
  end;

...

procedure TcdClientForm.wmcopydata(var msg: TWMCopyData);
var
  pstr : PChar;
begin

  pstr := pChar(msg.CopyDataStruct.lpData);
  Caption := pstr;
end;

[Ronder]

Всем спасибо за помощь!