El servicio delphinero se cierra

[dec]

Hola,

Empezado por Gunman

Mi servicio tiene que tener abierto el servidor IdFTPServer, como hago que se quede el servicio activo?

Siento no poder ayudarte: no he utilizado nunca el componente que dices. No sé cómo realiza su tarea. ¿Qué significa que el "servicio tiene que tener abierto el servidor IdFTPServer"? ¿Acaso que este tiene que estar pendiente, a la escucha, en un determinado puerto del ordenador? No sé si por ahí van los tiros. Lamento no poder decirte otra cosa, al menos de momento.

[[Gunman]]

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

[[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;