Este é um post disponível para assinantes MVPou para quem possui Créditos DevMedia. Clique aqui para saber mais!
Artigo Clube Delphi Edição 46 - Pesquisa de Arquivos
Artigo da Revista Clube Delphi Edição 46.
Atenção: por essa edição ser muito antiga não há arquivo PDF para download. Os artigos dessa edição estão disponíveis somente através do formato HTML.
Pesquisa de Arquivos
Busca rápida com mFileScan e APLs do Windows
A VCL, como sabemos, não possui componentes para realizar a busca direta de arquivos no disco. Para realizar tal tarefa o programador deve usar diversas rotinas de tratamento de arquivos do Delphi, como o FindFirst, FindNext, CloseFile, etc., o que é pouco produtivo. Pensando nisso, o sueco Mats Asplund criou o componente mFileScan, que auxilia na pesquisa de arquivos no disco ou em uma unidade de rede.
Criaremos um exemplo utilizando este componente, além de explorar uma biblioteca de manipulação de arquivos e outros componentes criados pelo mesmo autor.
Instalação e Configuração
O componente mFileScan é freeware e vem com o código fonte. Para instalá-lo, acesse o site go.to/masdp, clique na seção Components, depois em System, files e baixe o componente. Descompacte o arquivo para um diretório à sua escolha. Como o componente é distribuído somente com o arquivo .pas, vamos criar um pacote para ele no Delphi. Abra o Delphi e clique em File\New>Other. Em seguida, clique na aba New e escolha Package. Salve o pacote, clique em Options e na aba Description digite “Componente FileScan”. Essa descrição é a que aparece na lista de pacotes instalados (acessada a partir do menu Component\InstallPackages). Ainda nas opções do projeto, clique na aba Directories/Conditionals e configure as opções como a seguir:
Este é um post disponível para assinantes MVPou para quem possui Créditos DevMedia. Clique aqui para saber mais!
Luciano Pimenta
é acadêmico do curso de Sistemas de Informação (Unifra), Técnico em Processamento de Dados, Editor Técnico da Revista ClubeDelphi e desenvolvedor da SIG – Soluções em Informática e Gestão Ltda em Santa Maria-RS, onde atua no desenvolvimento de soluções multicamadas.
