FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Como saber si esta instalado el BDE en un ordenador
Hola,
Como puede una aplicación realizada en Delphi4 o 6, preguntar si en el ordenador en el que está instalada está el motor de acceso a base de datos, para que en caso de que no este instalado muestre un mensaje de aviso y no intente abrir las bases de datos, que produciria un error. Saludos Jose Manuel |
#2
|
|||
|
|||
Gracias FRANKER, he visitado TRUCOMANIA y he visto que la forma de conocer si un usuario tiene instalado o no el BDE es
IsBDEExist := (dbiInit(nil) = 0), pero como? He incluido esta instrucción en el Datamodulo de mi aplicación, procedure TfDataModulo.fDataModuloCreate(Sender: TObject); begin IsBDEExist := (dbiInit(nil) = 0) ..... ..... End; y me da el siguiente error al compilarlo, tal vez me falte algún USES, no sé: [Error] Database.pas(531): Undeclared identifier: 'IsBDEExist' Los USES que tengo son: uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, DBTables, Db, Bde; |
#3
|
|||
|
|||
Hechale un Vistazo al Truco 475 de Trucomania:
http://www.q3.nu/trucomania/truco.cgi?475&esp Saludos y Suerte!!
__________________
.:.::FRANKER::.:. |
#4
|
||||
|
||||
Cita:
Entonces, la expresión (dbiInit(nil) = 0), que es una expresión booleana, la puedes asignar a una variable de tu elección, declarada por tí. // Saludos |
#5
|
|||
|
|||
Ampliando un poco la respuesta de roman (que tiene toda la razon en lo que dice), puedes hacer una cosa asi
Código:
procedure TfDataModulo.fDataModuloCreate(Sender: TObject); function IsBDEExist : boolean; begin Result := (dbiInit(nil) = 0); end; begin if IsBDEExist then // Existe else // No existe end; |
#6
|
||||
|
||||
Y ya si somos muy exigentes recomendaría pasar la función que indica Cadetill al dpr para que la verificación se ejecute antes que cualquier otra cosa pues es de suponerse que no tiene caso que el sistema inicie y se creen formularos y demás si no está instalado el BDE.
// Saludos pd: Comentario al autor del truco en trucomanía. El nombre correcto sería "DoesBDEExist" |
#7
|
|||
|
|||
Gracias, ya me funciona correctamente.
Un saludo a todos. |
|
|
|