Curso Desvendando o DELPHI for PHP-ParteI

 

Desvendando o Delphi for PHP

Confira neste curso online tudo sobre a nova ferramenta da CodeGear para desenvolvimento em PHP. O Delphi for PHP chegou para ficar e neste curso nos desvendamos todos os segredos desta poderosa ferramenta. Esse cursos mostra as principais nuances da linguagem como: declaração de variáveis, estruturas de decisão, estruturas de repetição e arrays. Como se trata de uma nova linguagem no meio da comunidade Delphi, o curso mostra e enfatiza as diferenças entre as duas linguagem (Delphi e PHP) com o autor sempre fazendo analogias com a linguagem Delphi. O curso foca também no uso das Super Globais do PHP, $_SESSION, $_SERVER, $_GET, $_POST, $_ENV, $_FILES, $_COOKIE, passando por acesso a banco de dados, controles DataWare e integração com templates em HTML, vale a pena conferir

Desvendando o Delphi for PHP – Curso

Curso de Delphi para PHP em forma de vídeo aula, com formato do arquivo em AVI, o curso é umas daquelas relíquias que não pode faltar em seu acervo.
O Delphi for PHP chegou para ficar e neste curso nos desvendamos todos os segredos desta poderosa ferramenta. Esse cursos mostra as principais nuances da linguagem como: declaração de variáveis, estruturas de decisão, estruturas de repetição e arrays.
Como se trata de uma nova linguagem no meio da comunida de Delphi, o curso mostra e enfatiza as diferenças entre as duas linguagem (Delphi e PHP) com o autor sempre fazendo analogias com a linguagem Delphi.

Tamanho: 160 MB

Idioma: Português

Formato: AVI

DOWNLOAD  DEPOSIT FILES

DOWNLOAD

Conhecendo o Delphi.

Para que você possa iniciar o Delphi, vá no menu INICIAR => PROGRAMAS => BORLAND DELPHI 6 => DELPHI 6, e click com o botão esquerdo do mouse.

Após executar esta rotina no Windows, o Delphi será aberto apresentando o seguinte Ambiente de Desenvolvimento composto por 5 janelas, onde todas estarão abrindo automaticamente.

>

Conhecendo cada Janela.

1.0 - Janela Principal - A Janela Principal é o próprio Delphi, se fecharmos, estaremos fechando todo o Delphi. Esta janela é composta basicamente pelo Menu e mais duas áreas distintas, o SpeedBar (Barra de Acesso Rápido) e a Component Palette (Paleta de Componentes).

1.1 - SpeedBar ("Barra de Acesso Rápido") foi o nome dado pela Borland à barra de ferramentas com atalhos para os procedimentos comumente executados durante a fase de desenvolvimento de um projeto. São Eles:
- New - Abre uma caixa de diálogo que permite selecionar o tipo de objeto a ser criado (Novo Aplicativo, Formulário, DLL, Relatórios, entre outros). Equivale ao menu FILE => NEW => OTHER.
- Open - Abre uma Unit, Form, Projeto ou Parckege. Equivale ao menu FILE => OPEN
- Save - Salva a Unit/Form atual, equivale ao menu FILE => SAVE
- Sava All - Salva todas as Units/Forms abertos que sofreram alterações, equivale ao menu FILE => SAVE ALL ou as teclas SHIFT+CTRL+S
- Add Project - Abre um arquivo de projeto (*.dpr - Delphi Project), Equivale ao menu FILE => OPEN PROJECT ou as teclas CTRL+F11.
- Add File To Project - Acrescenta um arquivo já existente ao projeto atual, equivale ao menu PROJECT => ADD TO PROJECT ou as teclas SHIFT+F11.
- Remove File To Project - Remove um arquivo do projeto. O arquivo não será removido do disco, apenas deixará de fazer parte do projeto, equivale ao menu PROJECT => REMOVE FROM PROJECT.
- Help Contents - Aciona o Help do Delphi, equivale ao menu HELP => DELPHI HELP.
- View Unit - Permite escolher uma Unit do projeto para ser exibida, equivale ao menu VIEW => UNITS ou as teclas CRTL+F12
- View Form - Permite escolher um Form do projeto para ser exibido, equivale ao menu VIEW => FORMS ou as teclas SHIFT+F12.
- Toggle Form/Unit - Permite alterar entre um Form e sua respectiva Unit, equivalente ao menu VIEW => TOGGLE FORM/UNIT ou a tecla F11.
- New Form - Adiciona um novo Form ao projeto, equivalente ao menu FILE => NEW FORM
- Run - Executa a aplicação, compilando-a se necessário, equivale ao menu RUN => RUN ou a tecla de função F9.
- Pause - Suspende a execução do programa, equivale ao menu RUM => PAUSE PROGRAM.
- Trace Into - Executa o programa passo a passo, linha a linha, dentro da rotina que for invocado e dentro de todas as rotinas que forem acessadas posteriormente, equivale ao menu RUN => TRACE INTO ou a tecla de função F7.
- Step Over - Semelhante ao Trace Into, porém a execução passo a passo ocorrerá somente dentro da rotina que for invocado, equivale ao menu RUN => STEP OVER ou a tecla de função F8.

1.2 - Component Palette (Paleta de Componentes)
Cada ícone da Paleta refere-se a um componente, quando colocado em um Form, executa determinada tarefa: por exemplo, um TLabel mostra um texto estático, e um TEdit é uma caixa de edição que permite mostrar e alterar dados. A paleta de componentes tem diversas Guias, nas quais os componentes são agrupados por funcionalidade.
Outras Guias podem ser criadas com a instalação de componentes de terceiros (Isso estaremos estudando no decorrer de nossas matérias). Estas Guias eu não estarei mostrando uma a uma, por isso peço para que você dê uma olhada em todas elas para que possa se familiarizar com o nome de todos os componentes.

2.0 - Formulário de Criação de Aplicativos (Form).
Cada aplicativo criado em Delphi é chamado de projeto e pode ser formado por um ou mais formulários (Janelas), ou ainda em casos especiais não possuírem Janela alguma (Console Application).
É sobre estes formulários que serão colocados os componentes para a criação da interface do aplicativo.

3.0 - Unit (Editor de Código-Fonte).
Todo formulário possui um arquivo de programa fonte correspondente, chamado Unit, que pode ser visualizado no editor de código (Code-Editor).
A janela da UNIT pode ser acessada clicando no botão TOGGLE FORM/UNIT da SpeedBar ou na tecla de função F12 caso o formulário esteja selecionado, colocando assim a UNIT em evidência.
A Unit é intimamente ligada ao Formulário (FORM) quando se adiciona um componente no Form, o Delphi inclui na Unit deste Form o código referente a inclusão do mesmo.

4.0 - Object TreeView (Objeto Visualização de Árvore).
Esta Janela mostra o relacionamento entre os componentes que são colocados no Form.

Object Inspector (Propriedade e Eventos).
O Objector Inspetor é responsável por permitir a modificação das propriedades dos componentes/objetos de forma visual, durante o projeto (Designer Time).
Será sempre nele que estaremos selecionando e alterando propriedades dos componentes em uso, como por exemplo: Cor, Fonte, Tamanho, Posição etc. Lembrando-se que a Guia PROPRIETIES tem que estar selecionada.

Nota-se que há duas guias nesta Janela, a Proprieties e a Events, na Guia Events, estaremos adicionando comportamentos em eventos de um certo componente, por exemplo, quando clicamos no botão fechar da janela do Windows, estamos efetuando o Evento OnClose para o Delphi, ao executar este evento, podemos adicionar um certo comportamento, como por exemplo aparecer uma caixa de dialogo perguntando se realmente deseja encerrar o aplicativo.

Criando um Editor de Texto no Delphi (Mais Avançado)

Primeiramente com o Delphi já aberto (é claro rsrs) crie um novo projeto File > VCL Forms Application – Delphi for Win32 (se você estiver utilizando Delphi 7, será apenas Application).



Vamos agora dar uma customizada no nosso formulário. Mude o Caption do form (nome que se dá no Delphi para aquele nome que fica em cima do formulário).



Vamos criar os “controles” do nosso editor agora.
Crie um “ToolBar”. Para isso vá até a aba “Win32” e clique em “TToolBar” depois clique no seu “form” ou formulário.



Diferente do outro artigo que nos utilizamos o componente “Memo”, neste usaremos o componente “RichEdit”. Portanto coloque um “RichEdit” no seu “Form”, ele pode ser encontrado na guia “Win32”. (Clique em “TRichEdit” e depois de um clique no Formulário).



Selecione o “RichEdit” que você acabou de criar, na Object Inspactor (F11) coloque:

Align = alClient
ScrollBars = ssVertical
Veja como ficou:



Procure Lines e depois clique nos três pontinhos “...” irá abrir uma janela, não deixe nenhum caractere dentro dessa janela e clique em OK.



Vamos criar os botões de navegação do nosso editor.
Para isso clique com o botão direito na “ToolBar” e clique em “New Button”.



Crie 13 botões dentro do “ToolBar” utilizando o procedimento mostrado acima.
Para colocar as imagens nos botões, utilizando a “ToolBar”, precisamos colocar um componente chamado “ImageList”.



Vamos “linkar” a “ToolBar” com a “ImageList” para isso seleciona a “ToolBar” que criamos anteriormente, va na Object Inspector (F11)



Depois de ter “linkado” tudo certinho, vamos adicionar as imagens para dentro do “ImageList” Para isso, clique 2 veses em cima do componente. Veja a janelinha:



Clique no botão “ADD” e coloque as imagens que você desejar. Depois organize direitinho seguindo a ordem dos botões. (Se você não tem as imagens dos botões não se preocupe, no fim do artigo irei deixar um link com os icones utilizados no artigo)



Coloque um “Opendialog” e um ”Savedialog” dentro do “form”, para isso procure a aba “Dialogs”, depois no “Opendialog” duas vezes no “Opendialog” e duas vezes no “Savedialog”.



Selecione o “Opendialog” e o ”Savedialog” que você acabou de criar, e modifique a propriedade da Object Inspector “Filter”, Coloque isto: “Arquivos RichText|*.rtf” (sem aspas).
Selecione os botões que você ira utilizar para Negrito, Itálico e Sublinhado. Vá na Object Inspector (F11) e mude a propriedade “Style” para “tbsCheck”.



Layout prontinho, agora vamos programar!



Vamos trabalhar com 2 funções no nosso projeto. Primeiro vamos declarar elas em private:

  private

    function TextoSelecionado: TTextAttributes;

    procedure AtualizaBotoes;

Agora vamos colocar as funções por inteiro no bloco de codigo, coloque isso após a “implementation”
:

function TForm1.TextoSelecionado: TTextAttributes; //Responsavel por captar o texto selecionado para aplicar efeitos de fonte

begin

  if RichEdit1.SelLength > 0 then Result := RichEdit1.SelAttributes

  else Result := RichEdit1.DefAttributes;

end;

procedure TForm1.AtualizaBotoes();  // responsavel por afundar os botões em tempo de execução (RunTime)

begin

    with RichEdit1.Paragraph do

  try

    ToolButton9.Down := fsBold in RichEdit1.SelAttributes.Style;

    ToolButton10.Down := fsItalic in RichEdit1.SelAttributes.Style;

    ToolButton11.Down := fsUnderline in RichEdit1.SelAttributes.Style;

    if Ord(Alignment) = 0 then

    begin

      ToolButton12.Down := True;

      ToolButton15.Down := False;

      ToolButton14.Down := False;

    end;

    if Ord(Alignment) = 1 then

    begin

      ToolButton12.Down := False;

      ToolButton15.Down := True;

      ToolButton14.Down := False;

    end;

    if Ord(Alignment) = 2 then

    begin

      ToolButton12.Down := False;

      ToolButton15.Down := False;

      ToolButton14.Down := True;

    end;

  except

    application.terminate; //se acontecer algum problema nas funções acima, o programa fecha.

  end;

end;

Clique duas vezes no botão de novo arquivo e coloque o codigo:

RichEdit1.Clear;

Clique duas vezes no botão de Abrir e coloque o codigo:

  if opendialog1.Execute then

  begin

    Richedit1.Lines.LoadFromFile(opendialog1.FileName);

    Richedit1.SetFocus;

  end;

Clique duas vezes no botão de Salvar e coloque o codigo:

  if Savedialog1.Execute then

  begin

    RichEdit1.Lines.SavetoFile(Savedialog1.FileName);

    RichEdit1.SetFocus;

  end;

Clique duas vezes no botão de Colar e coloque o codigo:

  RichEdit1.PasteFromClipboard;

Clique duas vezes no botão de Copiar e coloque o codigo:

  RichEdit1.CopyToClipboard;

Clique duas vezes no botão de Recortar e coloque o codigo:

  RichEdit1.CutToClipboard;

Clique duas vezes no botão de Negrito e coloque o codigo:

  if ToolButton9.Down = false then

    TextoSelecionado.Style := TextoSelecionado.Style - [fsBold]

  else

    TextoSelecionado.Style := TextoSelecionado.Style + [fsBold];

Clique duas vezes no botão de Italico e coloque o codigo:

  if ToolButton10.Down  then

    TextoSelecionado.Style := TextoSelecionado.Style + [fsItalic]

  else

    TextoSelecionado.Style := TextoSelecionado.Style - [fsItalic];

Clique duas vezes no botão de Sublinhado e coloque o codigo:

  if ToolButton11.Down then

    TextoSelecionado.Style := TextoSelecionado.Style + [fsUnderline]

  else

    TextoSelecionado.Style := TextoSelecionado.Style - [fsUnderline];

Clique duas vezes no botão de Alinhar a esquerda e coloque o codigo:

  RichEdit1.Paragraph.Alignment := TAlignment(0);

Clique duas vezes no botão de Alinhar ao centro e coloque o codigo:

  RichEdit1.Paragraph.Alignment := TAlignment(2);

Clique duas vezes no botão de Alinhar a Direita e coloque o codigo:

 RichEdit1.Paragraph.Alignment := TAlignment(1);

Clique duas vezes no botão de Fechar o Programa e coloque o codigo:

Application.terminate;

Selecione o “RichEdit1” va na aba “Events” da Object Inspector clique 2 vezes no evento “onchange”:

  AtualizaBotoes();

Agora na mesma janela e com o “RichEdit1” selecionado, clique 2 vezes no evento “SelectionChange” e coloque:

  AtualizaBotoes();

Selecione o “Form” e clique 2 vezes no evento “OnShow” e coloque:

  AtualizaBotoes();

Criando um simples cadastro de Clientes com Delphi e Interbase

Antes de tudo, instale o Interbase (no CD do Delphi ter o programa). Se você estiver usando o Delphi 7 (a melhor versão, na minha opinião) instale o Interbase 6.5  versão Desktop mesmo.
O Interbase é muito fácil de instalar, igual a outro programa do Windows.

Depois de instalado, entre em Iniciar > Todos os programas > Interbase > IBConsole. Aguarde alguns segundos o programa abrir.
Vamos criar a conexão local do Interbase, na primeira palheta de cima depois dos menus clique em "Register new Interbase Server" é um ícone que tem uma CPU e um lápis, como mostra na imagem:


Na janela que surgir, selecione Local Server. No nome de usuário coloque "SYSDBA" (sem aspas) e a senha coloque "masterkey" (sem aspas).


Acabamos de criar a conexão, agora, clique duas vezes em Local Server, se você não estiver logado, ele irá pedir sua senha se não ele irá direto para uma espécie de menu.

Vamos criar um novo Database (Banco de Dados), clique com o botão inverso do mouse em Databases e clique em Create Database.


Na primeira linha de ?Filename(s)? coloque o caminho e nome do seu novo banco de dados no meu caso, vou criar um database em C:clientes.gdb. Não se esqueça do ?.gdb? (sem aspas) no final do arquivo, pois ele definirá o formato de seu banco de dados. Depois Preencha o campo Alias, pois, ele é o nome de seu banco de dados no meu caso vou colocar "Clientes" (sem aspas).


Ao terminar, clique em OK.
Agora é que o ?bicho pega? para a maioria dos iniciantes, pois chegou à hora de criar a tabela via comandos SQL. Alguns comandos são um pouco parecidos com o MySQL mas, as vezes não  são iguais na sua utilização.
Na mesma palheta do ?Register new Interbase Server? entre em "interactive SQL" este botão tem o nome SQL escrito.


Na janela de código que abrir coloque:

CREATE TABLE "CADCLIENTES" 

(

  "COD" NUMERIC(4, 0) NOT NULL,

  "NOME" VARCHAR(100),

  "ENDE" VARCHAR(100),

  "NUMTEL" VARCHAR(100),

CONSTRAINT "PK_CADCLIENTES" PRIMARY KEY ("COD")

);

Nota: Deixe tudo Maiúsculo, pois, Interbase é Case Sencetive, ou seja, diferencia as Maiúsculas das Minúsculas.

Depois disso, tecle CTRL   E para compilar os comandos. Se tudo der certo, ele irá criar uma novatabela.

Pronto! Nós já criamos nosso Database e nossa tabela de cadastro!
Agora vamos fazer o Delphi reconhecer isso tudo, com o BDE Administrator.

O BDE Administrator reúne todos os seus Databases em só um lugar e os repassa para o Delphi com um caminho muito menor.

Vamos colocar nosso Database no BDE Administrator, para isso entre em: Painel de Controle > BDE Administrator.
Agora vamos cadastrar nosso Database no DBE. Clique em Object > New ou simplesmente CTRL   N, no combo box selecione ?INTRBASE? e clique em OK. Depois de criado ele ira pedir o nome do Database no meu caso vou colocar ?Clientes? (sem aspas).


Vamos configurar nosso Database no BDE Administrator: Clique em Server Name e depois nos três pontinhos (?...?) e localize o caminho do banco de dados que você colocou na criação do Database.  E em user name digite ?SYSDBA? (em maiúsculo e sem aspas).
Já que já terminamos tudo que tinha que configurar tecle CTRL   A e clique em Ok para salvar todas as informações que colocamos. Se você quiser pode fechar o BDE Administrator.

Já terminamos de configurar o Interbase e o BDE Administrator agora vamos fazer a aplicação no Delphi que lerá tudo isso (ate que fim! Hehehehe).

Abra o Delphi (é claro :D)

Adicione um componente Database (na guia BDE) um Table (na guia BDE) e um DataSource (na guia DataSource).

Na Object Inspector, com o Database1 selecionado, na linha AliasName clique na setinha e clique em Clientes (aquele que nós criamos no DBE). Na linha DatabaseName digite ?CAD_CLIENTE? e Na linha Connected altere seu valor de false para true. Na Object Inspector, com o Table selecionado, na linha DatabaseName clique na setinha e selecione CAD_CLIENTE. Na linha Table Name clique na setinha ele vai pedir a senha para se logar no Database (lembra que é masterkey?). Digite a senha e clique em CADCLIENTES. Na linha Active troque o false por true. Pronto, nosso table está configurado. Vamos configurar o Datasource1: Na Object Inspector, com o Database1 selecionado, na linha dataset clique na setinha e selecione Table1. Nosso Database, nosso Table e nosso Datasource já estão configurados.

Agora vamos colocar os campos e o dbnavigator.

Adicione um label e troque seu caption para "Código:" (sem aspas).
Adicione outro label e troque seu Caption para "Nome:" (sem aspas).
Adicione outro label e troque seu Caption para "Endereço:" (sem aspas).
Adicione outro label e troque seu Caption para "Número de Telefone:" (sem aspas).
Na guia Data Controls adicione um DBEdit para cada label criado ou seja 4 DBEdits serão adicionados.

Na Object Inspector, com o DBEdit1 selecionado, na linha DataSource clique na setinha e clique em Database1 e na linha DataField clique na setinha e clique em COD.
Na Object Inspector, com o DBEdit2 selecionado, na linha DataSource clique na setinha e clique em Database1 e na linha DataField clique na setinha e clique em NOME.
Na Object Inspector, com o DBEdit3 selecionado, na linha DataSource clique na setinha e clique em Database1 e na linha DataField clique na setinha e clique em ENDE.
Na Object Inspector, com o DBEdit4 selecionado, na linha DataSource clique na setinha e clique em Database1 e na linha DataField clique na setinha e clique em NUMTEL.

Na mesma guia (Data Controls) adicione um DBNavigator.

Na Object Inspector, com o DBNavigator1 selecionado, na linha Align clique na setinha e clique em alBotton. Na linha datasource clique na setinhe e selecione DataSource1.


Diminua o Form para ficar do tamanho de tudo, quase igual a esse aqui:


E Pronto!!!! Você já tem um simples cadastro de clientes.

Mas, Gabriel, tenho que aturar toda vez que eu entrar no programa uma mensagem pedindo a senha do Banco de Dados?
Esta foi a pergunta de uma amigo ao ver o programa pedir essa senha toda vez que tentar entrar. Na verdade tem uma solução sim, por isso que colocamos o componente Database porque ele loga o usuário ?por debaixo dos panos? para que não peça mais essa senha.

Para corrigir esse problema: Na Object Inspector, com o Database1 selecionado, na linha Params clique nos três pontinhos (?...?) e adicione a palavra ?PASSWORD? (sem aspas) e na frente à senha. Veja na imagem como ficou:


Ao terminar clique em OK.
E pra terminar, na linha LogonPrompt deixe seu valor como false.
Pronto! A telinha sem graça sumiu.