C++ Obterner tamaño fichero grande

[vivamotos]

Buenos días,

Tengo una imagen de un disco duro que ocupta 80 Gb, pues bien, yo quisiera capturar ese tamaño en código pero siempre me da el valor 0, os adjunto mi código:

int __fastcall Get_Size(AnsiString path )
{
// #include <fstream>
FILE *pFile;

// get the file stream
pFile=fopen("\\\\192.168.66.59\\imagenes_pcs$\\PCS\\ALCW1002\\ALFREDO_201004262-00-00.mrimg","rb");

// get the file size
long curpos, length;
curpos = ftell(pFile);
fseek(pFile, 0L, SEEK_END);
length = ftell(pFile);
fseek(pFile, curpos, SEEK_SET);
// close stream and release buffer
fclose( pFile );

return length;
}

Con este código puedo saber el tamaño de ficheros pequeños pero los grandes no, que falla?

[Casimiro Notevi]

Esa variable length, ¿de qué tipo es?, no veo la declaración, ¿dónde está?

[[escafandra]]

__int64 GetFileSize(HANDLE hFile)
{
   DWORD hi;
   DWORD lo = GetFileSize(hFile, &hi);
   __int64 R = hi;
   R <<= 32;
   return R |= lo;
}

Saludos.

[vivamotos]

Es un long esta puesta miratelo bien,

El código de scafandra no lo entiendo ni lo veo como funciona, lo quisiera saber para c++ builder

Grácias.

[[escafandra]]

Empezado por vivamotos

...El código de scafandra no lo entiendo ni lo veo como funciona, lo quisiera saber para c++ builder...

...

Simplemente es el uso de la API GetFileSize en C++ concretamente Builder 5. ¿Lo has comopilado?

Saludos.

[Casimiro Notevi]

Empezado por vivamotos

Es un long esta puesta miratelo bien [..]

Vaya despiste que tengo

[[escafandra]]

Por si esta implementación se entiende mejor:

__int64 _GetFileSize(HANDLE hFile)
{
    __int64 S;
    if (!GetFileSizeEx(hFile, (PLARGE_INTEGER)&S)) S=0;
    return S;
}

Saludos.

[kenychy]

hola tio, en que biblioteca se encuentra _int64

[[escafandra]]

__int64

Saludos.

[delphi.com.ar]

Yo en Delphi uso esto, habría que traducirlo a C++

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;

[[escafandra]]

Si...

Saludos.