From 962cf41e0855e38bf46e094da75f226596c04026 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Mon, 16 Jan 2012 18:05:57 +0000
Subject: [PATCH] Tarea #756 resuelta -> Poder lanzar el servidor como servicio

git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@28 93f398dd-4eb6-7a46-baf6-13f46f578da2
---
 Source/Servidor/FactuGES_Server.dpr   |  20 +++++++++++++++---
 Source/Servidor/FactuGES_Server.dproj |   2 +-
 Source/Servidor/FactuGES_Server.res   | Bin 23352 -> 23344 bytes
 Source/Servidor/uDataModuleServer.pas |   5 +++--
 Source/Servidor/uServerMainForm.pas   |  29 +++++++++++++-------------
 5 files changed, 36 insertions(+), 20 deletions(-)

diff --git a/Source/Servidor/FactuGES_Server.dpr b/Source/Servidor/FactuGES_Server.dpr
index ec8a8d1..123b18b 100644
--- a/Source/Servidor/FactuGES_Server.dpr
+++ b/Source/Servidor/FactuGES_Server.dpr
@@ -1,9 +1,9 @@
 program FactuGES_Server;
-
 {#ROGEN:..\Servicios\FactuGES.rodl} // RemObjects: Careful, do not remove!
 
 uses
   uROComInit,
+  uROComboService,
   Forms,
   uServerMainForm in 'uServerMainForm.pas' {fServerForm},
   uAcercaDe in 'uAcercaDe.pas' {fAcercaDe},
@@ -141,13 +141,27 @@ uses
 {$R *.res}
 {$R ..\Servicios\RODLFile.res}
 
+const
+  FACTUGES_NAME = 'FactuGES Servidor';
+
 begin
+  if ROStartService(FACTUGES_NAME, FACTUGES_NAME) then
+  begin
+    // Aqui hay que comprobar antes si el servicio ya est  en ejecucion
+
+    ROService.CreateForm(TdmServer, dmServer);
+    ROService.Run;
+    Exit;
+  end;
+
   Application.Initialize;
-  //ReportMemoryLeaksOnShutdown := True;            //
-  Application.Title := 'FactuGES (Servidor)';
+//  ReportMemoryLeaksOnShutdown := True;
+  Application.Title := FACTUGES_NAME;
 
   Application.ShowMainForm := False;
+  Application.CreateForm(TdmServer, dmServer);
   Application.CreateForm(TfServerForm, fServerForm);
   Application.Run;
   Application.Terminate;
 end.
+
diff --git a/Source/Servidor/FactuGES_Server.dproj b/Source/Servidor/FactuGES_Server.dproj
index 8cf76ea..4f9691c 100644
--- a/Source/Servidor/FactuGES_Server.dproj
+++ b/Source/Servidor/FactuGES_Server.dproj
@@ -28,7 +28,7 @@
 		<Borland.Personality>Delphi.Personality</Borland.Personality>
 		<Borland.ProjectType/>
 		<BorlandProject>
-			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">7</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.4.7.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.4.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 27 de diciembre de 2011 15:54</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+			<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">4</VersionInfo><VersionInfo Name="Release">8</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.4.8.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES (Servidor)</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">2.4.8.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">lunes, 16 de enero de 2012 10:45</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
 						<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl">File C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPScxScheduler2LnkD11.bpl not found</Excluded_Packages>
 					</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
 	</ProjectExtensions>
diff --git a/Source/Servidor/FactuGES_Server.res b/Source/Servidor/FactuGES_Server.res
index 42cdf7bcfbc9593774c4b1399293140a46e6f2a0..36bebf3a8c5a8a8c694cfe22102046129e54194f 100644
GIT binary patch
delta 139
zcmdn7jd24I-HBi{nS3`w9!UO;Fy-W6U}0clU|`^wY#k}fIB9ZZq%vdP<l4w~MvKX;
zQPtcQ40;R(K=~vF#mU`KvW__nr3`rtsSL#oIt&U7h74vvG6l$20Ai4M5ko#)#0aR<
VkiiJ7&Vs>;!4$}2nEWxy9RSgl9-aUI

delta 147
zcmdn6jd8~|#tnBO7;PrsjgSYDe<Mse*%??Em>3us*e6>@$}-NG92u$1STVUavYpX<
zGHX;dw>g6zg8@)Jhe2&}ca*GW7DFjRDnl6%7c=NEC@>f?SOUouARk0#G9&|WDnl+q
e5<?MG3?yR&G{X=G6@b``!HU6z!D#Z!D0cw)+#tjN

diff --git a/Source/Servidor/uDataModuleServer.pas b/Source/Servidor/uDataModuleServer.pas
index 282e539..df1c363 100644
--- a/Source/Servidor/uDataModuleServer.pas
+++ b/Source/Servidor/uDataModuleServer.pas
@@ -6,7 +6,7 @@ uses
   SysUtils, Classes, SyncObjs, uDAEngine, uDAIBXDriver, JvLogFile, uROSessions,
   JvComponentBase, JvAppStorage, JvAppRegistryStorage, uDAClasses,
   uDADriverManager, uROClient, uROBinMessage, uROServer, uROIndyTCPServer,
-  uROIndyHTTPServer, uDAInterfaces;
+  uROIndyHTTPServer, uDAInterfaces, uROComboService;
 
 const
   SERVER_PORT = '8099';    // Puerto por defecto
@@ -294,7 +294,8 @@ begin
   ConnectionName := ConnectionManager.GetDefaultConnectionName;
   ConnectionManager.Connections.GetDefaultConnection.ConnectionString := GetConnectionString;
 
-  ShowBalloonHint('Conectado a ' + ConnectionName, bfInfo);
+  if not ROIsService then
+    ShowBalloonHint('Conectado a ' + ConnectionName, bfInfo);
 
   CoInitialize(nil);
   HTTPServer.Active := TRUE;
diff --git a/Source/Servidor/uServerMainForm.pas b/Source/Servidor/uServerMainForm.pas
index 868a878..0b8cb2d 100644
--- a/Source/Servidor/uServerMainForm.pas
+++ b/Source/Servidor/uServerMainForm.pas
@@ -53,7 +53,7 @@ var
 implementation
 
 uses
-  uDataModuleServer, uConfiguracion, uAcercaDe, uServerAppUtils;
+  uDataModuleServer, uConfiguracion, uAcercaDe, uServerAppUtils, uROComboService;
 
 {$R *.dfm}
 
@@ -83,21 +83,22 @@ procedure TfServerForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
 begin
   CanClose := False;
 
-  with JvProgressDialog1 do
-  begin
-    InitValues(0, 100, 10, 0, 'Cerrar FactuGES Server', 'Espere mientras FactuGES Server se cierra...');
-    Show;
-    while dmServer.HTTPServer.Active do
+  if not ROIsService then
+    with JvProgressDialog1 do
     begin
-      if (Position + Interval > Max) then
-        Position := Min
-      else
-        Position := Position + Interval;
-      Refresh;
-      dmServer.HTTPServer.Active := False;
+      InitValues(0, 100, 10, 0, 'Cerrar FactuGES Server', 'Espere mientras FactuGES Server se cierra...');
+      Show;
+      while dmServer.HTTPServer.Active do
+      begin
+        if (Position + Interval > Max) then
+          Position := Min
+        else
+          Position := Position + Interval;
+        Refresh;
+        dmServer.HTTPServer.Active := False;
+      end;
+      Hide;
     end;
-    Hide;
-  end;
   CanClose := True;
 end;