Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.03.05;
Скачать: CL | DM;

Вниз

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

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

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



Страницы: 1 вся ветка

Текущий архив: 2004.03.05;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
7-12548
galexis
2003-12-17 13:35
2004.03.05
Как получить Globally Unique Identifier (GUID)?


3-12285
uu
2004-02-07 18:22
2004.03.05
create base


1-12415
BALU1111
2004-02-24 16:22
2004.03.05
Функция Random в DLL


8-12455
Neznaika
2003-11-02 20:33
2004.03.05
Визуализатор для TMediaPlayer


3-12286
CrossOut
2004-02-07 19:04
2004.03.05
Запрос к базе