6 replies to this topic

[escafandra]

En ocasiones nos hace falta reservar espacio en el HD en forma de un archivo vacío pero que ocupe cierto espaco en el disco.

En ANSI C disponemos de la función chsize. La API de Windows nos permite realizar la misma operación con archivos reservando tamaño incluso mayor que 4.294.967.295 bytes. En este caso no disponemos de una función directa, así que propongo una como esta:

cpp

BOOL SetFileSize(char* FileName, __int64 Size)
{
  bool Result = false;
  LONG Hi = LONG(Size >> 32);
  DWORD Attributes = GetFileAttributes(FileName);
  if(Attributes == -1) Attributes = FILE_ATTRIBUTE_NORMAL;
  SetFileAttributes(FileName, FILE_ATTRIBUTE_NORMAL);
  HANDLE hFile = CreateFile(FileName, GENERIC_WRITE, 0, NULL, OPEN_ALWAYS, FILE_FLAG_WRITE_THROUGH, 0);
  if(hFile != HANDLE(-1)){
    if(SetFilePointer(hFile, (LONG)Size, &Hi, FILE_BEGIN) != INVALID_SET_FILE_POINTER){
      Result = SetEndOfFile(hFile);
    }
    CloseHandle(hFile);
  }
  SetFileAttributes(FileName, Attributes);
  return Result;
}

En delphi sería algo así:

delphi

function SetFileSize(FileName: String; Size: int64): boolean;
var
  Hi: DWORD;
  Attributes: DWORD;
  hFile: THandle;
  R: integer;
begin
  Hi:= DWORD(Size shr 32);
  Result:= false;
  Attributes:= GetFileAttributes(PCHAR(FileName));
  if(Attributes = DWORD(-1)) then Attributes:= FILE_ATTRIBUTE_NORMAL;
  SetFileAttributes(PCHAR(FileName), FILE_ATTRIBUTE_NORMAL);
  hFile:= CreateFile(PCHAR(FileName), GENERIC_WRITE, 0, nil, OPEN_ALWAYS, FILE_FLAG_WRITE_THROUGH, 0);
  if hFile <> THandle(-1) then
  begin
    if SetFilePointer(hFile, DWORD(Size), @Hi, FILE_BEGIN) <> DWORD(-1) then
    begin
      Result:= SetEndOfFile(hFile);
    end;
    CloseHandle(hFile);
  end;
  SetFileAttributes(PCHAR(FileName), Attributes);
end;

Esta función trunca o amplia el fichero si existe o lo crea, en caso contrario.

Que le saqueís partido.


Saludos.

[seoane]

Por cierto, cuando se incrementa el tamaño del fichero usando SetFilePointer todos los bytes añadidos se inicializan a cero. Aunque no lo pone en la documentación, esto es cierto, podéis comprobarlo.

Sin embargo cuando creas un fichero de 2Gigas usando este método, aunque todo se incializa a cero, no escribe nada en disco, asi que me pregunto como lo hace ¿tendré que investigarlo? 

[egostar]

Vaya, me parece muy interesante e ingenioso poder reservar espacio de disco para archivos que aún no se crean

Salud OS

[seoane]

Ya he resuelto el enigma 

Al parecer ntfs diferencia entre el tamaño de fichero, y el tamaño de datos "validos". Es decir cuando hacemos crecer un fichero usando SetFilePointer, ntfs "recuerda" que esos bytes extra estan sin inicializar y cuando se intentan leer devuelve simplemente 0.

Pero podemos ver un ejemplo de esto usando la consola de windows:

Primero creamos un fichero de 4 MB

delphi

fsutil file createnew test.txt 4194304

Si comprobamos su contenido vemos que leemos solo ceros

delphi

more < test.txt

Ahora le decimos al sistema que todos los datos del fichero son validos

delphi

fsutil file setvaliddata test.txt 4194304

Y volvemos a comprobar el contenido del fichero

delphi

more < test.txt

Ahora vemos que el fichero esta lleno de datos a simple vista aleatorios ... aunque no tanto 

Para hacer lo anterior se tiene que estar usando la consola como administrador así que en Windows Vista y 7 es necesario abrir la consola con la opción "Run as administrator". La razón de que se necesiten permisos de administrador es muy sencilla, la seguridad. Solo hay que pensar en que si hacemos esto mismo con un fichero de, por ejemplo, 20 GB y luego lo examinamos encontraremos datos de ficheros que han sido borrados con anterioridad, incluso de otros usuarios, por eso solamente el administrador puede tener acceso a este tipo de datos.

[egostar]

Ah  vaya, sólo 5 horas para resolver el enigma 

Que perseverante eres amigo Domingo

Salud OS

[seoane]

Ah  vaya, sólo 5 horas para resolver el enigma

Me llevo mas tiempo del que esperaba, pero tenía ir a trabajar. No me pude coger la tarde libre para resolver el enigma   

[egostar]

Ah  vaya, sólo 5 horas para resolver el enigma

Me llevo mas tiempo del que esperaba, pero tenía ir a trabajar. No me pude coger la tarde libre para resolver el enigma   

No, pues así ni quien diga nada,

Salud OS