Exibir mensagem anterior :: Exibir próxima mensagem |
Autor |
Mensagem |
rvercesi Mestre


Registrado: Segunda-Feira, 29 de Novembro de 2010 Mensagens: 912 Localização: Curitiba / PR
|
Enviada: Ter Jul 19, 2011 8:21 am Assunto: Comparação de Datas de Arquivos em FTP [RESOLVIDO] |
|
|
EU possuo uma lista de arquivos que eu necessito atualizar caso a data dos arquivos que estão em um FTP sejam mais recentes!
Alguém saberia me dizer como faço para pegar a data e hora de arquivos de um FTP sem ter que baixá-los?
Editado pela última vez por rvercesi em Seg Jul 25, 2011 10:58 am, num total de 1 vez |
|
Voltar ao Topo |
|
 |
imex Moderador

Registrado: Sexta-Feira, 7 de Janeiro de 2011 Mensagens: 11666
|
Enviada: Ter Jul 19, 2011 3:11 pm Assunto: |
|
|
Você está utilizando Indy? Qual versão?
Editado pela última vez por imex em Seg Dez 04, 2023 12:08 pm, num total de 1 vez |
|
Voltar ao Topo |
|
 |
rvercesi Mestre


Registrado: Segunda-Feira, 29 de Novembro de 2010 Mensagens: 912 Localização: Curitiba / PR
|
Enviada: Qua Jul 20, 2011 8:59 am Assunto: |
|
|
Eu tenho instalado aqui o Indy 10.
Na verdade ainda nem começei a programar ainda.
Não sei ainda nem por onde começar! |
|
Voltar ao Topo |
|
 |
imex Moderador

Registrado: Sexta-Feira, 7 de Janeiro de 2011 Mensagens: 11666
|
Enviada: Qua Jul 20, 2011 10:06 am Assunto: |
|
|
Para obter a data da modificação de um arquivo no servidor FTP você pode utilizar o seguinte código:
Código: | procedure TForm1.Button1Click(Sender: TObject);
var
IdFtp1: TIdFtp;
DataHora: TDateTime;
begin
IdFtp1 := TIdFtp.Create(nil);
try
IdFtp1.Host := 'ftp.dominio.com.br';
IdFtp1.Username := 'username';
IdFtp1.Password := 'password';
IdFtp1.Connect;
try
IdFtp1.ChangeDir('/nomedodiretorio');
DataHora := IdFtp1.FileDate('nomedoarquivo.ext');
finally
IdFtp1.Disconnect;
end;
ShowMessage(DateTimeToStr(DataHora));
finally
IdFtp1.Free;
end;
end; |
Espero que seja útil. |
|
Voltar ao Topo |
|
 |
rvercesi Mestre


Registrado: Segunda-Feira, 29 de Novembro de 2010 Mensagens: 912 Localização: Curitiba / PR
|
Enviada: Sex Jul 22, 2011 5:02 pm Assunto: |
|
|
Imex, to com um problema para conectar ao FTP
Está me dando
Código: | Socket Error #11004 |
Saberia me dizer o que é esse erro?
Código: | IdFtp1 := TIdFtp.Create(nil);
slArquivos := TStringList.Create;
slBaixar := TStringList.Create;
try
IdFtp1.Host := 'ftp://187.7.131.35/';
IdFTP1.Port := 21;
IdFtp1.Username := 'anonymous';
IdFtp1.Password := 'senha@teste.com';
IdFtp1.Connect; |
|
|
Voltar ao Topo |
|
 |
imex Moderador

Registrado: Sexta-Feira, 7 de Janeiro de 2011 Mensagens: 11666
|
Enviada: Sex Jul 22, 2011 5:37 pm Assunto: |
|
|
No meu caso configuro a propriedade Host com o domínio, nunca utilizei pelo IP. Vou chutar... experimente retirar a última barra da direita ou só com o número do IP.
Espero que ajude. |
|
Voltar ao Topo |
|
 |
|