Zeos 7.0 em Delphi 2010

Na minha opinião um dos melhores componentes para acesso a banco de dados é o Zeoslib. Além de fornecer acesso à diversos SGDB, esse componente é open source o que eu considero uma grande vantagem frente à outros componentes.

Vamos ao que interessa.

1 - Faça o download do arquivo (Zeos 7.0)
2 - Crie uma pasta chamada Zeos7 dentro da pasta Lib do RAD Studio.(Tambem pode criar o diretório onde vc quiser deste que você informa este nas Lib do Delphi).
 Por exemplo, meu RAD Studio esta em C:\Program Files\CodeGear\RAD Studio\7.0\lib, então meu diretório base será: C:\Program Files\CodeGear\RAD Studio\7.0\lib\zeos7
3 - Descompacte os arquivos dentro do diretório recem criado no ítem 2.
4 - Com o Delphi 2010 aberto, vá em File -Open Project (Ctrl+F11) e abra o arquivo ZeosDbo.GroupProj, dentro de C:\Program Files\CodeGear\RAD Studio\7.0\lib\zeos7\packages\delphi14 (Ou no seu diretorio que vc criou).
5 - Vá ao menu Project - Build All Projects
6 - Antes de continuar, se você estiver usando o Windows Vista ou Windows 7 com o UAC habilitado, você terá que dar permissão TOTAL para a pasta Zeos7 criada, caso contrário não irá funcionar.
7- Agora, antes da instalação vá ao menu Tools - Options - Evironment Options - Delphi Options - Library - Win 32 e adicione o caminho a seguir no Library Path: $(BDS)\lib\Zeos7\packages\delphi14\build (Se voce criou outro diretório coloca seu diretorio\Zeos7\packages\delphi14\build).
8 - Feito isto, minimize o Delphi, abra o diretório C:\Program Files\CodeGear\RAD Studio\7.0\lib\zeos7\packages\delphi14\build, selecione todos os arquivos ".bpl" copie-os e cole-o dentro da pasta Bpl do RAD Studio: C:\Users\Public\Documents\RAD Studio\7.0\Bpl
9 - Volte ao Delphi vá ao menu View - Project Manager (Ctrl + Atl + F11). Selecione e compile as bpls abaixo, uma a uma. Para compilar, clique com o botão direto sobre o bpl. É a primeira opção.

- ZCore140.Bpl
- ZPlain140.Bpl
- ZParseSql140.Bpl
- ZDbc140.Blq
- ZComponent140.Bpl
- ZComponentDesign140.Bpl

10 - Depois de compiladas, clique com o botão direito sobre o pacote ZComponentDesign140.Bpl (o único em negrito) e clique em Install.
11 - Pronto, feche tudo (File - Close All). Crie um novo projeto e veja que os componentes já podem ser utilizados.

Criação de Forms

Na correria do dia a dia para quem trabalha na programação nada melhor que poder reutilizar um código em vários  lugares no seu projeto.
Pensando nisso estou colocando uma procedure de criação de formulário na qual você pode utilizar e muito.

procedure AbreForm(aClasseForm: TComponentClass; aForm: TForm);


procedure AbreForm(aClasseForm: TComponentClass; aForm: TForm);
begin
    Application.CreateForm(aClasseForm, aForm);
    try
        aForm.ShowModal;
    finally
        FreeAndNil(aForm);
    end;
end; 


Ex. de uso : AbreForm(TForm1,Form1);

Impressora Padrão do Windows

Esta função é simples mas de grande utilidade na programação, principalmente quando precisa se saber qual é a impressora padrão do Windows.

Para esta função funcionar precisa declarar nas uses a classe Printers.
Segue abaixo a função que retorna a impressora padrão do windows.

function ImpressoraPadrao :String;
// Retorna a impressora padrão do windows
var
   Device : array[0..255] of char;
   Driver : array[0..255] of char;
   Port   : array[0..255] of char;
   hDMode : THandle;
begin
   Printer.GetPrinter(Device, Driver, Port, hDMode);
   Result := Device;
end;


Ex de como usar : Label1.Caption := ImpressoraPadrao;

E-mail

Pessoal, se alguém quiser enviar um artigo, dúvida ou sugestão, o seu canal de contato com o Vale do Delphi é valedodelphi@gmail.com
Forte abraço a todos

Bem Vindos

Bem vindos a todos...
Este blog foi criado com intuído de ajudar aos iniciantes em Delphi, com dicas, artigos, postagens com assuntos diversos relacionado a programação Delphi .

Sejam todos bem vindos.