Ver Mensaje Individual
  #15  
Antiguo 05-10-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola jhonalone.

Bueno, en principio parece que hay algo mal con tus componentes Indy.

Acabo de hacer una prueba con las direcciones que publicaste,
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  msg: string;
begin
  msg:= Format('Contacto.php: %s%s%sHISTO1.DAT: %s',[
     DateTimeToStr(GetInternetFileDateTime('http://www.jmms.es/Contacto.php')),
     #10#13,#10#13,
     DateTimeToStr(GetInternetFileDateTime('http://www.jmms.es/HISTO1.DAT'))
  ]);
  MessageBox(Handle,PChar(msg),'',MB_OK);
end;
Resultado:



Es claro que existe un problema en la obtención de la fecha de "Contacto.php", pero en ningún momento obtengo errores como en tu caso (de todos modos tenes la alternativa de obtenerlas usando funciones de la API de windows como en el ejemplo que te publicó Nelson).

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita