Ajuda Delphi URGENTE!

Question

Seguinte amigos precisso fazer uma ferramenta no del&#7765;hi e esta meio complicado aqui bom vamos la..Precisso de um programa que fique rodando no sistema ele vai ter a fun��o de monitora um diretor...

Woinch · Answer

- Primeiro voc� precisar� de um componente TTimer. Defina a ele um intervalo e ao executar o programa mude sua propriedade Active para True.

- No evento OnTimer desse componente, voc� precisar� montar uma fun��o que varre esse diret�rio. Para isso utilize o objeto TSearchRec (d�vidas referente a utiliza��o, basta procurar aqui mesmo no f�rum).

- Para extrair a data de cria��o do arquivo basta utilizar a seguinte fun��o:

function GetFileDate(Arquivo: String): String;
var
FHandle: integer;
begin
FHandle := FileOpen(Arquivo, 0);
try
Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle)));
finally
FileClose(FHandle);
end;
end;

- Para enviar e-mails via Delphi, utilize os componentes TIdMessage e TIdSMTP do Indy (para um exemplo de utiliza��o, basta fazer uma busca aqui no f�rum tamb�m).

PS: N�o estou entrando em contato com voc� via MSN, pois acho que sua d�vida um dia pode ser a mesma d�vida de outra pessoa. Portanto qualquer d�vida favor responder aqui mesmo no t�pico.

Espero ter ajudado.

B470-killer · Answer

Opa ent�o precisso pegar esse esquema de como fazer essa varredura no diretorio so isso o resto eu ja mentei. so to me matutando com isso. de quando algum arquivo for pro diretorio ele pega o nome do arquivo que foi enviado pro diretorio e manda por email.

Woinch · Answer

Utilizando a pesquisa do f�rum com as palavras-chaves que falei acima voc� conseguir� com certeza.

Qualquer d�vida favor retornar.
PS: Assim que desenvolver uma solu��o poste ai pro pessoal ver como ficou! ;)

Woinch · Answer

Existem diversas maneiras para fazer a verifica��o mencionada.
Voc� pode remover e/ou mover para outra pasta o arquivo ap�s o envio do e-mail, pode tamb�m renomear o arquivo e colocar algum simbolo que indique que j� foi enviado o e-mail. Exemplo: Colocar um OK_ no come�o ou tamb�m gravar em um outro arquivo (fora desse diret�rio) todos os arquivos j� enviados e na varredura, verificar se o arquivo est� ou n�o nesse outro arquivo para dai enviar.

Wdrocha · Answer

Vc tbm pod usar uma hook procedure. Outro dia eu li sobre uma hook que fica monitorando as pastas do sistema, por exemplo, saber qdo uma pasta foi copiada, recortada, qdo algum arquivo foi movido ou copiado para determinada pasta.

Tenho certeza que tbm seria uma forma bastante pr�tica de se fazer isso.

Fica aew a dica d Hook Procedure.

flw

Wdrocha · Answer

Aq tem algo a respeito do q acabei d falar...tem at� um componente e um exemplo....[url]//delphi.about.com/od/kbwinshell/l/aa030403a.htm[/url]espero ter ajudado....flw...

F�rum Ajuda Delphi URGENTE! #369737