Como usar arquivos '.gif' no Delphi

Para utilizar um arquivo do tipo '.gif' é necessário fazer o seguinte:

1º Inclua um componente da classe TImage no formulário ;

2º Faça o load do arquivo '.gif' na propriedade Picture do componente TImage ;

3º Defina em algum evento anterior a exibição do formulário a seguinte instrução:

TGIFImage( <TImage>.Picture.Graphic ).Animate := true ;

obs: A linha de código acima somente será disponível caso esteja declarada a unit GIFImg no uses.

Pronto, seu "gif" já estará funcionando.

Até+

Como usar o For..In

Qual a forma de usar a estrutura de repetição For..in?

Esta estrutura de repetição, opção ao "For..to..do", consiste em varrer uma coleção de dados, e então permite ao programador definir operações específicas com cada um dos dados obtidos.

Vamos aos exemplos de uso:

1º) Usando "String"

const Nome = 'Brasil'
var
     _letra: char

for _letra in Nome do
     showmessage( _letra ) ;

neste exemplo, defini uma constante de caracteres ("Brasil"). Na sequência defini uma variável do tipo 'char'.
O For..in internamente, identifica cada um dos dados na coleção referenciada após o in, e então a cada iteração é atribuída a variável antes do in, o dado em foco, algo assim:

na primeira iteração

[ B ] rasil

_letra := 'B'

na segunda iteração

B [ r ] asil

_letra := 'r'

na terceira iteração

Br [ a ] sil

_letra := 'a'

na quarta iteração

Bra [ s ] il

_letra := 's'

na quinta iteração

Bras [ i ] l

_letra := 'i'

na sexta iteração

Brasi [ l ]

_letra := 'l'

ou seja, a variável que recebe o dado contido na coleção, deve corresponder à menor parcela desta coleção. Neste exemplo, a constante é uma cadeia de caracteres, ou seja, uma String, sendo necessário que a variável "_letra" seja do tipo char.

2º) Usando "Integer"

const Numeros: array [0..2] of integer = ( 1, 2, 3 ) ;
var
     _numero: integer
for _numero in Numeros do     showmessage( IntToStr( _numero ) ) ;

no caso do trato de "integer" é necessário passar um array visto que se passemos um número "direto", como:

Numeros = 123

e tentasse varrer via For..in o compilador iria entender que não existe coleção mas sim um número qualquer.
Desta forma torna-se necessário separar os números em memória e atribuí-los ao mesmo identificador, no caso, a constante "Numeros".

O funcionamento de varredura é exatamente o mesmo aplicado no primeiro exemplo.

Espero que este conteúdo seja útil!

Até +

Simular algum cenário em DEBUG

Como testar uma determinada situação sem ter que inserir valores através da interface gráfica? Vou mostrar um exemplo.

Como sempre, usarei um exemplo simples para demonstrar o uso de Diretivas de compilação na simplificação de testes, porém existem outras formas de se fazer testes. Vamos lá!

A título de teste, criei uma função chamada "IsNumber", que basicamente verifica se um determinado char recebido como parâmetro é um número, segue a declaração da função:

function IsNumber( loChar: char ): boolean ;

Após isto, no evento "OnClick" de um botão qualquer, faço um teste:

procedure TfrmMain.btnIsNumberClick(Sender: TObject);

begin

     showmessage( ifThen( IsNumber( '1' ), 'É um número', 'Não é um número' ) );

end;

// falei sobre ifThen neste post...

Porém existem situações muito mais complexas, que existem muito mais que um input, neste caso, seria muito trabalhoso ficar preenchendo campos e etc...precisamos testar a função o mais rápido possível dependendo do projeto. Para isso, podemos automatizar o teste, condicionando esta operação ao modo como a aplicação está sendo compilada: DEBUG ou RELEASE.

Veja como é a implementação da função "IsNumber":

function TfrmMain.IsNumber(loChar: char): boolean;

begin

     result := loChar in ['0'..'9'] ;     

end;

Agora, vou incluir o preenchimento do parâmetro "loChar" dentro da própria função, quando a forma de compilação estiver em DEBUG:

function TfrmMain.IsNumber(loChar: char): boolean;

begin

     {$IFDEF DEBUG}

     loChar := 'a' ;

     {$ENDIF}

     result := loChar in ['0'..'9'] ;

     {$IFDEF DEBUG}

     showmessage( ifThen( result, 'É um número', 'Não é um número' ) );

     {$ENDIF}

end;

Veja que coloquei a verificação de "Debug" em dois momentos. Para resumir, quando o projeto estiver em modo "Debug", não será necessário passar nenhum valor como parâmetro para a função "IsNumber", visto que internamente já existe a alimentação deste parâmetro.

Espero que seja útil!

Até+

 

Como obter a classe ancestral?

Durante a execução de um projeto surgiu uma dúvida: "Como saber qual a classe exatamente ancestral a que eu criei?"

Acredito que esta situação seja comum para muitos programadores, que assim como eu, estão nesta jornada.

Para mostrar a solução, vou usar um exemplo:

* Crio uma classe chamada "TNomeStringField", ela deriva de "TStringField", segue a declaração:

  TNomeStringField = class( TStringField )

  end ;

* Declaro um "objeto" do tipo TNomeStringField :

var

     TNome: TNomeStringField ;

* Instancio o objeto de fato:

TNome := TNomeStringField.Create( self ) ;

* Para obter o nome da class do objeto TNome, faça o seguinte:

showmessage( TClass( TNome.ClassType ).ClassName ) ;

* Para obter o nome da class exatamente ancestral à que eu criei:

if TNome.ClassParent <> nil then showmessage( TNome.ClassParent.ClassName ) ; 

obs: Veja que antes de obter o valor de ClassParent, fiz a verificação se esta propriedade era diferente de nil.

É isso!

Até+

Explanação sobre a função IfThen

A função IfThen é útil quando deve-se exibir uma mensagem de acordo com o cenário!

É muito comum nos deparamos com situações em que temos que exibir uma mensagem ao usuário, de acordo com alguma informação obtida após determinado processamento, a fim de deixar o usuário ciente de alguma situação, exemplo:

if loMedia >= 7 then
begin
     showmessage( 'O aluno foi aprovado!' ) ;
end else
begin
     showmessage( 'O aluno foi reprovado!' ) ;
end ;

esta é uma forma bem comum de apresentar uma mensagem de acordo com algum dado. Porém, existe uma forma mais simples de fazê-lo. É através da função IfThen. Usando o exemplo assim, porém através da função IFThen, ficaria assim:

primeiramente declare a biblioteca StrUtils, na seção Interface, após uses.

showmessage( ifThen( loMedia >= 7, 'O aluno está aprovado!', 'O aluno está reprovado!' ) )  ; 

Explicações:

A função IfThen tem os seguintes parâmetros:

- AValue: Boolean // Condição
- const ATrue: string // Retorno da função caso a condição seja TRUE
- AFalse: string = '' // Retorno da função caso a condição seja FALSE (Default é "Vazio")

ficando assim:

IfThen(AValue: Boolean; const ATrue: string; AFalse: string = ''): string;

Espero que seja útil.

Até +

Como criar um ClientDataSet em runtime

Para quem quiser saber como criar um ClientDataSet em runtime!

Existe um velho pré conceito de que programadores RAD não sabem criar componentes em runtime, ou seja, apenas arrastam o componente "dataset" e soltam no form. Pode até ser muito usado, mas saibam que é possível fazer isso também em runtime, e vou explicar agora.

Primeiramente:

Declare na seção interface, após o uses a unit DBClient ;

Após isto, declare uma propriedade chamada FCDSItensVenda do tipo TClientDataSet, por exemplo:

     TfrmMain = class(Tfrm)
     private
          FCDSItensVenda: TClientDataSet ;
     public
          procedure afterConstruction ; override ;
     end;

Na sequência, no método afterConstruction, seguindo o exemplo acima, inclua as seguintes linhas:

procedure TfrmMain.afterConstruction;
begin
     inherited;
     FCDSItensVendas := TClientDataSet.Create( application ) ;
     with FCDSItensVendas.FieldDefs do
     begin
          add( 'NumItem', ftString, 3 ) ;
          add( 'Codigo', ftString, 13 ) ;
          add( 'Descricao', ftString, 60 ) ;
          add( 'Qtd', ftFloat ) ;
          add( 'Vl.Unit', ftCurrency ) ;
          add( 'SubTotal', ftCurrency ) ;
     end ;
     FCDSItensVendas.CreateDataSet ;
end;

Explicações:

FCDSItensVendas := TClientDataSet.Create( application ) ; // Aqui eu crio o objeto FCDSItensVendas

with FCDSItensVendas.FieldDefs do // aqui eu pré fixo o ponteiro na "lista de campos" do objeto FCDSItensVendas

add( 'NumItem', ftString, 3 ) ; // aqui eu crio um campo chamado "NumItem" do tipo "String" cujo tamanho é '3' (três).

FCDSItensVendas.CreateDataSet ; // por fim, monto a estrutura "DataSet", ou seja, instancio uma tabela em memória.

Espero que seja útil!

Até +

A SEFAZ do Ceará disponibilizou um emissor gratuito de MF-e

A SEFAZ-CE disponibilizou uma AC gratuita para empresas de pequeno porte!

Segundo a SEFAZ do Ceará, este AC é voltado para empresário de pequeno porte, porém o processo de ativação é o mesmo que outras empresas seguem.

* Link para download do aplicativo gratuito:

www.sefaz.ce.gov.br/content/aplicacao/internet/download/projetomfe/InstaladorACSefaz_01.03.21_windows.zip

Fontes:
http://www.sefaz.ce.gov.br/content/aplicacao/internet/noticias/enviados/noticia_detalhes.asp?nCodigoNoticia=822

http://cfe.sefaz.ce.gov.br/mfe/informacoes/downloads#/

Até +

SEFAZ do Ceará disponibilizou as Web Services do ambiente de Produção para emissão de NF-e 4.00

A SEFAZ-CE disponibilizou as WS para o ambiente de Produção (tpAmb=1)!!!


Para quem precisa, seguem os endereços:

* Autorização:
https://nfe.sefaz.ce.gov.br/nfe4/services/NFeAutorizacao4?WSDL

* RetAutorização:
https://nfe.sefaz.ce.gov.br/nfe4/services/NFeRetAutorizacao4?WSDL

* Inutilização:
https://nfe.sefaz.ce.gov.br/nfe4/services/NFeInutilizacao4?WSDL

* Consulta protocolo:
https://nfe.sefaz.ce.gov.br/nfe4/services/NFeConsultaProtocolo4?WSDL

* Status do Serviço:
https://nfe.sefaz.ce.gov.br/nfe4/services/NFeStatusServico4?WSDL

* Consulta de cadastro:
https://nfe.sefaz.ce.gov.br/nfe4/services/CadConsultaCadastro4?WSDL

* Recepção de evento:
https://nfe.sefaz.ce.gov.br/nfe4/services/NFeRecepcaoEvento4?WSDL


Fonte: http://nfe.sefaz.ce.gov.br/pages/informacoes/web_services.jsf

Até +

Como instalar o Fortes report?

Este framework de relatórios é muito bom, principalmente para quem usa ACBr.

Vou mostrar como instalar o framework "Fortes report".

/* Vou considerar que você já tem algum SVN Client instalado em seu computador (TortoiseSVN, por exemplo) */

1º Passo: Crie um diretório em local da sua preferência, porém o nome do diretório tem que remeter ao Fortes reporte, exemplo: "FORTES" ou "Fortes_report" e etc...

2º Passo: Clique com o botão direito do mouse sobre o diretório recém criado, e então será exibido um pop up, nele você deve clicar em "SVN checkout" (no caso do TortoiseSVN) ;

3º Passo: Na janela "Checkout" que foi exibida, clique no campo "URL of repository:" e insira o seguinte endereço:

https://github.com/fortesinformatica/fortesreport-ce.git

e então clique em "OK" ;

Automaticamente será inicializado o processo de download dos arquivos referentes ao projeto "Fortes". Ao fim, clique em "OK" ;

4º Passo: Acesse o seguinte diretório: <Diretório "Fortes"> \ trunk; Execute o seguinte programa "frceInstall.exe".

Será exibida a janela "Instalador FortesReport Community Edition"

Clique em "Próximo"

Confira se a versão do Delphi está correta, próximo, clique novamente em próximo, clique em "Próximo" e novamente em "Próximo" ;

Clique em "Instalar" ;

Após algum tempo, se tudo estiver correto será exibida a janela informando "Pacotes compilados e instalados com sucesso! Clique em "Próximo" para finalizar a instalação", clique em "OK"

Após clicar em "Próximo", clique em "Finalizar"

Pronto, o Fortes está instalado em seu computador!

Até+

Como evitar produtos de compilação com nomes redundantes

Um exemplo clássico!!!!

Você criar um projeto server COM+, e no final o arquivo gerado fica com o seguinte nome:

"empresa.nomeprojeto.dll.dll"

esquisito né! ".dll.dll"

Para resolver isto é necessário fazer o seguinte:

Com o Delphi aberto, e seu projeto ou grupo de projetos, aberto, clique sobre o ícone do projeto que ao ser compilado gerado a '.dll' ou '.exe' de nome redundante.

Pressione simultaneamente as teclas CTRL + V.

Será exibida a janela do projeto.

Após a diretiva "{$R *.RES}", digite o seguinte "{$E ''}" // são dois apóstrofos, sem espaço.

Compile o projeto, e ao abrir o diretório configurado para receber o produto de compilação, verá que um novo produto foi gerado, desta vez com o nome alterado para:

"empresa.nomeprojeto.dll"

Obs: A diretiva $E tem como finalidade alterar a extensão do produto gerado no processo de compilação.

Até+