Aplicações Console

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (2)  (0)

Veja neste artigo de Everson Volaco, uma Introdução à criação de aplicações console no Delphi.

Introdução à criação de aplicações console no Delphi

 

Neste artigo veremos uma pequena introdução à criação de aplicações não gráficas com Delphi. Aplicações console não possuem formulários, interface gráfica, elas rodam dentro de uma janela do MSDOS. Normalmente esse tipo de aplicação não possui nenhuma interação com o usuário, possuindo certa limitação para execução de determinadas funcionalidades. No entanto, aplicações console, como aplicações gráficas, permitem que você interaja com banco de dados usando os componentes de acesso a dados como dbExpress, IBExpress, etc. Você pode ainda criar Data Modules para armazenar seus componentes de acesso e pesquisa a base de dados.

Funcionamento

Para criar uma aplicação console no Delphi, escolha a opção File|New|Other a partir do menu principal e dentro da aba New selecione Console Application. O Delphi cria um arquivo de projeto (extensão .dpr) contendo a diretiva {$APPTYPE CONSOLE} dentro dele. Essa diretiva diz ao compilador para gerar uma aplicação do tipo Win32 Console. Nota: Por padrão, o Delphi traz a diretiva de controle {$APPTYPE GUI}, que é seu valor default. Está diretiva informa ao compilador para gerar uma aplicação gráfica (UI Application).

Veja a estrutura básica de uma aplicação console a seguir:

 

program Project2;

{$APPTYPE CONSOLE}

uses

SysUtils;

begin

end.

 

Dentro desse arquivo gerado pelo Delphi você pode declarar variáveis, implementar métodos (procedures e functions) e definir classes com seus atributos, propriedades e métodos normalmente.

Exemplo

Para o exemplo deste artigo vamos construir uma aplicação console contendo as funcionalidades básicas de uma calculadora. Está aplicação fará interação com o usuário para que o mesmo possa informar à operação que deseja executar, como também os valores a serem calculados. Inicie uma nova aplicação console (File|New|Other...|Console Application) e salve o arquivo de projeto com o nome de CalculatoraConsole.dpr. Crie uma nova unit (File|New|Unit) e salve-a como untFuncoes. Por questão de organização apenas, criaremos os métodos da calculadora dentro desta unit, e utilizaremos o arquivo de projeto apenas para fazer a chamada a esses métodos. Dentro da unit untFuncoes nós teremos três métodos:

- operadorValido: método utilizado para validar se o valor informado pelo usuário é um operador válido.

- valorValido: método utilizado para validar se o valor informado pelo usuário é um número válido.

- calcular: método utilizado para realizar o cálculo requisitado pelo usuário.

Selecione a unit untFuncoes (View|Units...|untFuncoes) e entre com o seguinte código:

 

Obs: A listagem abaixo traz o código fonte completo da unit untFuncoes.pas.

 

unit untFuncoes;

interface

 

function operadorValido(const pOperador: String) : Boolean;

function valorValido(const pValor: String; const pIndex : Smallint) : Boolean;

function calcular: Double;

 

implementation

 

uses SysUtils; //Declaração utilizada devido ao uso do método TryStrToFloat

 

var

    vOperador : Char; //Variável que receberá o operador informado pelo usuário (+,-,/,*)

    vValor1, vValor2 : Double; //Variáveis que armazenarão os valores informados pelo usuário

 

function operadorValido(const pOperador : String) : Boolean;

begin

      Result := (pOperador <> '') and ((pOperador[1] = '+') or

                    (pOperador[1] = '-') or (pOperador[1] = '/') or (pOperador[1] = '*'));

      if Result then vOperador := pOperador[1]; //Retorna o primeiro caracter digitado pelo usuário

end;

 

function valorValido(const pValor : String; const pIndex : Smallint) : Boolean;

begin

      case pIndex of

      1: Result := TryStrToFloat(pValor, vValor1); //Verifica se o primeiro valor é numérico

      2: Result := TryStrToFloat(pValor, vValor2); //Verifica se o segundo valor é numérico

      else

           Result := False;

      end;

end;

 

function calcular : Double;

begin

       case vOperador of

           '+': Result := vValor1 + vValor2;

           '-': Result := vValor1 - vValor2;

           '/': Result := vValor1 / vValor2;

           '*': Result := vValor1 * vValor2;

       else

           Result := 0.0;

       end;

end;

 

end.

 

Após implementarmos os métodos de nossa calculadora console, precisamos agora codificar o arquivo de projeto (dpr) para que possamos solicitar ao usuário os parâmetros para execução do cálculo. Em aplicações console utilizamos o método Write e WriteLn (escreve e pula uma linha) para escrever valores de saída dentro da janela console. Para fazer a leitura de valores utilizamos os métodos Read e ReadLn (Lê e pula uma linha). Selecione o arquivo de projeto (Project|View Source) e entre com o seguinte código:

 

Obs: A listagem abaixo traz o código fonte completo do arquivo de projeto CalculadoraConsole.dpr. 

 

 

program CalculadoraConsole;

 

{$APPTYPE CONSOLE}

 

uses

    SysUtils,

    untFuncoes in 'untFuncoes.pas';

 

var

    vEntrada : String; //Variável que receberá a entrada do teclado do usuário

 

begin

    repeat

         Write('Entre com o operador para o calculo (+, -, /, *): ');

         ReadLn(vEntrada); //Lê o valor digitado na janela console

    until operadorValido(vEntrada); //Enquanto a entrada não for um operador válido

    repeat

         Write('Entre com o primeiro valor: ');

         ReadLn(vEntrada);

    until valorValido(vEntrada, 1); //Enquanto a entrada não for um valor numérico

    repeat

         Write('Entre com o segundo valor: ');

         ReadLn(vEntrada);

    until valorValido(vEntrada, 2); //Enquanto a entrada não for um valor numérico

    WriteLn('O resultado e: ' + FloatToStr(calcular)); //Efetua o calculo requisitado

    WriteLn(''); //Pula uma linha dentro da janela console

    WriteLn('Pressione Enter para sair');

    ReadLn;

end.

 

No código acima nós declaramos uma variável vEntrada para receber o valor digitado pelo usuário dentro da janela console (janela do MSDOS). Utilizamos o método operadorValido para verificar se o valor digitado é um operador válido ou não, onde, enquanto o valor for inválido a mensagem é impressa para o usuário entrar com um novo valor. Utilizamos em seguida, também dentro de um bloco repeat...until o método valorValido para verificar os valores digitados para o cálculo. Por fim, usamos o método calcular para imprimir na janela console o resultado da operação requisitada pelo usuário.

 

Obs: Caso você queira interromper uma aplicação console antes dela chegar ao seu fim, você pode utilizar uma das seguintes opções:

- Clicar no botão fechar da janela console (X)

- Pressionar as teclas Ctrl+C

- Pressionar as teclas Ctrl+Break

 

Compile (Ctrl+F9) e salve a aplicação. Você pode compilar a aplicação Console também por linha de comando executando:

 

DCC32 CalculadoraConsole

 

Figura 1. Compilando o projeto utilizando linha de comando

Rode a aplicação a partir do Delphi (F9) ou execute o arquivo CalculadoraConsole.exe para testar a aplicação. Veja a Calculadora em execução na Figura 2.

 

Figura 2. Aplicação Calculadora Console em tempo de execução

Conclusão

Vimos que a criação de aplicações console são bastante simples e podem vir a ajudar em determinadas situações. Este artigo foi uma pequena introdução ao uso de Console Application no Delphi; você pode criar aplicações muito mais complexas e com acesso a banco de dados. Um abraço e até a próxima.

Clique aqui para fazer Download

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Ficou com alguma dúvida?