ich vermute mal dass ich herausgefunden hab wo mein problem ist:
da das ganze ja ne Konsolen anwendung und soll später zum System Dienst ausgebaut werden.
Ja. mein problem liegt wohl darin dass ich keine Nachrichtenschleife hab. Und so die Ereignisse nicht aufgerufen werden.
Joa. hab mich mal mit meinem bisschen wissen dran gemacht und folgendes gemacht:
Delphi-Quellcode:
program TestConsole;
{$APPTYPE CONSOLE}
uses
Windows, uCommunication, Messages;
const Z_INIT = 0;
Z_START = 1;
Z_DO = 2;
var msg: TMsg;
lastmessage : integer = 0;
zComm : TZCommunication;
procedure ZDispatcher(ZMessage : Integer);
begin
Case ZMessage of
Z_INIT:
begin
Writeln('Init');
SendMessage(0, Z_START, 0,0); // HIER
end;
Z_START:
begin
Writeln('Start');
zComm := TZCommunication.Create;
zComm.Active := TRUE;
end;
end;
end;
begin
ZDispatcher(0);
while GetMessage(msg,0,0,0) do
begin
TranslateMessage(msg);
DispatchMessage(msg);
ZDispatcher(msg.message);
end;
ExitCode := msg.wParam;
end.
So... das ganze kann wohl noch nicht funkionieren da ich kein HWND (
Handle?) habe (siehe "// HIER")
Kann mir bitte jemand helfen und mir sagen - ob ich
A, richtig liege
B, mir helfen dieses Programm soweit zu bringen dass was passiert?
(bei dem ZComm.Active müsste z.B. sich das ereignis "OnConnect" melden - tuts aber nicht)
Danke
Daniel