Filesize ficheros grandes
 

Buenas a todos, me estoy encontrando que con Filesize en un fichero de mas de dos gb me devuelve un numero negativo... Alguien se ha encontrado con el mismo problema y lo ha podido solucionar.
Gracias.,

Hola, recuerda poner los temas en los foros adecuados, este foro es el de "Delphi/web", cosa que no tiene nada que ver tu pregunta, lo paso a "Varios".

En relación a tu pregunta, deberías poner el código fuente, no somos adivinos para ver qué estás haciendo, aunque se intuye que estás usando una variable integer y por eso no puede representar números tan grandes, declárala del tipo int64

Gracias Casimiro. Es la función FileSize(z) que averigua el tamaño del fichero pero retorna Integer, por lo que estuve mirando.

A ver...

Código Delphi [-]
function FileSize(const FileName: string): Int64; 
var   sr: TSearchRec; 
begin   
  if FindFirst(FileName, faAnyFile, sr) = 0 then     
  try       
    Result := Int64(sr.FindData.nFileSizeHigh) shl Int64(32) + Int64(sr.FindData.nFileSizeLow);     
  finally       
    SysUtils.FindClose(sr);     
  end   
  else     
    Result := -1; 
end;

Hola.

Proba de este modo:

Código Delphi [-]
function FileLongSize(const FileName: string): Int64;
var
  FindData: TWin32FindData;
begin
  Windows.FindClose(FindFirstFile(PChar(FileName), FindData));
  Result := FindData.nFileSizeHigh shl 32 or FindData.nFileSizeLow;
end;

Saludos.

Edito: Disculpa, no había visto tu mensaje Casimiro :o, bueno otra opción... :)

Nada que disculpar, es "casi" lo mismo, por poco hacemos un "copia->pega" del mismo :D

Es que no hay mucho mas para inventar... :D

Saludos. :)

Otra forma (recordando este hilo: C++ Obterner tamaño fichero grande...)

Código Delphi [-]
function GetFileSizeEx(hFile: THandle; var Data: int64): boolean; stdcall; external 'Kernel32.dll' name 'GetFileSizeEx';

implementation
     
     
function _GetFileSize(hFile: THandle): int64;
begin
  if not GetFileSizeEx(hFile, Result) then Result:= 0;
end;

Saludos.

Perfecto gracias a todos !!!! asunto resuelto.