Como cerrar tablas antes del formcreate del datamodule?

[Matorral]

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.

[Ñuño Martínez]

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...);").

[Matorral]

Empezado por Ñuño Martínez

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...);").

Gracias Ñuño.

He intentado hacer lo que has dicho:

Código Delphi [-]
    constructor Create(AOwner : TComponent); overload; override;
...
constructor TdmBase.Create(AOwner: TComponent);
begin
  CierraTablas;
  inherited create(AOwner);
end;
...
Procedure TdmBase.CierraTablas;
var I: Integer;
begin

  // Antes de nada creamos el componente TMyConnection
  for I:=0 to ComponentCount-1 do begin

    if (Uppercase(Components[i].ClassType.ClassName)='TMYCONNECTION') then begin
      TMyConnection(Components[i]).Connected:=False;
      TMyConnection(Components[i]).Server:='';
    end;
  end;

  // Solo abrimos las Tablas y Querys con TAG=0
  for I:=0 to ComponentCount-1 do begin
    if (Uppercase(Components[i].ClassType.ClassName)='TMYTABLE') or
       (UpperCase(Components[i].ClassType.ClassName)='TMYQUERY') then begin
      TMyTable(Components[i]).Close;
    end;
  end;
end;

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:

Código Delphi [-]
constructor TdmBase.Create(AOwner: TComponent);
begin
  GlobalNameSpace.BeginWrite;
  try
    CreateNew(AOwner);
    if (ClassType <> TDataModule) and not (csDesigning in ComponentState) then
    begin

// en la función InitInheritedComponent es donde pienso que crea los componentes
// pues es donde me salta el error de que no puede conectar a localhost;

      if not InitInheritedComponent(Self, TDataModule) then


        raise EResNotFound.CreateFmt(SResNotFound, [ClassName]);
      if OldCreateOrder then DoCreate;
    end;
  finally
    GlobalNameSpace.EndWrite;
  end;
end;

y tampoco he conseguido cerrar la conexion.

En fin, seguiré intentando cosas y os comentaré algo.

Gracias.

[Matorral]

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.

[Matorral]

P.D.

La propiedad KeepDesignConnected ha de estar a False.

[Ñuño Martínez]

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.

[Matorral]

Gracias por todo Ñuño.

tomo nota de lo del constructor.