我如何將自定義消息發送到Windows服務？

Question

我已經實現了一個啓動了幾個工作線程的windows xp服務應用程序。 從我需要發送自定義消息回服務的線程之一。 我該怎麼做？

Answer 1

感謝您的幫助。這裏是我解決了這個問題：

在服務類定義：

WHandle: HWND; 
protected 
    procedure HandleServiceMessage(var Msg: TMessage); virtual; 

在ServiceExecute方法：

WHandle := AllocateHWnd(HandleServiceMessage); 
    MyThread := TMyThread.Create(true); 
    MyThread.HndMain := WHandle; 
    MyThread.Resume; 
    while not Terminated do ServiceThread.ProcessRequests(True); 
    DeallocateHWnd(WHandle); 
end; 

在ServiceStop方法：

MyThread.Terminate; 

而處理信息的方法：

procedure TMessageService.HandleServiceMessage(var Msg : TMessage); 
var 
    Handled: Boolean; 
begin 
    Handled := True; 
    if Msg.Msg = WM_MYMESSAGE then 
    Beep 
    else 
    Handled := False; 
    if Handled then 
    Msg.Result := 0 
    else 
    Msg.Result := DefWindowProc(WHandle, Msg.Msg, Msg.WParam, Msg.LParam); 
end; 

在MyThread.Execute方法：

PostMessage(HndMain,WM_MYMESSAGE,0,0); 

它的工作就好了。

Answer 2

一個選項是使用OmniThreadLibrary（例如，閱讀this blog post）。

Answer 3

我同意TOndrej共享對象應該是足夠的。

另一方面，您可以使用我的IPC（Cromis IPC），它在服務內部工作得很好。它很容易使用，面向消息，所以你不需要知道命名管道的工作方式和速度。服務器部分也使用線程池，因此不需要等待某些內容被處理。您可以使用消防和忘記方案。

或者如果您認爲有一點重新設計是可以的，您可以嘗試OmniThreadLibrary，它具有已經構建的所有消息傳遞，並且用於執行這樣的任務。

編輯：

好了可能是最清晰的路要走，沒有任何redesing是具有由臨界區保護的通用對象列表。工作線程正在添加需要在列表中處理的對象。當添加對象時，工作線程發出事件信號。然後你有一個對象處理線程正在等待WaitForSingleObject這個事件。只要有東西添加到列表中，事件就會發出信號，處理線程會處理它在列表中找到的所有對象。然後它再次等待。您只需保護對公共列表的訪問權限即可。

簡化代碼應該是這樣的：

工作者線程

ObjectList.Add(MessageObject); 
SetEvent(FEvent); 

處理線程

while not Terminated do 
begin 
    WaitForSingleObjest(FEvent, INFINITE); 
    // process all the objects 
end; 

Answer 4

創建僅郵件窗口：

procedure TMyService.MessageQueueDispatch(var Message: TMessage); 
begin 
    Dispatch(Message); //Delphi default dispatcher for TMyService 
end; 

procedure TMyService.SomeKindOfOnCreate; 
begin 
    MessageQueue := AllocateHWnd(MessageQueueDispatch); 
end; 

毀：

procedure TMyService.SomeKindOfDestroy; 
begin 
    CloseHandle(MessageQueue); 
end; 

現在，您可以處理的消息，就像您用郵件的形式做：

TMyService = class(TService) 
... 
protected 
    procedure HandleMyMessage(var msg: TMsg); message WM_MY_MESSAGE; 
end; 

德爾福調度（）處理程序將調用函數的照顧。