From 27ff4c32d3744cb4b697dd81e9acf9c0c14e6cb6 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Wed, 18 Jul 2007 09:56:36 +0000
Subject: [PATCH] Ahora el cliente guarda la url del servidor en un fichero INI
 en vez de usar el registros de Windows.

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@99 c93665c3-c93d-084d-9b98-7d5f4a9c3376
---
 Source/Base/uConfigurarConexion.dfm      |  2 ++
 Source/Base/uDataModuleBase.dfm          |  8 -----
 Source/Base/uDataModuleBase.pas          | 10 ++----
 Source/Base/uDataModuleConexion.pas      |  2 +-
 Source/Base/uDataModuleConfiguracion.pas | 41 +++++++++++++++++++++---
 5 files changed, 41 insertions(+), 22 deletions(-)

diff --git a/Source/Base/uConfigurarConexion.dfm b/Source/Base/uConfigurarConexion.dfm
index f29ef0c1..715c6fda 100644
--- a/Source/Base/uConfigurarConexion.dfm
+++ b/Source/Base/uConfigurarConexion.dfm
@@ -41,6 +41,7 @@ object fConfigurarConexion: TfConfigurarConexion
       Top = 28
       Width = 97
       Height = 13
+      Margins.Bottom = 0
       Caption = 'Nombre del servidor:'
     end
     object Label2: TLabel
@@ -48,6 +49,7 @@ object fConfigurarConexion: TfConfigurarConexion
       Top = 60
       Width = 93
       Height = 13
+      Margins.Bottom = 0
       Caption = 'Puerto de escucha:'
     end
     object edtServer: TEdit
diff --git a/Source/Base/uDataModuleBase.dfm b/Source/Base/uDataModuleBase.dfm
index fb7eb075..3a012e38 100644
--- a/Source/Base/uDataModuleBase.dfm
+++ b/Source/Base/uDataModuleBase.dfm
@@ -508,14 +508,6 @@ object dmBase: TdmBase
     Left = 104
     Top = 16
   end
-  object JvAppRegistryStorage: TJvAppRegistryStorage
-    StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
-    StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
-    Root = 'Software\%APPL_NAME%'
-    SubStorages = <>
-    Left = 224
-    Top = 80
-  end
   object cxIntlPrintSys31: TcxIntlPrintSys3
     Connected = True
     Version = '3.0'
diff --git a/Source/Base/uDataModuleBase.pas b/Source/Base/uDataModuleBase.pas
index 6bb5046b..2bd8051f 100644
--- a/Source/Base/uDataModuleBase.pas
+++ b/Source/Base/uDataModuleBase.pas
@@ -14,7 +14,6 @@ type
     StyleManager: TJvNavPaneStyleManager;
     TBXSwitcher: TTBXSwitcher;
     cxIntl: TcxIntl;
-    JvAppRegistryStorage: TJvAppRegistryStorage;
     cxIntlPrintSys31: TcxIntlPrintSys3;
     procedure DAClientDataModuleCreate(Sender: TObject);
     procedure DataModuleDestroy(Sender: TObject);
@@ -83,7 +82,7 @@ end;
 
 procedure TdmBase.LeerConfiguracion;
 begin
-  dmConexion.TargetURL := JvAppRegistryStorage.ReadString('ServerURL', SERVER_URL);
+  dmConfiguracion.LeerConfiguracion;
 end;
 
 procedure TdmBase.OnTBXThemeChange(Sender: TObject);
@@ -96,12 +95,7 @@ end;
 
 procedure TdmBase.SalvarConfiguracion;
 begin
-  JvAppRegistryStorage.BeginUpdate;
-  try
-    JvAppRegistryStorage.WriteString('ServerURL', dmConexion.TargetURL);
-  finally
-    JvAppRegistryStorage.EndUpdate;
-  end;
+  dmConfiguracion.SalvarConfiguracion;
 end;
 
 function TdmBase.DarVersion: String;
diff --git a/Source/Base/uDataModuleConexion.pas b/Source/Base/uDataModuleConexion.pas
index 4f323457..29fba5df 100644
--- a/Source/Base/uDataModuleConexion.pas
+++ b/Source/Base/uDataModuleConexion.pas
@@ -7,7 +7,7 @@ uses
   uDABINAdapter, uROClient, uROBinMessage, uROWinInetHttpChannel;
 
 const
-  SERVER_URL = 'http://localhost:8099/bin';
+  SERVER_URL = 'http://localhost:8099/bin'; // Dirección por defecto del servidor
   
 type
   TdmConexion = class(TDataModule)
diff --git a/Source/Base/uDataModuleConfiguracion.pas b/Source/Base/uDataModuleConfiguracion.pas
index acd75209..54d0adc8 100644
--- a/Source/Base/uDataModuleConfiguracion.pas
+++ b/Source/Base/uDataModuleConfiguracion.pas
@@ -4,7 +4,7 @@ interface
 
 uses
   SysUtils, Classes, uROServiceComponent, uRORemoteService, uDADataTable,
-  uDABINAdapter, uROClient, uROBinMessage, uROWinInetHttpChannel;
+  uDABINAdapter, uROClient, uROBinMessage, uROWinInetHttpChannel, IniFiles;
 
 const
   SERVER_URL = 'http://localhost:8099/bin';
@@ -15,8 +15,14 @@ type
     ROMessage: TROBinMessage;
     DABINAdapter: TDABINAdapter;
     RORemoteService: TRORemoteService;
+  private
+    FIniFile : TIniFile;
   public
-    function darValor(const CODIGO: String): Variant;
+    function DarValor(const CODIGO: String): Variant;
+    procedure LeerConfiguracion;
+    procedure SalvarConfiguracion;
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
   end;
 
 var
@@ -26,14 +32,39 @@ implementation
 
 {$R *.dfm}
 
-uses FactuGES_Intf, Variants;
+uses
+  Forms, FactuGES_Intf, Variants, uDataModuleConexion;
 
 
 { TdmConfiguracion }
 
-function TdmConfiguracion.darValor(const CODIGO: String): Variant;
+constructor TdmConfiguracion.Create(AOwner: TComponent);
 begin
-  Result := (RORemoteService as IsrvConfiguracion).darValor(CODIGO);
+  inherited;
+  FIniFile := TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini' ) );
+end;
+
+function TdmConfiguracion.DarValor(const CODIGO: String): Variant;
+begin
+  Result := (RORemoteService as IsrvConfiguracion).DarValor(CODIGO);
+end;
+
+destructor TdmConfiguracion.Destroy;
+begin
+  FreeAndNIL(FIniFile);
+  inherited;
+end;
+
+procedure TdmConfiguracion.LeerConfiguracion;
+begin
+  with FIniFile do
+    dmConexion.TargetURL := ReadString('Server', 'URL', SERVER_URL);
+end;
+
+procedure TdmConfiguracion.SalvarConfiguracion;
+begin
+  with FIniFile do
+    WriteString('Server', 'URL', dmConexion.TargetURL);
 end;
 
 end.