Servicio iniciado pero no hace nada

[Neftali [Germán.Estévez]]

¿Has revisado el visor de eventos del sistema?
¿talvez tenga algun problema? ¿Conexión?

También puedes crear un Log en disco, con las operacionmes que va realizando, a ver en qué momento hay algun problema....

Código Delphi [-]
procedure _Log(Str:string);
const
  FileName = 'c:\logService.txt';
var
  F: TextFile;
begin
  AssignFile(f,FileName);
  if FileExists(FileName) then begin
    Append(f)
  end
  else begin
    Rewrite(f);
  end;

  // Escribir
  writeln(f, DateTimeToStr(Now) + '  ->> ' + Str);
  CloseFile(f);

Basa con que vayas llamado al procedimiento a medida que vayas haciendo cosas:

Código Delphi [-]
  ...
  _Log('Conectando...');
  ...
  _Log('Conectado correctamente');
  ...