Documentación sobre BPL'S

[ContraVeneno]

Empezado por subzero

Cuando hablas de Requires "Requerimientos", te refieres a algún tipo de configuración, a una instancia.... a algún modificador.

Si revisas bien el "Project Manager" de tu BPL, verás que de tu BPL se desprenden dos niveles (o dos ramas): "Contains" (Contiene) y "Requires" (Requiere). Le das click con el botón derecho del ratón sobre el "Requires" y le das en "Add reference..." (Agregar referencia) y agregas el DCP de tú BPL que contiene el módulo de datos principal.

¿ya viste el ejemplo tres?

[subzero]

Gracias, efectivamente si lo he leido y es por ello que me surgen estas preguntas, ya que en el ejemplo 3 no me es muy claro de que manera se puede conectar la aplicación a la base de datos en tiempo de ejecución... voy analizar más detenidamente para ver si logor entender un poco más.... De igual forma estoy muy agradecido de la paciencia y la forma como me has ayudado a entender este tipo de estructuras, mil gracias

[subzero]

Buenos días....

Nuevamente, con algunas dudas sobre este tema, he leido y en estos momentos tengo mi paquete de conexión, un paquete para manejo de controles (funciones, procedimientos), y la forma principal.

He tomado a mi forma principal en Project->Options->Packages, activo la opción "Build runtime packages", agrego mis dos paquetes DM (modulo de datos) y Logica (funciones y procedimientos), y en la clausula Uses agrego las unidades que dentro de estos paquetes se encuentran:

Uses UDM, ULogica;

Compilo y no me muestra error, la cuestión es cuando ejecuto el programa y me aparece un error al momento de realizar la conexión... Anteriomente al modulo de datos en Project->Options->Forms lo ubicaba en la parte superior para que fuera auto-creada primero que cualquier otra forma... creo que es por esto que me muestra error.

Gracias...

[ContraVeneno]

Tienes que crear el módulo de datos. Esto es lo que viene en el ejemplo 3:

Vas a tener un proyecto ejecutable, un programa.bpl y un módulo de datos DM.dcp (DM principal)

En tu DM.dcp (DM Principal) estableces dos procedimientos, uno para crearlo y otro para liberarlo:

Código Delphi [-]
procedure CreateDataModuleMain;
procedure FreeDataModuleMain;

implementation

{$R *.DFM}

var
  DataModuleMainCount: Integer;

procedure CreateDataModuleMain;
begin
  if not Assigned(DataModuleMain) then
    DataModuleMain := TDataModuleMain.Create(Application);
  Inc(DataModuleMainCount);
end;

procedure FreeDataModuleMain;
begin
  Dec(DataModuleMainCount);
  if DataModuleMainCount <= 0 then
  begin
    FreeAndNil(DataModuleMain);
    DataModuleMainCount := 0;
  end;
end;

Esto es tu DM principal.

Ahora, toma en cuenta que tanto tu proyecto ejecutable como todos tus BPL, deben contener un módulo de datos particular, este DM particular se va a comunicar con el DM principal. También tienes que crearlo de la misma forma y añades la creación del DM Principal:

Código Delphi [-]
var
  DataModuleOrder: TDataModuleOrder;

procedure CreateDataModuleOrder;
procedure FreeDataModuleOrder;

implementation

uses
  custdata; // <--- este es el DM principal o el DCP agregado en el "Requires" de tu BPL

{$R *.DFM}

var
  DataModuleOrderCount: Integer;

procedure CreateDataModuleOrder;
begin
  if not Assigned(DataModuleOrder) then
    DataModuleOrder := TDataModuleOrder.Create(Application);
  Inc(DataModuleOrderCount);
end;

procedure FreeDataModuleOrder;
begin
  Dec(DataModuleOrderCount);
  if DataModuleOrderCount <= 0 then
  begin
    FreeAndNil(DataModuleOrder);
    DataModuleOrderCount := 0;
  end;
end;

procedure TDataModuleOrder.DataModuleCreate(Sender: TObject);
begin
  CreateDataModuleMain; //<- al crear el DM particular del BPL, se crea el DM principal
  QueryCustomer.Open;
end;

procedure TDataModuleOrder.DataModuleDestroy(Sender: TObject);
begin
  QueryCustomer.Close;
  FreeDataModuleMain; //<- al destruir el DM particular, se destruye el DM principal
end;

initialization
  DataModuleOrderCount := 0;
end.

Esto es el DM particular que utiliza el programa BPL

Cuando creas tu BPL, debes de crear el DM particular de ese BPL

Código Delphi [-]
procedure TFormOrder.FormCreate(Sender: TObject);
begin
  CreateDataModuleOrder;
end;

procedure TFormOrder.FormDestroy(Sender: TObject);
begin
  FreeDataModuleOrder;
end;

Recuerda que al crear el DM particular de tu BPL, se manda llamar el DM Principal.

De la misma forma, deberás crear un DM para tu proyecto ejecutable que a su vez cree el DM principal. Igual, de la misma forma.

Y la idea es: Se crea tu proyecto.exe, al crearse, este manda crear su DM particular y al crear el DM particular, manda crear el DM principal. Cuando desde tu proyecto.exe, cargas el programa.bpl, el programa.bpl manda crear su DM particular y este a su vez manda crear el DM principal, pero como el DM principal ya fue creado desde el proyecto.exe el DM particular del tu programa.bpl tomará esa conexión previamente creada.

Espero haberme explicado correctamente, de cualquier manera, todo eso viene en el ejemplo 3.

[subzero]

ContraVeneno, muchas gracias muy ilustrado tu ejemplo voy a analizarlo bien y a implementarlo a ver como me va, sin embargo en el ejemplo 3 que tu me dices solo veo una grafica y tres parrafos no se si a eso te refieres o algún ejemplo empaquetado para descargar.... Gracias

[ContraVeneno]

Al final del artículo viene el enlace para descargar los ejemplos utilizados en el mismo. El archivo .ZIP que se descarga tiene tres ejemplos. Me refiero al tercer ejemplo de ese archivo:

Empezado por Artículo en CodeGear

Download the example source code of this paper here.

[subzero]

Mi amigo, muchas gracias por tu paciencia....