[dzr_gregory]

Всем доброго времени суток. У меня такая проблема - необходимо в программе через SendMessage() отправить сообщение самому себе. Делаю так:
1. Объявляю константы сообщения:

const
WM_MY_MESSAGES = WM_USER + 1983;
MSG_ADD2LOG = WM_MY_MESSAGES + 1;

2. Декларирую обработчик в главной форме приложения:

// Мои обработчики событий
procedure OnMsg_ADD2LOG(var Msg: TMessage); message MSG_ADD2LOG;

3. Мне необходимо отправить сообщение с неким параметром, в данном случае это указатель на строку pChar. Делаю так:

var
ErrMsg: string;
pErr: pChar;
begin
pErr := '123';
SendMessage(Handle, MSG_ADD2LOG, 0, Integer(@pErr));

4. В обработчике OnMsg_ADD2LOG пишу:

procedure TfrmMain.OnMsg_ADD2LOG(var Msg: TMessage);
var
pErr: PChar;
begin
ShowMessage('da da da!!!');
pErr := PChar(Pointer(Msg.LParam)^);
ShowMessage(pErr);
end;


Вопрос: правомерна ли такая передача параметра, не будет ли утечки памяти (ведь созданная строка не освобождается), правильно ли передавать указатель на локальную переменную, память под которую будет освобождена при выходе из функции?

[mav_c]

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

Всем доброго времени суток. У меня такая проблема - необходимо в программе через SendMessage() отправить сообщение самому себе. Делаю так:
1. Объявляю константы сообщения:

const
WM_MY_MESSAGES = WM_USER + 1983;
MSG_ADD2LOG = WM_MY_MESSAGES + 1;

2. Декларирую обработчик в главной форме приложения:

// Мои обработчики событий
procedure OnMsg_ADD2LOG(var Msg: TMessage); message MSG_ADD2LOG;

3. Мне необходимо отправить сообщение с неким параметром, в данном случае это указатель на строку pChar. Делаю так:

var
ErrMsg: string;
pErr: pChar;
begin
pErr := '123';
SendMessage(Handle, MSG_ADD2LOG, 0, Integer(@pErr));

4. В обработчике OnMsg_ADD2LOG пишу:

procedure TfrmMain.OnMsg_ADD2LOG(var Msg: TMessage);
var
pErr: PChar;
begin
ShowMessage('da da da!!!');
pErr := PChar(Pointer(Msg.LParam)^);
ShowMessage(pErr);
end;


Вопрос: правомерна ли такая передача параметра, не будет ли утечки памяти (ведь созданная строка не освобождается), правильно ли передавать указатель на локальную переменную, память под которую будет освобождена при выходе из функции?

Конечно, да ты не имеешь права освобождать память в обработчике сообщения

[zip000]

dzr_gregory, не совсем понятно, зачем передавать указатель на указатель??? Тип PChar это указатель на символ (строку), т.е. запись @pErr это указатель на указатель.

[dzr_gregory]

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

dzr_gregory, не совсем понятно, зачем передавать указатель на указатель??? Тип PChar это указатель на символ (строку), т.е. запись @pErr это указатель на указатель.

Да, верно, немного ошибся... Кстати, мой код будет правильно работать только в случае с SendMessage. Если юзать PostMessage то выкинет AV. Думаю нет смысла объяснять почему....