Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Internet (https://www.clubdelphi.com/foros/forumdisplay.php?f=3)
-   -   Copia de ficheros desde un ftp (https://www.clubdelphi.com/foros/showthread.php?t=87800)

lgarcia 26-02-2015 15:06:45

Copia de ficheros desde un ftp
 
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 26-02-2015 18:23:27

Copia de ficheros desde un ftp
 
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 26-02-2015 18:30:04

Copia de ficheros desde un ftp
 
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 26-02-2015 18:38:14

Actualizar esta página Responder a Tema
 
Estan los componentes ICS >> http://www.overbyte.be/frame_index.html
yo actualmente uso los componentes INDY y no he tenido problemas.

Saludos.

lgarcia 26-02-2015 18:57:08

Copia de ficheros desde un ftp
 
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 26-02-2015 20:06:51

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.


La franja horaria es GMT +2. Ahora son las 10:19:12.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi