Как послать другому приложению строку?

← →
Aleksandr (2003-12-26 18:46) [0]

Попытался сделать так (при запуске программы):

var
P : PChar;
begin
h:=FindWindow("TMainForm","MainFormCaption");
if h<>0 then begin
P:=StrNew(PChar(ParamStr(1)));
SendMessage(H,UM_OpenNewFile,0,Integer(P))
end
else begin
Application.Initialize;
Application.Title:="MainFormCaption";
...
end
end;

и, соответственно, в WndProc TMainForm:

var
s : string;
P : PChar;
begin
if Message.Msg=UM_OpenNewFile then begin
P:=PChar(Message.LParam);
s:=P;
StrDispose(P);
Application.BringToFront;
DataFileName:=s
end
else
inherited
end;

И сразу обнаружились две проблемы. Первая - в первую очередь FindWindow находит дельфийской окно, и как его не закрывай, его хэндл остается. Вторая - при обработке полученного сообщения возникает Invalid pointer operation либо Range Check Error (что точно и для какого случая - непонятно по первой причине). Вот и возникает вопрос, как правильно передать энту строку?

← →
DVM (2003-12-26 18:50) [1]

WM_COPYDATA

> и как его не закрывай, его хэндл остается.

интересно, как это:)

← →
Aleksandr (2003-12-26 18:52) [2]

Да, с Range Check Error разобрался - он происходит от того, что происходит Invalid pointer operation (строка пустая становится).

← →
DVM (2003-12-26 18:56) [3]

Нельзя строку просто так отправить другому приложению, указав адрес строки в lParam сообщения (исключение WM_SETTEXT). Строка в одном адресном пространстве, а прочитать ее пробуют в другом. Естесственно будут ошибки.
Используй WM_COPYDATA и будет тебе счастье:)

← →
Aleksandr (2003-12-26 18:57) [4]

2 DVM :
Сам удивляюсь. Однако вот пока программу запускаешь из Делфи, то второй экземляр, который с коммандной строки, посылает сообщения куда-то в молоко. А если прикрываешь Делфи и оба запускаешь с командной строки, то второе получает сообщение от первого.

А за подсказку спасибо... Когда не знал, да истчо забыл, то пора увольняться :))

Как послать другому приложению строку? Найти похожие ветки