El servicio delphinero se cierra

[[pepon386]]

Empezado por [Gunman]

El servicio tiene que ser un servidor FTP, el servicio tiene que estar activo siempre, hasta que el usuario decida cerrarlo.

El problema que tienes es debido a que, en el Execute del servicio tienes que controlar toda la vida del proceso, en tu caso, que se abra el servidor FTP, que esté a la escucha y que cuando el servidor se prepare para apagarse o el usuario detenga el servicio que finalice. Te pongo un ejemplo:

procedure TSvcMio.ServiceStart(Sender: TService;
  var Started: Boolean);
begin
  CargaConfiguracion;
  Started := True;
end;
 
procedure TSvcMio.ServiceStop(Sender: TService;
  var Stopped: Boolean);
begin
  FinalizaServicio;
  Stopped := True;
end;
 
procedure TSvcMio.ServiceExecute(Sender: TService);
begin
  AddLog('Servicio iniciado');
  while not Terminated do
	ServiceThread.ProcessRequests(True);
  AddLog('Servicio detenido' + #13#10);
end;