Создание log файла в сервисе

[nikcpp]

Помогите не могу понять когда пишу программу в VCL все нормально работает, а когда переписываю в сервис перестает создаваться файл
Вот код сервиса

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs,
  ExtCtrls, ComCtrls, StdCtrls;

type
  TLurking_software = class(TService)
    Timer1: TTimer;
    procedure ServiceStart(Sender: TService; var Started: Boolean);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    function GetServiceController: TServiceController; override;
    { Public declarations }
  end;

  procedure AddToLog(s:string);
  function GetFileSize(FileName: string): integer;

var
  Service1: TLurking_software;
  f : boolean;


implementation

{$R *.DFM}
procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  Service1.Controller(CtrlCode);
end;

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

procedure TLurking_software.ServiceStart(Sender: TService;
  var Started: Boolean);
begin

  f:=true;

end;

procedure AddToLog(s:string);
var
fn:string;
F:TextFile;
begin

Fn:='D:\'+'log.txt';
if (GetFileSize(FN)div 1024)>=2 then
 begin

  assignFile(f,fn);
  RenameFile('D:\'+'log.txt',
   'D:\'+FormatDateTime('dd', Now)+ FormatDateTime('mm', Now)
   +FormatDateTime('yyyy', Now)+FormatDateTime('hh', Now)+FormatDateTime('nn', Now)+
   FormatDateTime('ss', Now));

 end;

  assignFile(f,fn);
  if FileExists(fn) then Append(f) else Rewrite(f);
  Writeln(f,s);
  Flush(f);
  Closefile(f);

  end;

function GetFileSize(FileName: string): integer;
var F: TMemoryStream;
begin
  try
    F:=TMemoryStream.Create;
    F.LoadFromFile(FileName);
    Result:=F.Size;
  finally
    F.Free;
  end;
end;

procedure TLurking_software.Timer1Timer(Sender: TObject);

begin
if f=true then
 begin
   AddToLog('test');
 end;

end;

end.

[mss]

Дикий по несуразности код.

[nikcpp]

Сообщение от mss

Дикий по несуразности код.

Для особо одаренных это test. Для тех кто на броне поезде я прошу помощи а не комментарии.

[mss]

У тебя f=false

А код хоть test хоть не тест все равно дикий)
Это же уму непостижимо - грузить ВЕСЬ ФАЙЛ В ПАМЯТЬ, чтобы узнать его размер !

[GunSmoker]

Что таймер в сервисе будет работать - сам придумал?

[nikcpp]

Сообщение от mss

У тебя f=false

А код хоть test хоть не тест все равно дикий)
Это же уму непостижимо - грузить ВЕСЬ ФАЙЛ В ПАМЯТЬ, чтобы узнать его размер !

Если ты смотрел внимательно при старте сервиса F=true;

тебе такой подойдет код

procedure TLurking_software.ServiceStart(Sender: TService;
  var Started: Boolean);
begin

  f:=true;

end;

procedure AddToLog(s:string);
var
fn:string;
F:TextFile;
begin

  Fn:='D:\'+'log.txt';
  assignFile(f,fn);
  if FileExists(fn) then Append(f) else Rewrite(f);
  Writeln(f,s);
  Flush(f);
  Closefile(f);

  end;

procedure TLurking_software.Timer1Timer(Sender: TObject);

begin
if f=true then
 begin
   AddToLog('test');
 end;

end;

end.

[nikcpp]

Сообщение от GunSmoker

Что таймер в сервисе будет работать - сам придумал?

Для тех кто на броне поезде я прошу помощи а не комментарии.

[GunSmoker]

Для тех кто на броне поезде я прошу помощи а не комментарии.

Для танкистов формулирую это же, но другими словами: TTimer просто так в службе работать не будет.

Иными словами у тебя проблема не в записи в лог, а в том, что AddToLog не вызывается.

[nikcpp]

Сообщение от GunSmoker

Для танкистов формулирую это же, но другими словами: TTimer просто так в службе работать не будет.

Иными словами у тебя проблема не в записи в лог, а в том, что AddToLog не вызывается.

TTimer в службах работает на ура.

И с ошибкой я своей уже разобрался.
тему можно закрыть.

[mss]

Если ты смотрел внимательно при старте сервиса F=true

Так я ж тебе, балбесу, и намекал что сервис твой не стартует)
Ты ж поди пыжился сервис-приложение стартовать как обычное)
Но гонора ламерского при этом у тебя выше крыши)
Судя по

с ошибкой я своей уже разобрался

так ведь ?)