Cita:
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:
Código:
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;