Buscar por:

Fazendo e utilizando pacotes

Código

Introdução:

Pacotes são utilizados para modularização e distribução de objetos. São mais fáceis de ser implementados,já que utilizam a codificação padrão da linguagem Delphi, logo são DLLs nativas do Delphi.

Oferecem como vantagem redução do tamanho do executável, distribuição do código, facilidade de manutenção, dentre outras.

Exemplo:

- Primeiro vamos criar o projeto que será utilizado pelo pacote:

Crie uma nova aplicação, adicionando um label (Nome), um edit e um botão (Confirmar), salve a aplicação com o nome de "Unit_Tpkt.pas" e "Prj_Tpkt.dpr" (o nome do Form continua como padrão), feito isso compile e feche a aplicação.

  * (Note que nosso programa não possui uma finalidade, estamos apenas     

      demonstrando a criação de um pacote)

- Agora vamos criar o pacote com base no programa criado anteriormente:

Navegue até "File -> New -> Other -> e na aba New escolha Package, na janela que se abriu clique no botão "add", navegue até a pasta onde foi salvo o programa que criamos e selecione "Unit_Tpkt.pas", salve o pacote com o nome de "Package_Tpkt.dpk", clique em compilar, se ocorrer algum erro confirme, após a compilação procure um arquivo chamado "Package_Tpkt.dcp" 

(arquivos de programasborlanddelphi6bin ou arquivos de 

programasborlanddelphi7ProjectsBpl) e coloque na pasta onde estão os arquivos fontes do pacote.

- Utilizando o pacote:

Crie um nova aplicação e insira um botão no formulário, feito isso, navegue até Project -> Options, na janela que se abrir escolha a aba Packages, em runtime packages clique no botão "add" e selecione o arquivo "Package_Tpkt.dcp", feito isso adicione o seguinte código:

 -abaixo de implementation escreva:

    uses Unit_Tpkt;

 -no evento onclick do botão coloque o seguinte código:

    Form1:= Tform1.create(application);

      try

         Form1.showmodal;

      finally

         freeandnil(Form1);

      end;

  * (Perceba que no código acima estamos chamando o "Form1", logo, o formulário do programa  

     atual deve possuir outro nome)

Finalizando:

No exemplo acima utilizamos pacotes de forma estática, e podemos ter uma idéia do quão util pode ser a implementação de pacotes, tornando nossas aplicações mais limpas e uniformes.