[APOIO] automatizar uma condição de verificação ( if FileExists)
2 participantes
Página 1 de 1
[APOIO] automatizar uma condição de verificação ( if FileExists)
e ai galera ...
assim como varios amigos ... estamos a cada dia aprendendo e Delphi...
criei um interface para monitorar arquivos recebidos da central, onde verifica em uma determinada pasta se consta
arquivos e mostra data e hora de criação do arquivo.
esta funcionando perfeitamente, mas agora queria customizae e ao invez de so fazer a verificação ao clicar no botao, deixar a cada 2 minutos roda automatico,, um loop se nao me engado...
segue a condição abaixo. No mais agradeço o apoio...
if FileExists (diretorio1) then // verifica se o arquivo existe
Memo1.lines.add (localidade1+ ' - OK ') // se existir mostra em um Memo que esta OK
else
Memo2.lines.add (localidade1 + ' - sem arquivo '); // se nao existir mostra em um Memo sem arquivo
NomedoArquivo := diretorio1; //Local do Arquivo 1 criaado no arquivo.ini
DatadoArquivo := FileAge(diretorio1);
if DatadoArquivo > -1 then
Label8.Caption := localidade1 + (' - ' + DateToStr(FileDateToDateTime(DatadoArquivo))); // mostra em um Label o nome da localidade e data e hora de criação do arquivo
assim como varios amigos ... estamos a cada dia aprendendo e Delphi...
criei um interface para monitorar arquivos recebidos da central, onde verifica em uma determinada pasta se consta
arquivos e mostra data e hora de criação do arquivo.
esta funcionando perfeitamente, mas agora queria customizae e ao invez de so fazer a verificação ao clicar no botao, deixar a cada 2 minutos roda automatico,, um loop se nao me engado...
segue a condição abaixo. No mais agradeço o apoio...
if FileExists (diretorio1) then // verifica se o arquivo existe
Memo1.lines.add (localidade1+ ' - OK ') // se existir mostra em um Memo que esta OK
else
Memo2.lines.add (localidade1 + ' - sem arquivo '); // se nao existir mostra em um Memo sem arquivo
NomedoArquivo := diretorio1; //Local do Arquivo 1 criaado no arquivo.ini
DatadoArquivo := FileAge(diretorio1);
if DatadoArquivo > -1 then
Label8.Caption := localidade1 + (' - ' + DateToStr(FileDateToDateTime(DatadoArquivo))); // mostra em um Label o nome da localidade e data e hora de criação do arquivo
limark matos- Membro
- Mensagens : 2
Data de inscrição : 11/08/2011
Idade : 45
Localização : BRASILIA
Re: [APOIO] automatizar uma condição de verificação ( if FileExists)
Uma ideia legal seria tipo tu deixar o botão, assim se o cara quiser ver uma mudança naquele momento só precisaria clicar nele. Já em relação aos 2 minutos vc pode usar o componente Timer, ele fica na aba system. Ele funciona em milissegundos, então seria 120000 pelos meus caculos. Nele vc pode selecionar para executar a procedure do botão ou então use o código [nome do botão].click.
Re: [APOIO] automatizar uma condição de verificação ( if FileExists)
blz...
vou testar o componente Time, porem o programa ja tem um botao onde o usuario clica, e as verificações sao pontuais... conforme sugerida....
valeu amigo...
vou testar o componente Time, porem o programa ja tem um botao onde o usuario clica, e as verificações sao pontuais... conforme sugerida....
valeu amigo...
Luiz Henrique escreveu:Uma ideia legal seria tipo tu deixar o botão, assim se o cara quiser ver uma mudança naquele momento só precisaria clicar nele. Já em relação aos 2 minutos vc pode usar o componente Timer, ele fica na aba system. Ele funciona em milissegundos, então seria 120000 pelos meus caculos. Nele vc pode selecionar para executar a procedure do botão ou então use o código [nome do botão].click.
limark matos- Membro
- Mensagens : 2
Data de inscrição : 11/08/2011
Idade : 45
Localização : BRASILIA
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
Seg Jul 27, 2015 11:42 am por Fredyffp
» Fontes Sistema Store Protheus 7.0 - Versão completa Delphi XE7
Sáb Jul 18, 2015 10:18 am por storeprotheus
» Fontes Sistema Store Protheus 7.0 - Versão completa Delphi XE7
Sáb Jul 18, 2015 10:17 am por storeprotheus
» Como gravar um campo Blob no FireBird + Delphi de um campo tipo imagem no MS-ACCESS ?
Qui maio 14, 2015 3:41 pm por ant.carlos/sp
» Exception EBDEngineError
Sex Fev 27, 2015 6:52 am por luan_cpd
» Exception EBDEngineError
Sex Fev 27, 2015 6:49 am por luan_cpd
» Componente Delphi Brasil
Sex Jan 23, 2015 11:51 am por pedrosilva
» Erro no Delphi “A linha não pode ser localizada para atualiz
Sex Out 24, 2014 11:47 am por Edson
» Fontes Automação Comercial 8.5 - Retaguarda c/ PDV, PAF 1.10, TEF, ECF, Sintegra, SpedFiscal, Google Maps e muito mas...
Ter Out 14, 2014 9:55 am por john marcos