Problema GRAVE con LoadPackage y MDIChild

[walito]

Buenas!!

Tengo un problema GRAVE con levantar de un archivo bpl un formulario MDICHILD.

El codigo que uso es el siguiente:

Código Delphi [-]
function TModules.executeModule(moduleName: string): Integer;
var
  AClass: TPersistentClass;
begin
      {* verifico que el modulo existe, junto con el archivo *}
    if
      FileExists(ExtractFilePath(ParamStr(0))+moduleName)
      and
      (moduleName <> '')
    then
    begin
        {* Cargo el modulo a memoria *}
        handle := LoadPackage(ExtractFilePath(ParamStr(0))+moduleName);

        {* si es un modulo válido *}
        if handle <> 0 then
        begin
            try
                AClass := GetClass(CLASSBPL);

                try
                    if AClass <> nil then
                    begin
                        LockWindowUpdate(Handle);
                        EnableAnimation(false);

                        AForm := nil;
                        AForm := TComponentClass(AClass).Create(Application) as TForm;
                        

                        EnableAnimation(true);
                        LockWindowUpdate(0);

                        AForm.Show;

                        Result := 0;
                    end;
                except
                    on E:Exception do
                       Result := -1;
                end;
            except
                on E:Exception do
                   Result := -2;
            end;
        end
        else
            Result := -3;
    end
    else
        Result := -4;
end;

Este es un metodo que esta en una clase que la uso para levantar y ejecutar los BPL.
Funciona todo bien, el problema es que no puedo liberar la el package cuando cierro el FORM, ya que no me deja abrir o cargar otro package hasta que no cierre y libere este.

Que forma puede haber para hacer esto bien?

Intente levantando un Thread que verifica si el form esta showing y ahi liberar pero es un bardo!

Alguien le paso esto? en google ya no se como buscar.

Porque son 2 cosas las que hay que liberar, es el handle y el AForm, es mas es el handle ya que el MDIChild si no me equivoco ya se libera con el caFree.

Gracias

[luisgutierrezb]

porque esta linea:
LockWindowUpdate(Handle);
a un package??? porque no a la forma que creas?, no se si por ahi vaya el error

[walito]

No hace solo es para q no se vea la animacion del formulario, pero no hace nada mas que eso, si lo sacas es lo mismo.

[walito]

El problema es que es NECESARIO liberar el HANDLE despues de cerrar el form y ahi es donde tengo el gran problema, ya que al poner un Unloadpackage en el OnDestroy del form da error ya que el form todavia existe ya que estoy liberandolo cuando todabia existe el form.

Que evento o de que forma puedo liberar el HANDLE, sabiendo que el form ya esta free?

[Neftali [Germán.Estévez]]

Empezado por walito

El problema es que es NECESARIO liberar el HANDLE despues de cerrar el form y ahi es donde tengo el gran problema, ya que al poner un Unloadpackage en el OnDestroy del form da error ya que el form todavia existe ya que estoy liberandolo cuando todabia existe el form.

Que evento o de que forma puedo liberar el HANDLE, sabiendo que el form ya esta free?

Creo que el problema está en intentar liberar el Package desde un formulario que está contenido en ese package.
Esa operación deberías hacerla desde fuera; Seguraente desde el mismo lugar desde donde llamas a cargar el package.

Cuando crees el package intenta capturar el evento OnDestroy/OnClose del Form hacia un procedimiento de la aplicación. A ese procedimiento te llegará el control cuando Liberes/cierres el formulario del package.

Puedes intentarlo a ver qué tal...

[walito]

Asi es , ese es el problema, intentare poniendo un Observer para q le avisen que el form se cerrara, cualquier cosa les comento.

Gracias

[walito]

Empezado por Neftali

Creo que el problema está en intentar liberar el Package desde un formulario que está contenido en ese package.
Esa operación deberías hacerla desde fuera; Seguraente desde el mismo lugar desde donde llamas a cargar el package.

Cuando crees el package intenta capturar el evento OnDestroy/OnClose del Form hacia un procedimiento de la aplicación. A ese procedimiento te llegará el control cuando Liberes/cierres el formulario del package.

Puedes intentarlo a ver qué tal...

Puse un observer y nada, explota por todos lados y da error en memoria!
Es una mie.. las librerias estas

[walito]

Bueeee por fin lo encontre!!!

Buscando en la nebulosa de google encontre que una persona tenia el mismo problema, la solucion fue usar la API de mensajes de windows

Yeah!! en el bpl en el OnDestroy ponemos PostMessage y en el formulario principal esperamos dicho evento y ahi mandamos a hacer Unloadpackage !!

Bueno si para alguien le interesa ahi esta la solucion.

Gracias

[Neftali [Germán.Estévez]]

Empezado por walito

Yeah!! en el bpl en el OnDestroy ponemos PostMessage y en el formulario principal esperamos dicho evento y ahi mandamos a hacer Unloadpackage !!

Estaría bien que pusieras algo de código de la solución o el link de la página.
A mi personalmente me interesa, y tal vez otros usuarios en consultas posteriores también les pueda ir bien.

Gracias.

[walito]

Ok, es mi idea no te hagas drama que lo voy a publicar.

Dejame armar todo y asi ya dejo todo de una.

Gracias