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
Application.CreateForm(TfrmCnx, frmCnx);
if not frmCnx.Conectar then
begin
FreeAndNil(frmCnx);
Exit;
end;
Application.Initialize;
Application.createform(TfrmDatos, frmDatos);
Application.CreateForm(TDM_Formatos, DM_Formatos);
Application.CreateForm(TDM_Varios, DM_Varios);
y este es el codigo de la conexion en un modulo de datos
Código Delphi
[-]
function TfrmCnx.Conectar : boolean;
begin
Result := True;
if MDODatabase1.Connected then
MDODatabase1.Connected := False;
MDODatabase1.DatabaseName :=
IncludeTrailingPathDelimiter(ExtractFilePath(Paramstr(0))) + NombreBD;
try
MDODatabase1.Connected := True;
except
on E: Exception do
begin
ShowMessage(Format(errConectarBD, [E.Message ]));
Result := False;
end;
end;
end;
Agradesco su ayuda.