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