我的服務似乎沒有持續運行。
procedure TService1.ServiceExecute(Sender: TService);
begin
While not Terminated do
ServiceThread.ProcessRequests(True);
end;
這就是我目前擁有的假設可以保持服務運行,但它沒有這樣做。
uj5u.com熱心網友回復:
這段代碼僅在從 Windows 服務管理器啟動服務時運行。獲得服務.exe檔案后,使用命令提示符通過/install命令列引數啟動它,然后使用net start <your-service-name>或 開始選單或控制面板中管理工具中的服務管理對話框來啟動服務。
如果要在Delphi 除錯器中運行該服務,請以管理權限啟動 Delphi 并附加到正在運行的行程。但更可取的做法是將所有邏輯放在單獨的單元中,并將專案的單獨版本作為“普通 exe”來運行您可以在除錯器中運行的專案程式。
轉載請註明出處,本文鏈接:https://www.uj5u.com/ruanti/379835.html
標籤:德尔福
