Saludos,
Yo he creado un servicio con Delphi 7 el cual me actualiza unos campos de una tabla en SQL y elimina ese registro de otra tabla en Oracle, el punto es que la funcion esta bien , pero cuando la implemente en el servicio no se ejecuta completa, apenas busca en una tabla y se detiene es como si el timpo de ejecucion parametrizado es muy corto..lo que quiero es saber como puedo hacer que si mi consulta es un poco larga el servicio pueda esperar hasta que esta termine....
aqui una puestra de lo que yo he realizado...
Código Delphi
[-]
implementation
{$R *.DFM}
procedure ServiceController(CtrlCode: DWord); stdcall;
begin
tServicesBar.Controller(CtrlCode);
end;
function TtServicesBar.GetServiceController: TServiceController;
begin
Result := ServiceController;
end;
procedure TtServicesBar.tEjecuteTimer(Sender: TObject);
Begin
end;
procedure TtServicesBar.ServiceStart(Sender: TService;
var
Started: Boolean);
begin
tEjecute.Enabled := True;
end;
procedure TtServicesBar.ServiceExecute(Sender: TService);
begin
tEjecute.Enabled := True;
While not Self.Terminated do
ServiceThread.ProcessRequests(True); tEjecute.Enabled := False;
end;
procedure TtServicesBar.ServiceStop(Sender: TService;
var
Stopped: Boolean);
Begin
tEjecute.Enabled := False;
end;