16 respuestas en este tema

[giulichajari]

Ya es un tema muy conocido lo de el archivo .INI donde estan los datos de la conexion nombre y pass de usuario etc.. tanto en el server como en el cliente con el componente TSQLConnection.

 

Pero el caso es que quiero saber como se debe compilar ambas aplicaciones, lo logico seria compilar el componente desconectado para que tome parametros al conectarse. Pero de esta manera falla la aplicacion(ambas).

 

Y obtengo ademas Remote Error: Missing drivername property (esta viene del .INI).

 

Ya me paso que compilando con mi ip por ej. al llevar a otra maquina toma esa y no la del .INI (como que fuera estatico).

GRacias.

[genriquez]

Usualmente el componente TSqlConnection debe estar desconectado y en el DataModulo o los formularios inicales que se autocreen todos los componentes SqlQuery o cualquier otro que esté conectado al TSqlConnection debe estar inactivo   Active=False.

 

Es común que cuando se trabaja en una aplicación, y si se crean campos de referencias, los queries queden abiertos por defecto.    Así que asegúrate que todo esté cerrado, incluyendo el SQLConnection.

 

 

Creo que eso arreglaría tu problema.

 

Saludos.

[Nikolas]

php

procedure Tmodulo.DataModuleCreate(Sender: TObject);
Var BaseDeDatos: String;
    IniFile: TIniFile;
begin
 {TOMO DATOS DEL ARCHIVO INI}
 IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'inicio.ini');
 BasedeDatos := IniFile.ReadString('BD','Path','');
 puerto := IniFile.ReadString('PORT','puerto','');
 hay_ifiscal := IniFile.ReadString('ifiscal','valor','');
 with IBConnection1 do
     begin
     DatabaseName:= BasedeDatos;
     password := 'masterkey';
     username:= 'SYSDBA';
     Connected:= True;
     sqlTransaction1.Active:= True;
     end;
end;

[egostar]

Hola 

 

Otra cosa que necesitas tener en consideración es que el DataModule sea la primer forma que se crea, y todas las conexiones se configuren en el evento OnCreate de la misma, con eso resuelto, ya puedes abrir cualquier otra forma y la conexión con la base de datos.

 

Saludos

 

Edito: Así como lo muestra nuestro buen  amigo Nikolas

[giulichajari]

Y se podria lanzar una excepcion(un cartelito), en xp te dice ".exe dejo de funcionar", aunque windows 7 te tira el error ekeje

[egostar]

Y se podria lanzar una excepcion(un cartelito), en xp te dice ".exe dejo de funcionar", aunque windows 7 te tira el error ekeje

 

Una excepción ¿Cuando?

 

Puedes utilizar un try...except, sólo tienes que definir en que momento quieres lanzar la excepción.

 

Saludos

[giulichajari]

De hecho utilizo try except porque los parametros se cargan del INI, pero si el server no esta iniciado o algun dato esta mal? en windows me dice:

 

http://s1187.photobu...90ybqt.jpg.html

 

Sin embargo si conecto el servidor y este se inicia no hay errores.

delphi

procedure TClientModule1.DataModuleCreate(Sender: TObject);
var
admin:TIniFile;
nombre,destino,hoy,hoycli,hoycat,hoysubcat:string;
i,x:integer;
ultimo,ucat,usubcat,ucli:string;
fecha:TDateTime;
begin
 
admin:=TIniFile.Create(ExtractFilePath(Application.ExeName )+ 'caja.ini');
hoy:=ExtractFilePath(Application.ExeName)+ 'productos\'+FormatDateTime('dd-mm-yyyy',Now) + 'producto.xml';
hoycli:=ExtractFilePath(Application.ExeName)+ 'clientes\'+FormatDateTime('dd-mm-yyyy',Now) + 'clientes.xml';
hoycat:=ExtractFilePath(Application.ExeName)+ 'cat\'+'catprod'+FormatDateTime('dd-mm-yyyy',Now) + '.xml';
hoysubcat:=ExtractFilePath(Application.ExeName)+ 'cat\'+'subcatprod'+FormatDateTime('dd-mm-yyyy',Now) + '.xml';
    with ClientModule1.SQLConnection1 do
          begin
            Close;
            DriverName:='DataSnap';
                Params.Values['DriverName']:=admin.ReadString('admin','DriverName','');
                Params.Values['HostName']:=admin.ReadString('admin','HostName','');
 
                Params.Values['Port']:=admin.ReadString('admin','Port','211');
             Params.Values['DSAuthenticationUser']:=admin.ReadString('admin','User','');
             Params.Values['DSAuthenticationPassword']:=admin.ReadString('admin','Pass','');
             Params.Values['DSAuthenticationScheme']:=admin.ReadString('admin','bd','');
 
          end;
      try
        SQLConnection1.Open;
except
 
 ShowMessage('trabajando sin conexion');
      end;

Pero no funciona..

Gracias por su ayuda..

[giulichajari]

Bueno al final coloque un TTimer en el form principal, y el codigo de arriba(en el que leo el archivo :INI y realizo la conexion) lo coloque en el evento ONTimer del Timer, entonces la aplicacion deberia mostrar todos sus formulario aunque el Clientmodule no se haya podido conectar.

 

El caso es que obtengo un error y todo sigue igual en la linea inherited del constructor del datamodule:

delphi

constructor TClientModule1.Create(AOwner: TComponent);
begin
inherited;
FInstanceOwner := True;
end;

Haciendo debug me da el socket error connection refused en "inherited" y es lo mismo que nada.

 

Agradeceria me ayuden.

[Marc]

Hola.

 

El componente TSQLConnection tiene un evento OnBeforeConnect

 

Establece los parámetros de la conexión dentro de ese evento, de esta forma la conexión se abrirá siempre con los parámetros adecuados.

 

Saludos

[giulichajari]

Entiendo, pero si los parametros son incorrectos? en que parte puedo tratar de conectarme o continuar en la aplciacion?

[egostar]

Entiendo, pero si los parametros son incorrectos? en que parte puedo tratar de conectarme o continuar en la aplciacion?

 

 

Bueno, si los parámetros fuesen incorrectos, se nos presenta una disyuntiva, pensar que es un intento de intromisión sin permiso o tener los parámetros correctos dentro del código y asignarlos en caso de error.

 

Yo soy un poco paranoico, por lo que no dejaría pasar a nadie si no se tienen los datos de conexión y mostrar un mensaje para que se asignen los parámetros correctos.

 

Pero como no soy yo y solo tu puedes determinar la lógica que deberá seguir tu aplicación.

 

Saludos

[giulichajari]

los archivos vienen de un .INI. Pero el caso es que si son incorrectos la aplicacion no abre.

Ya probe colocar en el oncreate del main un SqlConnection.Open, y luego el beforeconnect como decia Marc,:

[egostar]

los archivos vienen de un .INI. Pero el caso es que si son incorrectos la aplicacion no abre.

Ya probe colocar en el oncreate del main un SqlConnection.Open, y luego el beforeconnect como decia Marc,:

 

 

No abre porque está generando una excepción antes de iniciar la unidad principal, por eso en un mensaje anterior te recomendé hacer uso de un bloque try-except para que en caso de error no se aborte la aplicación sino que tu decidas que hacer en caso de un error como ese.

 

Saludos

[Marc]

Hola.

 

Personalmente no encontré solución a este problema (aunque tengo que admitir que hace muchos años que no he vuelto a mirarlo).

 

Así que simplemente después de crear el DataModule, miro si la conexión está abierta, y en ese caso muestro un mensaje de Error de que la aplicación es una versión de desarrollo.

 

De esta forma me aseguro de que la conexión esté cerrada en la versión que llega a los clientes, de forma que se abre por código en un Cn.Open, donde se pueden poner los parámetros correctos de la conexión en su BeforeConnect.

 

Creo que la única solución definitiva para este problema sería interceptar la carga del archivo .DFM, de forma que cuando lea la propiedad .Connected la pongamos manualmente a falso aunque en el archivo .DFM esté a cierto (en realidad esto no es suficiente, los Datasets dependientes de esa conexión también deben forzarse a su propiedad Active a False, puesto que en caso contrario abrirían la conexión, aunque ya esté definida con Connected a False).

 

Pero nunca lo he llevado a la práctica y he programado esa intercepción.

[Marc]

No abre porque está generando una excepción antes de iniciar la unidad principal, por eso en un mensaje anterior te recomendé hacer uso de un bloque try-except para que en caso de error no se aborte la aplicación sino que tu decidas que hacer en caso de un error como ese.

 

Saludos

 

El problema es que si la conexión está guardada con la propiedad Connected a True, entonces se abrirá cuando el módulo carga las propiedades del DFM. De forma que se ejecuta sin que pueda ser encpasulado en un bloque try ... except, o sin disparar eventos como el OnBeforeConnect.

 

NOTA: Ni siquiera hace falta que la propiedad Connected esté a True. Solo con que alguno de sus Datasets relacionados estén con la propiedad Active a True entonces la carga del DFM ya abrirá esa conexión sin forma de que pueda ser controlado por código.

[giulichajari]

Volvi a colocar todo el codigo en el datamodule... y desactive todos los tclientdataset y el tsqlconnection, tal como lo tenia antes, pero con todo desactivado:

 

dentro del try si se abre la conexion:

delphi

for i := 0 to ComponentCount -1 do
                    begin
              if Components[i] is TClientDataSet then
              begin
                TClientDataSet(Components[i]).Active :=True;
                TClientDataSet(Components[i]).Open;
              end;
                  end; 

de lo contrario hago loadfromfile de los dataSETS..

 

Gracias!1

[Agustin Ortu]

Active := True y Open son sinonimos

 

Interceptar el evento OnCreate del DataModule y seteando la conexion a False no soluciona el problema?