Передача месаги между прилажениями!


Привет всем!
есть проблема с передачей стринга от одного прилажения другому!
Я делаю это с помощью винапи sendmessage регестрирую свою месагу и всё в таком ключе.
Но возникла всего одна проблема! При получении месаги на противоположной стороне компилятор начинает жудко ругаться и выкидывает меня!

SendMessage(hWnd,WM_MYMESSAGE,0,Integer(PChar(s)));


-------------------------------
inherited;
if Msg.Msg = WM_MYMESSAGE then memo1.text:=string(msg.LParam);

Короче я не знаю как передать строку!
Кто может помочь?
Зарание спасибо!

ЗЫ А как разослать месагу ВСЕМ окнам в системе?

Ну, посылаешь ты вроде-бы правильно. Вот только прием не очень...
Рассмотрим Unit, в котором прописан прием:

Код

Unit ... Interface TForm1=class(TForm) ... privat   procedure GetMyMessage(var a:Tmessage); message WM_Mymessage ... implementation ... procedure TForm1.GetMyMessage(var a:Tmessage); begin   label1.caption:='Я получил сообщение: '+Inttostr(lparam) end; ... ... end.

Это сообщение отредактировал(а) p0s0l - 29.9.2005, 12:31

Цитата

компилятор начинает жудко ругаться и выкидывает меня!

Компилятор или программа?

А знаете ли вы:
Что два процесса не могут читать данные друг друга, т.к. они находяться в различных адресных пространствах?

Т.е. когда один пишет "я передаю тебе указатель на свою переменную по адресу 0х1111", то другой получив это сообщение (в твоем варианте) пытается читать этот адрес, но в своем пространстве, где ее никто не объявлял - отсюда access violation.

Одно из решений - передавать сообщение так:

Код

SendMessage(hWnd,WM_MYMESSAGE,GetCurrentProcessId(),Integer(PChar(s)));

-------- а принимать так --------

Код

var lpData: PChar;       pH: THANDLE; begin lpData := AllocMem(STRING_LEN + 1); inherited; if Msg.Msg = WM_MYMESSAGE then  begin   pH := OpenProcess(PROCESS_VM_READ, FALSE, msg.WParam);   ReadProcessMemory(pH, lpData, msg.LParam, STRING_LEN);   memo1.text:=string(lpData);  end;

Это сообщение отредактировал(а) p0s0l - 29.9.2005, 12:31

Еще для передачи данных из одного процесса в другой существует месага WM_COPYDATA (вроде так )

To_Morpheus: Это немного не то!
To_man2002ua:

1) Я не понял что за переменная STRING_LEN, кокого она типа!
2) ReadProcessMemory - включает в себя 5 параметров, а у тебя всего 4

<Spawn>, твой ответ лучше!

Hamster, смотри то, что сказал Spawn - не забивай голову , то что я предложил - делает WM_COPYDATA

Тогда как сделать мой вариант?

Ладно! Я сделал через атомы! Хотя предыдущий вопрос в силе!

делаешь SendMessage(hwnd, WM_COPYDATA,<your window handle>,COPYDATASTRUCT)
----
при приеме этого сообщения - рассматривай LParam, как указатель на COPYDATASTRUCT, в которой - есть указатели на передаваемые данные.
Еще посмотри файл справки на тему WM_COPYDATA