Создание службы

[3D Hunter]

1. gThr.Execute выполняется только один раз и поток засыпает.
2. Непонятно, что делает TConverter.Run.
3. В TConverter.ServiceStop код касательно освобождения потока некорректен - вы не дожидаетесь уничтожения экземпляра, да и не высвобождается поток вызовом Terminate. Уничтожают обычно с помощью FreeAndNil();
4. Выделите основные рабочие методы в класс потока либо в отдельный рабочий класс.
5. А с чего бы оно работало, если вы те объекты, которые высвобождаете в ServiceStop, нигде не создаете?


В общем, автор! Учите мат. часть! Был бы хоть базовый уровень... какие службы?!

[Ky3Heu,]

Базовый уровень есть.. Я же написал что это лишь часть кода и времени нет углубляться.. Читаю и пытаюсь, но ни чего пока что не выходит.
Попробуем проще объяснить.

unit Unit1;

interface

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

type
  TService1 = class(TService)
    procedure ServiceStart(Sender: TService; var Started: Boolean);
  private
    { Private declarations }
  public
    function GetServiceController: TServiceController; override;

    //тут процедурки объявлены

    { Public declarations }
  end;


   TMyThr = class(TThread)
  protected

   procedure Execute; override;

  public
    {}
  end;

var
  Service1: TService1;
  gThr :Tmythr;

implementation

{$R *.DFM}

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

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

procedure TMyThr.Execute;
begin
  //операторы по конвертации данных
  //создаются всякие там стринглисты
  //вызываются другие процедурки из класса Tservice1 и т.д

  //КАК ЗАСТАВИТЬ ЭТО ОТРАБАТЫВАТЬ РАЗ В 60 СЕКУНД 24 ЧАСА В СУТКИ?????????

end;

procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);
begin
gThr := TMyThr.Create; ///И что делать дальше??????
end;

end.

[3D Hunter]

Смотрите личку, отправил туда сообщение.

[Человек_Борща]

ТС, вот вам пример сервиса на основе потока.
Останавливается и запускается на ура.