Fecha Modificacion fichero

[ecfisa]

Empezado por nlsgarcia

Pregunto: ¿El servidor Web permite tener acceso para este tipo de consultas a los archivos .php en cuestión?

He usado con anterioridad muchas veces ambos modos (Indy y WinInet) sin inconvenientes y coincido con vos en pensar que el problema que tiene pueda deberse a razones de permisos.

Sería interesante que jhonalone pusiera alguna cadena, de las que usa y le dan problemas, para poder hacer pruebas mas concretas.

Saludos

[jhonalone]

Hola amigos.
Yo tambien he sospechado que el problema con las extensiones .php debe ser una protección del servidor. De todos modos, no necesito, (de momento), utilizar la fecha de modifición de este tipo de ficheros.

Inclyo a continuación el código que me da problemas con las dos funciones, en las pruebas que he hecho. Así podéis probar vosotros con las mismas cadenas url. Con Indy no he conseguido más que el error comentado y con WinInet, os recuerdo que, savo las extensiones .php no me da ningún problema.

Código Delphi [-]
var
   Url : String;
   LastModifiedDate : String;
begin
Url := 'http://www.jmms.es/Contacto.php';
    LastModifiedDate := FormatDateTime('yyyy/mm/dd hh:mm:ss',GetLastModifiedDate(Url));
    MessageDlg(LastModifiedDate,mtInformation,[mbOK],0);
ShowMessage(' Fecha ultima modificacion = '+
                DateTimeToStr(GetInternetFileDateTime('http://www.jmms.es/HISTO1.DAT')));
end;

[ecfisa]

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

[[nlsgarcia]]

jhonalone,

Empezado por ecfisa

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

Pregunto:

1- ¿Que versión de Windows utilizas?, ¿Es de 32 ó 64 bits?.

2- ¿Que versión de Delphi utilizas?.

Revisa esta imagen:



Los resultados anteriores son obtenidos con el código sugerido en el Msg #6 (Componentes Indy) y son análogos a los presentados en el Msg #15, sin que ocurriera ningún tipo de error durante la ejecución.

Espero sea útil

Nelson.

[jhonalone]

Como ya os comenté, con los componentes de WniInet obtengo los mismos resultados que vosotros. El problema puede estar en los componentes Indy.

Uso Windows XP Professional y Delphi7, que los tengo instalados en un ordenador de sobremesa que ya utilizo muy poco.

Usaré WinInet. El tema de la fecha en las extensiones .php, sospecho que debe ser alguna protección del servidor.

Saludos y muchas gracias a ambos por vuestra ayuda.