Instalando o ZeosLib no Delphi 7 Resolvido

Site para baixar o ZeosLib:

https://sourceforge.net/projects/zeoslib/

Clique em Download.

A versão para esse post é 7.1.4.

Descompacte o conteúdo:

Abra o Delphi 7 e selecione File e Open Project:

Selecione a pasta que você descompactou e vá até a pasta PACKAGES e depois na pasta DELPHI7 e selecione o arquivo ZEOSDBO.BPG:

Clique em ABRIR:

Clique em PROJECTS e em seguida COMPILE ALL PROJECTS

Algumas mensagens de erro poderão aparecer sem falha para a compilação:

Na janela do PROJECT MANAGER, clique com o botão direito em ZCOMPONENTDESIGN70.BPL e clique em INSTALL:

Caso dê erro de sistema:

Copie o arquivo: ZComponent70.bpl para a pasta:

C:\Program Files (x86)\Borland\Delphi7\Projects\Bpl

Instalação feita com sucesso.

Vá até a última aba e irá encontrar: ZEOS ACCESS:

Boa Programação!!!!

Tradução Português para o Delphi 7

Aproveitando uma leva de matérias que tinha para divulgar sobre o Delphi estou colocando agora o arquivo de tradução do Delphi 7 para português.

Junto com o arquivo tem as instruções de como instalar.

Teclas de Atalho Delphi

Todo programa é mais fácil de ser utilizando com as teclas de atalho e abaixo segue uma tabela para o Delphi.

F1: Ajuda e pode trazer os detalhes de um comando ou função






F4 : Executa o programa a partir da posição do cursor do mouse






F5 : Adiciona um breakpoint

Nome do Computador e Usuário em Delphi

Nesse tutorial vou explicar como conseguir o nome do computador e o usuário.

Para esse tutorial eu recomendo pesquisar depois sobre o uso de API (Interface de Programação de Aplicações)do Windows: http://pt.wikipedia.org/wiki/API.

Criando um Arquivo Texto em Delphi

Com base no post anterior você fazer o mesmo programa em Delphi para ver as diferenças.

Como o Delphi é uma continuação do Pascal o programa irá ficar bem semelhante, exceto pelas partes de objetos que o Delphi utiliza.

Trojan Downloader Dadobra no Delphi 7 Solução

Esse é um problema que tem acontecido comigo atualmente e creio que alguns de você já deve ter passado ou ainda está passando por esse problema.

Ao compilar e executar um programa em Delphi o antivírus acusa que há um vírus no programa: Trojan Downloader Dadobra.

Entre vários foruns que eu pesquisei que a compilação no Delphi 7 e também C Builder acabam tendo esse problema.

Em testes de compilação pelo prompt de comando a compilação ficou perfeita e sem problemas.

Então vamos a solução.

Passo 1 - Abra o Prompt de Comandos

Iniciar > Executar (ou tecla Windows + R) e digite CMD

Passo 2 - Pasta RTL

Vá até a pasta: C:\Arquivos de programas\Borland\Delphi7\Source\Rtl

com o comando:

cd \Arquivos de programas\Borland\Delphi7\Source\Rtl

Passo 3 - Crie um Subdiretório

digite:

MD Lib

Passo 4 - Make

Digite:

Make

E serão recompiladas as bibliotecas DCU que deverão aparecer no diretório Lib que foi criado anteriormente.

Pode fechar essa janela.

Passo 5 - Faça um backup diretório LIB do Delphi 7

Abra o Windows Explorer e vá até a pasta:

C:\Arquivos de programas\Borland\Delphi7\Lib

Aperte CTRL+C e cole em outra pasta.

Passo 6 - Copie os arquivos

Copie os arquivos criados novos da pasta:

C:\Arquivos de programas\Borland\Delphi7\Source\Rtl\lib

CTRL+C

Para:

C:\Arquivos de programas\Borland\Delphi7\Lib

Sim para todos.

Passo 7 - Abra o Delphi

E faça todos os testes e não há mais problemas.

Qualquer dúvida, crítica ou sugestão entre em contato.

Se necessário

Adicionando o ActiveX Windows Media Player ao Delphi 7

Há vários acessórios no Delphi que podemos utilizar diretamente, mas outros precisam ser adicionados para a sua funcionalidade e eles são acessados através do ActiveX.

Nessa aula vou ensinar como adicionar o Windows Media Player. A versão do Windows Media Player será a mesma instalada no seu Windows.

Passo 1 - Abra o Delphi

Vá ao menu File e feche todos os programas para facilitar a operação.

Passo 2 - Menu Component

Vá ao menu Component e selecione Import ActiveX Control...

Passo 3 - O Componente

Localize na lista Windows Media Player (Version 1.0).

Passo 4 - Instalando

Aperte o botão Install da tela anterior.

Confirme o pacote e aperte OK.

Confirme com Yes.

Ok novamente.

Feche a janela acima.

Confirme para salvar com Yes.

Pronto a instalação está completa.

O componente foi adiciona a aba Activex.

Download do Tutorial em PDF

Escolha um servidor para baixar:

Eleições em Linguagem Pascal

Mais um pedido do nosso leitor Cristofer.

Problema

Faça um programa de apuração de uma eleição, onde a urna devera aceitar a votação até o fiscal digitar 0.


Os códigos de votação serão os seguintes:




1 -> Candidato 1


2 -> Candidato 2


3 -> Candidato 3


4 -> Nulo


5 -> Branco

Solução

Código fonte:

Program Eleicao;


Uses Crt;


var


c1,c2,c3,n,b,t : Integer;


voto : Integer;


Begin


TextColor (14);


TextBackGround (1);


c1 := 0; c2 :=0; c3 :=0; n :=0; b :=0; t :=0;


ClrScr;


WriteLn (' Eleicao');


WriteLn (' =======');


WriteLn;


WriteLn (' 1 - Candidato 1');


WriteLn (' 2 - Candidato 2');


WriteLn (' 3 - Candidato 3');


WriteLn (' 4 - Nulo');


WriteLn (' 5 - Branco');


WriteLn;


WriteLn (' 0 - Sair da votacao');


WriteLn;

voto := 6;


while voto<>0 do


begin


GotoXY (1,12);


Write (' Voto: ');Read (voto);


if voto = 1 then c1 := c1 + 1 else


if voto = 2 then c2 := c2 + 1 else


if voto = 3 then c3 := c3 + 1 else


if voto = 4 then n := n + 1 else


if voto = 5 then b := b + 1;


GotoXY (8,12); Write (' ');


end;


t := c1+c2+c3+n+b;


WriteLn;


WriteLn;


WriteLn ('Resultado da Eleicao');


WriteLn ('====================');


WriteLn;


WriteLn (' Candidato 1: ',c1, ' votos');


WriteLn (' Candidato 2: ',c2, ' votos');


WriteLn (' Candidato 3: ',c3, ' votos');


WriteLn (' Nulos : ',n, ' votos');


WriteLn (' Brancos : ',c1, ' votos');


WriteLn (' Total : ',t, ' votos');


ReadLn;


ReadLn;


End.

Linguagem Pascal

Como tenho um vasto conhecimento em linguagem Pascal e Delphi, resolvi abrir mais um tópico.

Sei que vários professores de faculdade vão ficar bravos comigo, mas o meu intuito e ajudar a vocês a aprenderem pelo menos a linguagem Pascal que servirá de base para várias outras linguagens, mas Pascal?

Sim, é uma linguagem simples e se assemelha bastante a uma lingua falada americana e por isso é uma das mais simples para ensinar e aprender.

Infelizmente como vários professores são matemáticos e para estimular a lógica os problemas são sempre matemáticos também e assim os alunos ficam com dúvida na matemática e na programação.

Se tiver uma dúvida me envie que terei prazer em postar.

Delphi e Pascal Freeware - Lazarus

O Delphi se destacou entre as linguagens de programação por ser RAD - Rapid Application Development (em português, Desenvolvimento Rápido de Aplicações) e principalmente a versão 7 foi uma das melhores e como foi lançada em 2002.

Um boa alternativa grátis é o LAZARUS e você poderá programa em Windows,Windows Mobile, Linux e MAC OS (e já roda no Windows 7).

O Lazarus é uma ferramenta feita em código aberto para programadores. O seu ambiente é desenvolvido em Pascal e é idêntico ao Delphi. Possui um TForm onde você cria as suas janelas e coloca vários componentes diferentes de acordo com a ocasião.

Para aqueles que estão pensando em começar a programar, com certeza o Lazarus pode ser muito útil para entender um início da programação.

Vários componentes do Delphi funcionam no Lazarus.

link: http://www.lazarus.freepascal.org/

Apagar um Sub Diretório no Delphi

Inclua a unit SHELLAPI na clausula uses do seu form.

procedure DeleteDir( hHandle : THandle; Const sPath : String ); var OpStruc: TSHFileOpStruct; FromBuffer, ToBuffer: Array[0..128] of Char; begin fillChar( OpStruc, Sizeof(OpStruc), 0 ); FillChar( FromBuffer, Sizeof(FromBuffer), 0 ); FillChar( ToBuffer, Sizeof(ToBuffer), 0 ); StrPCopy( FromBuffer, sPath); With OpStruc Do Begin Wnd:= hHandle; wFunc:=FO_DELETE; pFrom:= @FromBuffer; pTo:= @ToBuffer; fFlags:= FOF_NOCONFIRMATION; fAnyOperationsAborted:=False; hNameMappings:=nil; //lpszProgressTitle:=nil; End; ShFileOperation(OpStruc); end;

Utilize a funçăo assim:

procedure TForm1.Button1Click(Sender: TObject); begin DeleteDir( Self.Handle,'C:\TESTE'); end;

Dicas em Delphi - DTDELPHI 2.8

Você que programa em Delphi não deve deixar de baixar esse arquivo que contém mais de 900 dicas em Delphi. O arquivo está no formato .CHM (arquivo de ajuda do Windows) e você pode pesquisar e tem muitos exemplos de programas e muitas soluções.

O produtor desse kit de dicas não fez mais nenhuma atualização após está e agradeço a iniciativa do Lloyd Dickinson.

(clique na imagem para baixar)

Teste

Videos

Dicas em Delphi - DTDELPHI 2.8

Você que programa em Delphi não deve deixar de baixar esse arquivo que contém mais de 900 dicas em Delphi. O arquivo está no formato .CHM (arquivo de ajuda do Windows) e você pode pesquisar e tem muitos exemplos de programas e muitas soluções.

O produtor desse kit de dicas não fez mais nenhuma atualização após está e agradeço a iniciativa do Lloyd Dickinson.

(clique na imagem para baixar)

Delphi e Pascal Freeware - Lazarus

O Delphi se destacou entre as linguagens de programação por ser RAD - Rapid Application Development (em português, Desenvolvimento Rápido de Aplicações) e principalmente a versão 7 foi uma das melhores e como foi lançada em 2002.

Um boa alternativa grátis é o LAZARUS e você poderá programa em Windows,Windows Mobile, Linux e MAC OS (e já roda no Windows 7).

O Lazarus é uma ferramenta feita em código aberto para programadores. O seu ambiente é desenvolvido em Pascal e é idêntico ao Delphi. Possui um TForm onde você cria as suas janelas e coloca vários componentes diferentes de acordo com a ocasião.

Para aqueles que estão pensando em começar a programar, com certeza o Lazarus pode ser muito útil para entender um início da programação.

Vários componentes do Delphi funcionam no Lazarus.

link: http://www.lazarus.freepascal.org/

Apagar um Sub Diretório no Delphi

Inclua a unit SHELLAPI na clausula uses do seu form.

procedure DeleteDir( hHandle : THandle; Const sPath : String ); var OpStruc: TSHFileOpStruct; FromBuffer, ToBuffer: Array[0..128] of Char; begin fillChar( OpStruc, Sizeof(OpStruc), 0 ); FillChar( FromBuffer, Sizeof(FromBuffer), 0 ); FillChar( ToBuffer, Sizeof(ToBuffer), 0 ); StrPCopy( FromBuffer, sPath); With OpStruc Do Begin Wnd:= hHandle; wFunc:=FO_DELETE; pFrom:= @FromBuffer; pTo:= @ToBuffer; fFlags:= FOF_NOCONFIRMATION; fAnyOperationsAborted:=False; hNameMappings:=nil; //lpszProgressTitle:=nil; End; ShFileOperation(OpStruc); end;

Utilize a funçăo assim:

procedure TForm1.Button1Click(Sender: TObject); begin DeleteDir( Self.Handle,'C:\TESTE'); end;

Abortando um Looping Delphi (For/While/Repeat) através de uma tecla

Esse é um problema que tenho encontrado em vários foruns.

var j : integer; begin for j:=0 to 9999999 do begin Label1.Caption := IntToStr(j) ; {.... coloque o contéudo do seu looping aqui ...} Application.ProcessMessages; {A tecla ESC para o Looping} if GetKeyState(VK_Escape) AND 128 = 128 then break; end; end;