Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Error de conexion al minimizar y restaurar en Win98SE (https://www.clubdelphi.com/foros/showthread.php?t=44380)

FGarcia 05-06-2007 08:21:40

Error de conexion al minimizar y restaurar en Win98SE
 
Hola a todos!

Tengo una aplicacion hecha en Delphi7, MDO y Firebird 2.0 esta la ejecuto en XP y en win 98 y funciona ok, sin embargo me di cuenta recien que si la minimizo en XP al restaurarla todo continua funcionando correctamente, sin embargo al hacer la misma operacion en Win98 SE al tratar de restaurarla me dice que no puede conectar con la bd pues otra aplicacion la esta utilizando. Alguien sabra el ¿porque de esto? ¿cual es la diferencia en minimizar en XP y en Win98?

Este es parte del codigo del source de la aplicacion para conectar con la BD

Código Delphi [-]
begin
  //Creamos el modulo de datos de conexiones a la BD
  Application.CreateForm(TfrmCnx, frmCnx);
  //Intentamos conectar con la BD en caso de error no se inicia la aplicacion
  if not frmCnx.Conectar then
    begin
      FreeAndNil(frmCnx);
      Exit;
    end;
  //La conexion fue exitosa! Inicializamos la aplicacion y creamos los demas
  //modulos de datos
  Application.Initialize;
  Application.createform(TfrmDatos, frmDatos);
  Application.CreateForm(TDM_Formatos, DM_Formatos);
  Application.CreateForm(TDM_Varios, DM_Varios);
 
//algunas cosas mas

y este es el codigo de la conexion en un modulo de datos

Código Delphi [-]
function TfrmCnx.Conectar : boolean;
begin
  Result := True;
  //Si estamos conectados nos desconectamos
  if MDODatabase1.Connected then
    MDODatabase1.Connected := False;
  //Asignamos nombre de la base de datos
  MDODatabase1.DatabaseName :=
        IncludeTrailingPathDelimiter(ExtractFilePath(Paramstr(0))) + NombreBD;
  //Intentamos conectar
  try
    MDODatabase1.Connected := True;
  except
    on E: Exception do
      begin
        ShowMessage(Format(errConectarBD, [E.Message ]));
        Result := False;
      end;
    end;
end;

Agradesco su ayuda.


La franja horaria es GMT +2. Ahora son las 21:10:17.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi