FIX: FTP - build under Linux 32 bit

This commit is contained in:
Alexander Koblov 2018-05-16 20:55:29 +00:00
commit 8abc3d779b

View file

@ -591,7 +591,7 @@ begin
end;
// set Unix permissions
FindData.dwReserved0 := TFTPListRecEx(FtpList.Items[I]).Mode;
FindData.ftLastWriteTime := TWfxFileTime(DateTimeToFileTime(FtpList.Items[I].FileTime));
FindData.ftLastWriteTime := TWfxFileTime(DateTimeToWinFileTime(FtpList.Items[I].FileTime));
Inc(FtpList.FIndex);
Result := True;
end;