como saber el tamaño de un fichero

[[escafandra]]

Empezado por kenychy

hola tio, acabo de probar tu codigo y me da error en Int64Rec(Size).Lo y Int64Rec(Size).Hi, el error dice; {DCC ERROR} Unit1.pas(41): E2018 Record, objet or class type required.

¿Estamos hablando en C++ o en delphi? o me he equivocado de foro...

Saludos.

[kenychy]

tu codigo yo lo probe en delphi 2010, y me dio error. que tu cres de esto.

[Neftali [Germán.Estévez]]

Empezado por kenychy

tu codigo yo lo probe en delphi 2010, y me dio error. que tu cres de esto.

El código lo he probado con D6 y D2009 y me funciona bien en ambos.
Te subo el proyecto.

[kenychy]

gracias man

[[escafandra]]

Dos funciones en C:

__int64 GetFileSize(char *FileName)
{
   WIN32_FIND_DATA Data;
   HANDLE hFile = ::FindFirstFile(FileName, &Data);
   if(hFile==(HANDLE)-1) return 0;
   __int64 S = Data.nFileSizeHigh;
   S = (S << 32) | Data.nFileSizeLow;
   FindClose(hFile);
   return S;
}

//-----------------------------------------------------------------------
__int64 _GetFileSize(char *FileName)
{
   int hFile= _lopen(FileName, 0);
   __int64 S;
   if (!GetFileSizeEx((HANDLE)hFile, (PLARGE_INTEGER)&S)) S=0;
   _lclose(hFile);
   return S;
}

Saludos.

[kenychy]

gracias men.

[Neftali [Germán.Estévez]]

Empezado por escafandra

¿Estamos hablando en C++ o en delphi? o me he equivocado de foro...

Estamos hablando de C++.

Yo tenía código en Delphi y lo coloqué asumiendo que tal vez le serviría; Supongo que si no ha dicho nada es porque más o menos lo entiende o lo puede traducir.