Fellipe,
abaixo o codigo do .PAS, que carrega as BPLs.
Desta forma, basta voce mandar o BPL que atualizou, sem ter que recompilar e
mandar o executavel inteiro a seu cliente.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,dbconnection, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
PackageModule: HModule;
AClass: TPersistentClass;
begin
PackageModule := LoadPackage('formulario.bpl');
if PackageModule <> 0 then
begin
AClass := GetClass('TForm1');
if AClass <> nil then
with TComponentClass(AClass).Create(Application)
as TCustomForm do
begin
ShowModal;
Free;
end;
UnloadPackage(PackageModule);
end;
end;
end.
Em 23/10/07, Sergio Eurico <[EMAIL PROTECTED]> escreveu:
>
> Olá Fellipe,
> Da uma olhada neste artigo:
> http://www.activedelphi.com.br/modules.php?op=modload&name=News&file=article&sid=499&mode=thread&order=0&thold=0
>
>
> E no final tem um link para download....
>
> Espero que ajude.
>
> [], Sergio Eurico.
>
>
> Em 22/10/07, Fellipe Henrique < [EMAIL PROTECTED]> escreveu:
> >
> > Olá amigos, gostaria de saber quem trabalha com packages aqui no
> > grupo, para
> > que eu possa tirar algumas dúvidas...
> >
> > Desde já obrigado.
> >
> > []s
> >
> > --
> > _________________________________
> > T.·.F.·.A.·.
> > Fellipe Henrique
> > [EMAIL PROTECTED] <fellipeh%40gmail.com>
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
> >
> >
>
>
[As partes desta mensagem que não continham texto foram removidas]
