Hallo,
Ich habe folgendes Problem:
Ich habe mir einen globalen Maushook erstellt und verwende dazu eine
DLL (die von einem Hauptprogramm installiert und deinstalliert werden kann). Zunächst einmal habe ich die
DLL immer eine fenstermessage (per SendMessage) an das hauptprogramm schicken lassen - auf diese weise funktioniert es auch einwandfrei. Jetzt möchte ich allerdings (weil das schicken per fenstermsg z.T. starke systemverzögerungen hervorrufen kann bzw. kurz viel CPU-Auslastung braucht) die kommunikation zwischen
DLL und Hauptprogramm über WinSockets laufen lassen, wobei ich die standardkomponenten TClientSocket (
DLL) und TServerSocket (Hauptprogramm) benutze (ich habe mir diese form von
ipc ausgesucht, weil ich damit schon einmal gearbeitet habe, MMF z.B. wäre neuland für mich). das ganze funktioniert jedoch nur, solange sich der mauszeiger überhalb der form des hauptprogrammes bewegt. sobald er außerhalb ist, wird nichts mehr übertragen, auch nicht, wenn der mauszeiger danach wieder zur form zurückkehrt (
DLL muss dann neu installiert werden). es kommt aber auch keine fehlermeldung/
exception!
ich denke mal, es liegt an der
dll, deswegen hier mal der betreffende code daraus :
Delphi-Quellcode:
...
type
tclientsocket1 =class(TClientSocket);
...
var
...
clientsocket1:tclientsocket1;
...
function KeyboardHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
Result := CallNextHookEx(Keyboard_HookHandle, nCode, wParam, lParam);
case nCode < 0 of
TRUE: exit;
FALSE:
begin
//SendMessage(HWND_BROADCAST, WM_MOUSEHOOKMSG, wParam, lParam); <-alte methode
clientsocket1.Socket.SendText('test');
end;
end;
end;
achja, das clientsocket wird bei installieren mit
Delphi-Quellcode:
clientsocket1:=tclientsocket1.Create(
nil);
clientsocket1.Port:=213375;
clientsocket1.Host:='
localhost';
eingestellt.
ich habe leider keine ahnung, was ich falsch mache bzw. ändern muss.
tia für hinweise