Embutindo inteligência nos TFrames

Uma das coisas que sinto falta quando uso frames é a possibilidade de inicialização dos mesmos sem depender de códigos externos. Não sei porque cargas d'água Frames não tem eventos Oncreate e OnDestroy publicados.

Mas nada está perdido. Com alguns "truques" da POO é possível estender um frame de tal forma que o mesmo possa ser um pouco mais esperto.

Imaginemos uma situação hipotética aonde queremos um frame que seja capaz de exibir um dataset num DBGrid, abrir o dataset no momento da construção do form, e de fechá-lo no momento em que nosso form for destruído, sem nossa intervenção.

Já que um TFrame é herdado de TObject, com certeza o mesmo tem construtor e destrutor, e uma solução para resolver nosso problema e ter nosso frame mais independente é dar um override nesses métodos.

Criamos então nossos overrides para métodos já existentes e que serão chamados automaticamente e aproveitamos a oportunidade para fazer com que nosso frame se auto-inicialize e se auto-finalize, sem precisar intervir no frame quando formos usá-los em nossos forms.

Em nosso exemplo hipotético, nosso frame abre e fecha o dataset automaticamente, bastando apenas colá-lo em nosso form.

Com certeza essa técnica abre diversas possibilidades. 

Bom proveito...

Cansado do if-then-else?

Se você estiver cansado de digitar if-then-else toda hora, o Delphi tem uma função bacana de nome IfThen que permite fazer o que o nosso (aqui difamado) if-then-else faz em apenas 1 linha.

Veja na figura abaixo que, com o tradicional if-then-else temos 4 linhas abertas no código. Já com a função IfThen, temos apenas uma linha aberta, tornando nosso código menor e de leitura mais rápida.

O primeiro parâmetro da função é uma expressão booleana. Se ela for verdadeira, o segundo parâmetro será o retorno de IfThen. Caso ela seja falsa, o terceiro parâmetro passado será o retorno de nossa função.

O segundo e o terceiro parâmetros podem ser dos tipos:

• Integer
• Int64
• Double

Isso é possível porque há 3 overloads para a função IfThen na unit Math. O tipo de retorno da IfThen será de acordo com o tipo dos parâmetros passados (Integer, Int64 ou Double).

Vale ressaltar que os parâmetros também podem ser funções, desde que as mesmas retornem os tipos esperados pelos parâmetros da IfThen.

Para usar a função IfThen, inclua a unit Math na uses de sua unit.

Além da IfThen da unit Math, há uma implementação da IfThen na unit StrUtils. Nesse caso, o tipo de parâmentro esperado pela IfThen são strings e a função também retorna uma string.

Sei que pode parecer extranho o uso inicial da IfThen, mas com o tempo você vai gostar, assim como eu.

Bom proveito...

O que fazer com os arquivos que sua aplicação Intraweb gera?

Durante o desenvolvimento de uma aplicação Intraweb, tive a necessidade de gerar algumas planilhas Excel para que o usuário pudesse ter localmente uma série de informações apresentadas em um Grid.

Para gerar as planilhas em Excel, usei o componente TmxDataSetExport, um freeware bem simples e que atendeu às minhas necessidades de apenas salvar o conteúdo do Grid em um arquivo XLS.

Bastava gerar um nome de arquivo, fazer algumas configurações no nosso amigo mxDataSetExport, incluindo passar o nome do arquivo a ser gerado e meter bronca.

AddSlash é apenas um alias para
IncludeTrailingPathDelimiter, e digamos de passagem, é um porre ter que ficar
digitando IncludeTrailingPathDelimiter toda hora, né?

Tudo beleza!!! Arquivo Excel gerado no servidor e enviado pro usuário!!!

Beleza? Beleza nada, tua batata tá assando meu filho...

Você acha que o administrador do seu site/aplicação vai ter a bondade de todo dia ir lá na pasta Files e verificar se alguém esqueceu algum arquivo lá e apagar pra você? Então tá...

Duas semanas depois lá estão 2 mil arquivos Excel boiando sem dono no seu diretório Files...

A solução então é ter uma lista de todos os arquivos gerados durante a sessão do usuário e apagá-los quando a sessão terminar.

Mãos a obra:

• No IWUserSession, adicione uma proprieade de nome fFilesToDelete: TStringList para guardar os arquivos que a sua aplicação gerar. Uma propriedade privada é o ideal.


• Adicione também um método público de nome AddFileToDelete para que você possa acioná-lo cada vez que gerar um arquivo em sua aplicação.
  
• Adicione também um método privado de nome DeleteFiles, para que possamos deletar todos os arquivos guardados em fFilesToDelete.
  

Nossso IWUserSession resumido ficaria da seguinte forma:

DoDebug é uma rotina que uso para gerar um log de tudo que acontece
na minha aplicação. Note que a exceção gerada não é exibida para o usuário, pois
nesse caso não há necessida. Como bom desenvolvedor, sempre de praxe eu dou uma
conferida no arquivo de log pra ver se há algum problema na aplicação.

No evento OnDestroy de nosso IWUserSession, basta executar o método DeleteFiles. Ao fim da sessão do usuário, nossos arquivos serão então, deletados.

Durante o decorrer de sua aplicação, vá usando UserSession.AddFileToDelete(NomeDoArquivo) a medida que sua aplicação gerá-los.

Beleza? Agora sim...