Сервис

Putnik Delphi
Дата: 25.11.2007 14:18:15
Пишу сервис. Только он послезапуска вырубается секунд через 15. Вот листинг кода, скажите, что не так...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs;

type
  TService1 = class(TService)
    procedure ServiceExecute(Sender: TService);
    procedure ServiceContinue(Sender: TService; var Continued: Boolean);
    procedure ServicePause(Sender: TService; var Paused: Boolean);
    procedure ServiceStart(Sender: TService; var Started: Boolean);
    procedure ServiceStop(Sender: TService; var Stopped: Boolean);
  private
    { Private declarations }
  public
    function GetServiceController: TServiceController; override;
    { Public declarations }
  end;

var
  Service1: TService1;

implementation

{$R *.DFM}

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  Service1.Controller(CtrlCode);
end;

function TService1.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;

procedure TService1.ServiceExecute(Sender: TService);
begin
    while not Terminated do
    begin
        ServiceThread.ProcessRequests(True);
    end;
end;

procedure TService1.ServiceContinue(Sender: TService;
  var Continued: Boolean);
begin
Continued:=true;
end;

procedure TService1.ServicePause(Sender: TService; var Paused: Boolean);
begin
Paused:=true;
end;

procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);
begin
Started:=true;
end;

procedure TService1.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
Stopped:=true;
end;


end.
Infernal V. Raven
Дата: 25.11.2007 15:11:22
сервис запускается через SCM.
кстати, какую функцию выполняет этот сервис?
Putnik Delphi
Дата: 25.11.2007 17:02:10
автор
сервис запускается через SCM.

Как обычный проект Delphi
автор
кстати, какую функцию выполняет этот сервис?

Он будет отслеживать изменения в файле
Infernal V. Raven
Дата: 25.11.2007 18:38:32
Putnik Delphi
Как обычный проект Delphi

чтобы не вылетал, нужно запускать через SCM.
Putnik Delphi
Дата: 25.11.2007 20:30:10
Infernal V. Raven
Putnik Delphi
Как обычный проект Delphi

чтобы не вылетал, нужно запускать через SCM.

Каким образом?
Карабас Барабас
Дата: 25.11.2007 21:55:35
Putnik Delphi
Каким образом?
sc start winroute
net start winroute

или читать FM про Service Manager

Posted via ActualForum NNTP Server 1.4

Putnik Delphi
Дата: 25.11.2007 22:20:35
Карабас Барабас
Putnik Delphi
Каким образом?
sc start winroute
net start winroute

или читать FM про Service Manager
Posted via ActualForum NNTP Server 1.4

и все равно я ничего не понял...Надо в коммандной строке что-то писать?
Гаджимурадов Рустам
Дата: 25.11.2007 22:32:46

Да.


Posted via ActualForum NNTP Server 1.4

Putnik Delphi
Дата: 25.11.2007 23:00:22
Гаджимурадов Рустам

Да.


Posted via ActualForum NNTP Server 1.4

Ммм. А что. Просто первый раз с сервисами работаю
Гаджимурадов Рустам
Дата: 25.11.2007 23:54:59

Например, вторую из приведенных строчек.


Posted via ActualForum NNTP Server 1.4