| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Обмен данными между процессами ( WM_COPYDATA) [D7, WinXP]

BOGa ©   (2007-03-10 14:38:00) 

Необходимо переслать копию сообщения из функции-фильтра своему приложению.

{Функция-фильтр для ловушки WH_GETMESSAGE}
function HookProc (Code:Integer; wParam:word; lParam:longint): longint ; stdcall;
var
 mes:TMsg;
 CDS: TCopyDataStruct;
 WRH:HWND;
begin
 if Code=HC_ACTION then
 begin
   mes:=TMsg(pointer(lParam)^);
   cds.cbData:=sizeof(TMsg);
   GetMem(CDS.lpData,cds.cbData);
   cds.lpData:=@mes;
   WRH:=findwindow(nil,'WinRecorder');
   sendmessage(WRH, WM_COPYDATA, 0, integer(@CDS));
   cds.lpData:=nil;
   FreeMem(cds.lpData,cds.cbData);
 end;
  Result := CallNextHookEx(HH, Code, wParam, lParam);
end;

{Обработчик WM_COPYDATA}
procedure TForm1.CopyData_Mes (var a:TWMCopyData);
var
 mes:TMyMsg;
begin
 mes.Mess:=TMsg(a.CopyDataStruct.lpData^);
 write(f,mes);
// a.CopyDataStruct.lpData:=nil;
 a.Result := 1;
end;


При выходе их обработчика WM_COPYDATA выдается ошибка "Invalid pointer operation". Если в обработчик вставить              a.CopyDataStruct.lpData:=nil, все работает нормально, но это, как я понимаю, не корректно (или нет?).И если это сделать, то  FreeMem в функции-фильтре выдает ошибку.
FreeMem(a.CopyDataStruct.lpData, a.CopyDataStruct.cdData) в обработчике, также выдаст ошибку.
Если можно, объясните механизм работы WM_COPYDATA, или дайте ссылку на эту информацию.
Заранее спасибо.

---

Eraser   (2007-03-10 19:39:00) [1]

> объеснено

объяснено )

---

Eraser   (2007-03-10 19:38:00) [2]

> Если можно, объясните механизм работы WM_COPYDATA

в MSDN всё объеснено и даже пример есть
http://msdn2.microsoft.com/en-us/library/ms649009.aspx
вот на Делфи
http://www.swissdelphicenter.ch/torry/showcode.php?id=810

---

Наверх