Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 31-10-2007
andresenlared andresenlared is offline
Miembro
 
Registrado: oct 2003
Posts: 153
Poder: 23
andresenlared Va por buen camino
Question Problemas con paquetes

Hola a todos.
Tengo un problema al ejecutar el exe y cargar dinamicamente el bpl. Les cuento que tengo hasta el momento.

1. adicione al paquete los formularios que necesito esten juntos por el proceso que se desarrolla.
2. Tenia un problema con los Txtradev, en donde me informava que: Unit TXtraDev was compiled with a different version of ppFilDev.TppFileDevice. para este error, cargue el paquete Txtradev, y modifique lo siguiente: {$IMPLICITBUILD OFF}. compile el paquete y el error desaparece.
3. En el proyecto principal para cargar el paquete tengo lo siguiente:
Código Delphi [-]
procedure TfrmPrincipal.A_Reporte1Execute(Sender: TObject);
var
  PackageModule: HModule;
  repnov: Tform;
  formClass: TformClass;
begin
 MessageDlg(' Asegurese que no se estén ingresando novedades,durante la ejecución '+#13+#10+'de este proceso', mtWarning, [mbOK], 0);
 //************
 PackageModule := LoadPackage('D:\desarrollo\seguro\Version 2007\Seguro\bpl2\package1.bpl');
  if PackageModule <> 0 then
  begin
    formclass:=Tformclass(getclass('TFrmRepNov'));
    if Assigned(formclass) then
      begin
        repnov:=formClass.Create(Application);
            try
             SetPropValue(repnov,'Ttransaccion',DmSeguro.Seguro_T.Name);
             SetPropValue(repnov,'Tbase',DmSeguro.Seguro.Name);
             SetPropValue(repnov,'Fecha_T',fecha_trabajo);
             SetPropValue(repnov,'inicializar',True);
             repnov.ShowModal;
            finally
              repnov.Free;
         end;
      end
    else
      ShowMessage('Formulario no Existe');
     UnloadPackage(packagemodule);
     end
   else
      ShowMessage('Paquete no encontrato...');
 //************
4. Registro el formulario(TFrmRepNov) en el paquete
Código Delphi [-]
initialization
  registerclass(TFrmRepNov);
Finalization
  unregisterclass(TFrmRepNov);
Lo anterior lo pongo al final del formulario.


5. para el proyecto principal en las propiedades, habilito Rumtime packages.

6. los formularios que estan en el paquete no estan en el proyecto principal.

7. cuando compilo el proyecto, me aparece el siguiente error, y se produce en la linea:

PackageModule := LoadPackage('D:\desarrollo\seguro\Version 2007\Seguro\bpl2\package1.bpl');

El error dice: A class tppToolbar already exists.

cualquien idea que tengan para revisar, muchas gracias.
Uso firebird y delphi 7
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Paquetes dinamicos xerkan Varios 14 22-10-2007 16:05:58
Paquetes debian Io Linux 2 05-02-2007 17:37:10
Configurar paquetes roman OOP 5 18-06-2004 22:31:15
paquetes ¿? acertij022 Internet 0 20-08-2003 16:06:31
Paquetes en runtime rezahe Varios 4 25-05-2003 06:27:26


La franja horaria es GMT +2. Ahora son las 15:51:49.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi