Fazendo e Utilizando Pacotes (Delphi)

Introdução

Pacotes são utilizados para modularização e distribuiçã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.

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 programas\borland\delphi6\bin ou \arquivos de
programas\borland\delphi7\Projects\Bpl) 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 da utilidade em se implementar pacotes, tornando nossas aplicações mais limpas e uniformes.
Um exemplo sobre pacotes pode ser baixado aqui.

Aplicação Flask usando Nginx e Gunicorn

Aplicação Flask usando Nginx e Gunicorn Se você já desenvolveu uma aplicação Flask básica, sabe que o servidor de desenvolvimento embutido não é ideal para produção. Ele não é projetado para lidar com altos volumes de tráfego ou conexões simultâneas. Para tornar sua aplicação Flask mais robusta e pronta para produção, podemos usar o Gunicorn como servidor de aplicação e o Nginx como proxy reverso. Neste artigo, vamos adaptar o exemplo anterior ( Criando uma Aplicação CRUD com Flask, PostgreSQL e Docker ) para incluir o Nginx e o Gunicorn. O que são Nginx e Gunicorn? Gunicorn O Gunicorn (Green Unicorn) é um servidor de aplicação WSGI que roda aplicações Python como o Flask. Ele é eficiente e simples de configurar, lidando com múltiplas requisições ao mesmo tempo, algo que o servidor embutido do Flask não faz bem. Nginx O Nginx é um servidor web que atua como um proxy reverso. Ele recebe requisições HTTP e as encaminha ao Gunicorn. Além disso, o Nginx pode: Servir arquivos ...

Criando uma Aplicação CRUD com Flask, PostgreSQL e Docker

Criando uma Aplicação CRUD com Flask, PostgreSQL e Docker Neste guia, vamos criar uma aplicação básica que acessa um banco de dados PostgreSQL e realiza operações CRUD (Create, Read, Update, Delete). Vamos usar Flask e executar tudo com Docker. Sem estilos ou extras, apenas o essencial. Estrutura do Projeto crud-app/ |-- app/ | |-- app.py | |-- templates/ | | |-- index.html | | |-- edit.html |-- Dockerfile |-- requirements.txt |-- docker-compose.yml Passo 1: Dependências Crie um arquivo requirements.txt com as seguintes linhas: Flask==2.2.2 Flask-SQLAlchemy==3.0.2 psycopg2-binary==2.9.3 Werkzeug==2.2.2 Passo 2: Aplicação Flask Arquivo app/app.py : from flask import Flask, render_template, request, redirect, url_for from flask_sqlalchemy import SQLAlchemy app = Flask(__name__) # Configuração do banco de dados app.config['SQLALCHEMY_DATABASE_URI'] = 'postgresql://user:password@db:5432/crud_db' app.config['SQLALCHEMY_TRACK_MODIFICATIONS'] = False db...

Centralizar Texto em Edit

Como todos sabemos o Edit mantém todo texto digitado a esquerda, o que não fica bem quando o usamos para a entrada de números, pois bem, o exemplo abaixo apresenta uma alternativa para centralizar um determinado valor dentro de um Edit: procedure EditChange(Sender: TObject); var vl_label : TLabel; //variável do tipo Label begin vl_label := TLabel.Create(self); //criamos um label WITH vl_label DO BEGIN Font.Name := TEdit(sender).Font.Name; //pegamos a fonte usada no edit Caption := TEdit(sender).Text; //pegamos o conteúdo do edit SendMessage(TEdit(sender).Handle, EM_SETMARGINS, EC_LEFTMARGIN, (TEdit(sender).Width-vl_label.Width) div 2); //centraliza no label e retorna para o edit END ; vl_label.Free; end ;

PROGRAMERO

Pesquisar este blog