Passando par�metros para uma BPL

Question

Pessoal quero passar refer�ncias de objetos para uma pacote.

At� o momento s� utilizei DLLs e se fosse uma dll eu simplismente declararia o m�todo com a assintura contendo os par�metros que necessito.

Como fazer isso em uma BPL?

Andremuller · Answer

respondendo de mim para mim mesmo.No meu caso isso resolve.Transformo os classes compartilhadas em singleton.Ao carregar o pacote ele acessa a inst�ncia da singleton por um GetInstance e pronto....

Renatacoimbra · Answer

Bem, vc j� respondeu sua pergunta, mais vai a�.Funciona da mesma forma da DLLvc declara seu m�todo no form e exporta.function MeuMetodo :Tipo;begin  // c�digoend;exports  MeuMetodo;...

Andremuller · Answer

eu exporto o m�todo de uma classe ou escrevo isso na unit do pacote?

De que forma eu acesso o m�todo?
Por que se eu tiver que dar um GetClasse e fazer algo do tipo

ClassePegaPeloGetClasse.ObjetoCompartilhado := ObjetoDaAplica��o

ent�o n�o serve porque eu teria igual que declarar a unit da classe no projeto principal para ele reconhecer o m�todo, o que implicaria na compila��o da unit no exe.

Por�m se de alguma forma eu puder trabalhar de forma semelhante a um GetProcAdress ent�o t� ok

Renatacoimbra · Answer

Um exemplo pr�tico usando o [color=red:7d21b65cb4]GetProcAddress[/color:7d21b65cb4]

No Form declare m�todo:


function CriarNovoFormCli : TForm;
begin
  CriarNovoFormCli := TFormCli.Create( Application );
end;

exports
    CriarNovoFormCli;
end.

Digamos que eu tenha mais de um Form dentro da BPL ent�o eu usaria
um m�todo para carregar a BPL passando o form como par�metro.


procedure InstForm( const Package, NomeForm : ShortString );
var h : THandle;
    f : TForm;
    CriarNovoForm : function : TForm;
begin
     h := LoadPackage( Package );
     if h <> 0 then begin
        @CriarNovoForm := GetProcAddress( h, PChar( �CriarNovo� + NomeForm ) );
        if Assigned(CriarNovoForm) then begin
           CriarNovoForm;
        end;
     end;
end;

acho q isso pode te ajudar.

[]�s[/code]

Host · Answer

Para fazer uma chamada para um bpl ... como ficaria... como funciona la por dentro este esquema de exportar?

O [b:e7ad659c1f]@CriarNovoForm[/b:e7ad659c1f] esta relacionado com
[b:e7ad659c1f]CriarNovoForm : function : TForm;[/b:e7ad659c1f] mas esta function esta relacionada com a function abaixo?

function CriarNovoFormCli : TForm;
begin
CriarNovoFormCli := TFormCli.Create( Application );
end;

Como funciona a mecanica disto.

F�rum Passando par�metros para uma BPL #300145