Filesize ficheros grandes

[johan]

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.,

[Casimiro Notevi]

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

[johan]

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

[Casimiro Notevi]

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;

[ecfisa]

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 , bueno otra opción...

[Casimiro Notevi]

Empezado por ecfisa

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

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

[ecfisa]

Empezado por Casimiro Notevi

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

Es que no hay mucho mas para inventar...

Saludos.

[[escafandra]]

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.

[johan]

Perfecto gracias a todos !!!! asunto resuelto.