[lgarcia]

hola:

Estoy haciendo un actualizador de un programa en Delphi 7, el cual al ejecutarse 1ro coge la fecha del fichero local, luego debe buscar la fecha del fichero que esta en el ftp y si es mas reciente sustituye el fichero local, se cierra y ejecuta el fichero, si es igual se cierra y ejecuta el fichero. Hasta ahi todo bien y para una carpeta compartida remota me trabajaba bien, con el siguiente codigo:

Código Delphi [-]
var
  fecha1, fecha2: TDateTime;

function GetFileDate(TheFileName: string): TDateTime;
var
 FHandle: integer;
begin
 FHandle := FileOpen(TheFileName, 0);
 try
   Result := FileDateToDateTime(FileGetDate(FHandle));
 finally
   FileClose(FHandle);
 end;
end;


procedure TFormMain.FormActivate(Sender: TObject);
begin
  try
    fecha1:= GetFileDate('EZDealers.exe');
    fecha2:= GetFileDate('\\192.0.0.25\Upload\Santiago\EZDealers.exe');
    if fecha2 > fecha1 then CopyFile(Pchar('\\192.0.0.25\Upload\Santiago\EZDealers.exe'), Pchar('EZDealers.exe'), False);
    Close;
    WinExec(PChar('EZDealers.exe'),SW_SHOWNORMAL);
  except
    Close;
    WinExec(PChar('EZDealers.exe'),SW_SHOWNORMAL);
  end;
end;

Estoy tratando de sustituir la linea correspondiente a la fecha2 por:
fecha2:= GetFileDate('ftp://192.0.0.25/Upload/Santiago/EZDealers.exe');

y cuando intento me da el error: Invalided argument for date encode

Como si no pudiera acceder al fichero, existe alguna forma de acceder a los ficheros de un ftp donde tenga permiso.

Saludos
Luis