Ver Mensaje Individual
  #1  
Antiguo 17-10-2007
xerkan xerkan is offline
Miembro
 
Registrado: jun 2003
Posts: 89
Reputación: 21
xerkan Va por buen camino
Paquetes dinamicos

Estoy haciendo pruebas con un programa que trabaja con paquetes dinamicos de delphi (bpl) lo crea todo perfectamente pero quiero que desde el paquete se puedan acceder a los datos publicos del formulario que lo creo pero si lo linko normalmente me da el sisguente warning:

[DCC Warning] Package1.dpk(36): W1033 Unit 'Unit1' implicitly imported into package 'Package1'

y cuando ejecuto la aplicaccion me da un access violation al intentar aceder a los datos del formulario padre

al paquete lo estoy llamando con el siguiente codigo:

Código:
procedure TForm1.Button1Click(Sender: TObject);
var
	PackageModule: HModule;
	AClass: TPersistentClass;
begin
	Etiqueta:='Hola';
	PackageModule:=LoadPackage('Package1.bpl');
	if PackageModule<>0 then
	begin
		AClass:=GetClass('TForm2');
		if AClass<>nil then
		begin
			with TcomponentClass(Aclass).Create(Application) as TForm do
			begin
				ShowModal;
				Free;
			end;
			UnLoadPackage(PackageModule);
		end;
	end;
end;
mi idea es cojer el valor de la variable etiqueta desde el TForm2

el programa con el que estoy haciendo las pruebas es este:

http://www.asinval.com/paquetes.zip

Última edición por xerkan fecha: 17-10-2007 a las 11:53:32.
Responder Con Cita