FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Como cerrar tablas antes del formcreate del datamodule?
Hola a tod@s.
Pido disculpas de antemano, pues no se si he elegido el foro adecuado. Trabajo con Delphi 7 sobre mySQL con los componentes MyDAC. Tengo un TDataModule con un componente TmyConnection, del que heredan todos los DataModules de mis aplicaciones. Tengo un problema en tiempo de ejecucion, y es que antes de hacer el onCreate del TDataModule (padre), Delphi crea los componentes (TmyConnection, TmyTable, TmyQuery, etc...) e intenta conectarse al server que haya asignado en tiempo de diseño (localhost o el que sea). La solucion al problema en tiempo de diseño sería cerrar las conexiones "a mano" y dejar sin valor la propiedad server de los componentes TmyConnection. Aún así, a veces se me queda alguno sin cerrar y ya la liamos (error : no se puede establecer la conexion con el servidor... localhost o el que sea). Lo que quería saber es si hay alguna manera o componente que permita hacer un "beforeCreate" del modulo de datos de donde heredan todos los demás, y así cerrar las conexiones, tablas, etc. en tiempo de ejecución antes de que Delphi cree los componentes del TDataModule. Gracias.
__________________
Inieeeesssstademiviiiiidaaaaa. |
#2
|
||||
|
||||
Te diría sobrecargar el constructor de TDataModule, pero no sé si funcionaría. Eso sí, si lo haces no olvides llamar al constructor padre ("INHERITED Create (ect...);").
|
#3
|
||||
|
||||
Cita:
He intentado hacer lo que has dicho:
El problema es que al hacer CierraTablas antes del inherited ComponentCount tiene valor 0 (no se han creado aún los componentes) También lo he intentado haciendo el overload completo de la funcion de la unit classes:
y tampoco he conseguido cerrar la conexion. En fin, seguiré intentando cosas y os comentaré algo. Gracias.
__________________
Inieeeesssstademiviiiiidaaaaa. |
#4
|
||||
|
||||
Tema solucionado!!!!!!
Hola de nuevo.
Creo que tengo mucha suerte !!!!!!. Como os habia dicho, estoy utilizando los componentes MyDAC. Pues bien, el componente TmyConnection tiene una propiedad que es myConnection.Options.KeepDesignConnected que se utiliza precisamente eso. Es decir, podemos tener la conexión establecida en localhost en tiempo de diseño, y, en tiempo de ejecucion le asignamos el server que queramos, sin que realice ningun intento de conexión antes del oncreate del TDataModule. Miré los componentes TDataBase y TADOConnection y tienen la propiedad KeepConnection, que, si está a False, cierra la conexion si no hay datasets activos, por lo que imagino que tendrá el mismo efecto que el KeepDesignConnected del TmyConnection, pues antes de crear el TDataModule en tiempo de ejecución no hay ningun dataset activo. (digo imagino porque no lo he probado). Llevo la hostia de tiempo intentando solucionar esto, y siempre había desistido. Ñuño, gracias por todo y perdona por la perdida de tiempo.
__________________
Inieeeesssstademiviiiiidaaaaa. |
#5
|
||||
|
||||
P.D.
La propiedad KeepDesignConnected ha de estar a False.
__________________
Inieeeesssstademiviiiiidaaaaa. |
#6
|
||||
|
||||
Estupendo.
De todas formas, tal como dices, llamar a un método antes del constructor no suele ser buena idea. El constructor por defecto de TObject se encarga de hacer algunas reservas de memoria por lo que la primera línea del constructor debería ser siempre "INHERITED Create". Quizá pueda haber algún caso en el que no, pero ahora no se me ocurre ninguno. |
#7
|
||||
|
||||
Gracias por todo Ñuño.
tomo nota de lo del constructor.
__________________
Inieeeesssstademiviiiiidaaaaa. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Confirmar antes de cerrar aplicación | yomismo24 | Varios | 4 | 29-08-2008 12:48:58 |
FormCreate y dos PC | JoseFco | Varios | 3 | 14-04-2008 03:36:47 |
Cerrar aplicación antes de desconectar la memoria flash | MON___ | API de Windows | 3 | 13-01-2008 20:06:07 |
antes de cerrar genere un mesaje | el_barto | Firebird e Interbase | 2 | 01-11-2005 20:29:22 |
Error en FormCreate | darkerbyte | OOP | 5 | 29-03-2005 17:42:43 |
|