VPF::WM_COPYDATA и ошибки - Форум программистов

Voyager

Дата 4.2.2006, 23:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 532
Регистрация: 8.2.2005

Репутация: 4
Всего: 18

Надо передать из dll в другую программу строку данных, пишу на WinAPI, передаю так:
dll:

Код


var
cd: TCopyDataStruct;
s: PChar;
wnd: HWND;

begin
    wnd:=FindWindow('MONITOR', nil);
    s:='My dear window i sent the message';
    cd.dwData:=2048;
    cd.cbData:=Length(s)+1;
    cd.lpData:=s;
    SendMessage(wnd,WM_COPYDATA, 0 ,longint(@cd));
end.

Программа:

Код


function WndMessageProc(hWnd: HWND; Msg: UINT; WParam: WPARAM; LParam: LPARAM): UINT; stdcall;
var
  str:pchar;
...
WM_COPYDATA:
                case PCopyDataStruct(LParam)^.dwData of
                    2048:
                        begin
                            move(PCopyDataStruct(LParam)^.lpData,str,PCopyDataStruct(LParam)^.cbData);
                            MessageBoxA(0, Pchar(str),Pchar(inttostr(Length(str))),0);
                        end;
                end;

Программа вроде нормально получает строку, выдает ее в MessageBox, а потом выскакивает окно c Runtime error 216 и программа вылетает. В чем может быть проблема? smile

Это сообщение отредактировал(а) Voyager - 4.2.2006, 23:28

MBo

Дата 5.2.2006, 10:08 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 234
Регистрация: 10.6.2002

Репутация: 1
Всего: 18

Нужно выделить память под str и в Move использовать разыменованные указатели str^ и lpData^

Romikgy

Дата 6.2.2006, 13:00 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 13
Всего: 146

Код


function WndMessageProc(hWnd: HWND; Msg: UINT; WParam: WPARAM; LParam: LPARAM): UINT; stdcall;
var
  str:pchar;
...
WM_COPYDATA:
                case PCopyDataStruct(LParam)^.dwData of
                    2048:
                        begin
                            //move(PCopyDataStruct(LParam)^.lpData,str,PCopyDataStruct(LParam)^.cbData);
                            MessageBoxA(0, PCopyDataStruct(LParam)^.lpData,PCopyDataStruct(LParam)^.cbData,0);
                        end;
                end;

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »