2 replies to this topic

[Caminante21]

Hola aquí me tienen con una duda. Voy a tratar de ser lo mas claro posible.
Tengo un programa en delphi 7 con una base de datos firebird 2.5 conectado con dbexpress. Ya tenia avanzado un poco y todo funcionaba de maravillas. Hasta que quise hacer la conexión desde un archivo ini.

delphi

Sqlconnection1.params.values('Database'):=IpSever + ':' + PathDb;

Ipserver contiene la IP de mi computadora (servidor) y Path Db es la ruta de la base de datos.
La conexión se llega a realizar pero al abrir una de las ventanas me envía este error:

Error mapping failed

Buscando en internet decían que era un error de versiones de la dll de dbx pero en mi caso lo puedo descartar ya que es la única instalación de Delphi que tiene y ha tenido mi pc. Pero lo mas extraño (al menos para mi) es que si dejo la conexión sin especificar la ip funciona bien.
Por ultimo en mi portátil en donde tengo Delphi XE2 hago una conexión similar y funciona correctamente asi que solo me queda pensar que el problema es el controlador que uso en Delphi 7.
Al final creo que voy a tener que regresar a las ibx o mdo que nunca me habían traido este problema.
Si alguien ha pasado por eso o sabe cual es la causa espero su apoyo.
Gracias por la paciencia.

[Fenareth]

Hola amigo Mohicano

Te dejo mi procedimiento de configuración desde un INI para DBExpress y Firebird 2.5:

delphi

procedure ConfiguraIni(IniFile: String; DBDatos: TSQLConnection);
var
  ArcIni: TIniFile;
  Ruta,sDriver,User,Pass,Host: String;
begin
  {}
  if not FileExists(IniFile) then begin
    raise Exception.Create('No se Encuentra el archivo '+ IniFile);
  end;
 
  ArcIni := TIniFile.Create(IniFile);
  sDriver := ArcIni.ReadString('DATOS','Controlador','');
  if DBDatos.Connected then
    DBDatos.Connected := False;
 
  Ruta := ArcIni.ReadString('DB','Ruta','');
  Host := ArcIni.ReadString('DB','Host','');
  User := ArcIni.ReadString('DB','User','');
  Pass := ArcIni.ReadString('DB','Pass','');
 
  if LowerCase(Host) <> 'localhost' then
     Ruta := Host+':'+Ruta;
 
  DBDatos.Params.Clear;
  DBDatos.Params.Add('DriverUnit=DBXDynalink');
  DBDatos.Params.Add('DriverPackageLoader=TDBXDynalinkDriverLoader,DbxDynalinkDriver100.bpl');
  DBDatos.Params.Add('DriverPackage=DBXCommonDriver110.bpl');
  DBDatos.Params.Add('DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxDynalinkDriver,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b');
  DBDatos.Params.Add('DriverAssembly=Borland.Data.DbxCommonDriver,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=a91a7c5705831a4f');
  DBDatos.Params.Add('Database='+Ruta);
  DBDatos.Params.Add('RoleName=RoleName');
  DBDatos.Params.Add('User_Name='+User);
  DBDatos.Params.Add('Password='+Pass);
  DBDatos.Params.Add('ServerCharSet=');
  DBDatos.Params.Add('SQLDialect=3');
  DBDatos.Params.Add('BlobSize=-1');
  DBDatos.Params.Add('CommitRetain=False');
  DBDatos.Params.Add('WaitOnLocks=True');
  DBDatos.Params.Add('ErrorResourceFile=');
  DBDatos.Params.Add('LocaleCode=0000');
  DBDatos.Params.Add('Interbase TransIsolation=ReadCommited');
  DBDatos.Params.Add('Trim Char=False');
  DBDatos.Params.Add('MetaDataPackageLoader=TDBXInterbaseMetaDataCommandFactory,DbxReadOnlyMetaData100.bpl');
 
  ArcIni.Free;
end;

Cabe mencionar que en el INI tengo que especificar la IP 127.0.0.1 cuando se trata de localhost o de otra manera Firebird no logra la conexión...

Espero te sea de ayuda

Saludox !

[Caminante21]

Gracias por responder aunque como dije el problema es en delphi 7 porque en XE2 funciona bien.
Voy a revisar realizar mas pruebas. Gracias.