Copia de ficheros desde un ftp

[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

[bitbow]

Hola, los componentes de FTP tienen funciones para obtener la fecha del mismo, no indicas que componentes usas para la conexion al FTP.

Ejemplo >> FTP.FileDate(FielName)

Saludos.

[lgarcia]

Precisamente no se cual componente utilizar, si me puedes indicar alguno te lo agradeceré y si están en la paleta de Deplhi mejor.

Muchas gracias por la respuesta.

Saludos
Luis

[bitbow]

Estan los componentes ICS >> http://www.overbyte.be/frame_index.html
yo actualmente uso los componentes INDY y no he tenido problemas.

Saludos.

[lgarcia]

Yo estaba mirando en la paleta Indy Clients y Indy Server que hay 2 relativos a ftp, pero nunca he trabajado con ellos, agradecería mucho si pudieras darme un ejemplo donde esos componente accedan a un fichero de un ftp y el tratamiento de la fecha.

Saludos
Luis

[Ñuño Martínez]

También puedes probar la biblioteca Synapse. Pueden usarse tanto con Free Pascal como con Delphi. La estoy usando en un proyecto y funciona de lujo.