Ejecutable envía problema en windows xp

[novato_erick]

Envia este error:


Tipo de suceso: Error
Origen del suceso: Application Error
Categoría del suceso: Ninguno
Id. suceso: 1000
Fecha: 27/07/2011
Hora: 01:15:07 p.m.
Usuario: No disponible
Equipo: HOGAR
Descripción:
Aplicación con errores: inventarios.exe, versión: 0.0.0.690, módulo con error: kernel32.dll, versión 5.1.2600.3119, dirección de error 0x00012a5b.

Para obtener más información, vea el Centro de ayuda y soporte técnico en http://go.microsoft.com/fwlink/events.asp.
Datos:
0000: 41 70 70 6c 69 63 61 74 Applicat
0008: 69 6f 6e 20 46 61 69 6c ion Fail
0010: 75 72 65 20 20 69 6e 76 ure inv
0018: 65 6e 74 61 72 69 6f 73 entarios
0020: 2e 65 78 65 20 30 2e 30 .exe 0.0
0028: 2e 30 2e 36 39 30 20 69 .0.690 i
0030: 6e 20 6b 65 72 6e 65 6c n kernel
0038: 33 32 2e 64 6c 6c 20 35 32.dll 5
0040: 2e 31 2e 32 36 30 30 2e .1.2600.
0048: 33 31 31 39 20 61 74 20 3119 at
0050: 6f 66 66 73 65 74 20 30 offset 0
0058: 30 30 31 32 61 35 62 0d 0012a5b.
0060: 0a .

[Casimiro Noteví]

Empezado por novato_erick

driver: firebird
DataBase: 192.168.17.2:C:\BDASCII.FDB
password: mipassword
username: sysdba



Usuario: No disponible
Equipo: HOGAR

¿Cambiaste el password en el firebird?

[[Caral]]

Hola
Bueno, yo sigo con lo del ini, si bien quieres hacerlo:
Me imagino que tendras un datamodule, si no es asi, podras colocar este codigo en el evento Oncreate del form principal.
Para comenzar tienes que colocar en el uses IniFiles.

Ahora en el evento OnCreate del form o del datamodule pones esto:

Código Delphi [-]
Var BaseDeDatos, User, Pass : String;
    IniFile: TIniFile;
begin
   fbConnection.Connected:= False;
    // Obtiene la ruta y el nombre de la base de datos
    IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'MiIni.ini');
   BasedeDatos := IniFile.ReadString('BD','Path','');
   User:= IniFile.ReadString('US','Name','');
   Pass:= IniFile.ReadString('PS','Clave','');
   If BasedeDatos = '' then ShowMessage('Error al cargar Base de Datos');
   fbConnection.DatabaseName:= BasedeDatos;
   fbConnection.Driver:= 'Firebird'; // no estoy seguro que sea asi, si no, quitale las comillas.
   fbConnection.pasword:= User;
   fbConnection.username:= Pass;

   fbConnection.Connected:= True;
  
end;

Ahora abre el archivo ini y cambias esto asi:

[BD]
Path="192.168.17.2:c:\MIDB.FDB"
[US]
Name="SYSDBA"
[PS]
Clave="micontraseña"

Lo Guardas, salvas y lo colocas en el mismo directorio en donde este el EXE (osea el programa).


A ver como va, te repito, desconozco tus componentes, esto me parece que deberia de funcionar, pero no estoy seguro, de todos modos, no se pierde nada.
Saludos

[novato_erick]

me sucede lo siguiente:

Código Delphi [-]
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'MiIni.ini'); // me manda error aqui (ExtractFilePath(Application.ExeName)
   BasedeDatos := IniFile.ReadString('BD','Path','');
   User:= IniFile.ReadString('US','Name','');
   Pass:= IniFile.ReadString('PS','Clave','');
   If BasedeDatos = '' then ShowMessage('Error al cargar Base de Datos');
   dmconexion.sqldb.DatabaseName:= BasedeDatos;// dice valor no declarado a pesar que ya lo declare en uses el modulo de conexion y me estanco
   dmconexion.sqldb.Driver:= 'Firebird'; // es asi.
   dmconexion.sqldb.pasword:= User;//a partir de la segunda llamada al dmconexion me dice que no esta declarado y ya esta...
   dmconexion.sqldb.username:= Pass;//

   dmconexion.sqldb.Connected:= True;

[[Caral]]

Hola
Y que error ?.
Colocaste el archivo ini en el mismo directorio que el exe?.
Colocaste en el uses el IniFiles ?
El archivo ini se sigue llamando MiIni o es otro nombre ?
Saludos

[novato_erick]

hola

Disculpa por no haber respondido Caral tube una reunion de trabajo, el cual no fue nada alentador la noticia que les di a mis jefes. en pocas palabras me toca trasnocharme a ver que podre hacer.

bueno respondiendo a tus preguntas caral, no me manda error, sin embargo y Modulo de datos que maneja la conexion DBX se llama dmConexion este lo llamo desde mi archivo llamado ini.pas usando en la clausula uses el en donde voy a poner el procedimiento de creacion del archivo ini.

en embargo en poner la linea despues de:

Código Delphi [-]
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'MiIni.ini'); // Undeclaraded Identifier ExtractFilePath, Application, ExeName
   BasedeDatos := IniFile.ReadString('BD','Path','');
   User:= IniFile.ReadString('US','Name','');
   Pass:= IniFile.ReadString('PS','Clave','');
   If BasedeDatos = '' then ShowMessage('Error al cargar Base de Datos');
   dmconexion.sqldb.DatabaseName:= BasedeDatos;// dice valor no declarado a pesar que ya lo declare en uses el modulo de conexion y me estanco
   dmconexion.sqldb.Driver:= 'Firebird'; // TsqlConnection does not contain a member named 'Driver'
   dmconexion.sqldb.pasword:= User;//TsqlConnection does not contain a member named 'Pasword'
   dmconexion.sqldb.username:= Pass;//TsqlConnection does not contain a member named 'UserName'

   dmconexion.sqldb.Connected:= True;

El archivo ini sigue teniendo el mismo nombre

Estas son las respuestas con los errores que me envía delphi.

[[maeyanes]]

Hola...

Para usar el objeto Application en una unidad, debes agregar la unidad Forms a la lista de unidades (uses) de esa unidad.


Saludos...