como saber el tamaño de un fichero

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

Ok, en este caso hay que calcularlo "por partes"; Modifica el código y utiliza el siguiente:

Código Delphi [-]
var
  hdl: THandle;
  FileData: TWin32FindData;
  Size:int64;
begin
  // ini
  Size := 0;
  // Handle del fichero
  hdl := FindFirstFile(PChar(edtFileSize1.text), FileData);
  // Correcto?
  if (hdl <> INVALID_HANDLE_VALUE) then begin
    Windows.FindClose(hdl);
    Int64Rec(Size).Lo := FileData.nFileSizeLow;
    Int64Rec(Size).Hi := FileData.nFileSizeHigh;
  end;
  // Convertir
  ConvertFileSizes(Size);

Si lo pruebas ahora con un fichero de grande (en mi caso con uno de más de 7 gb) obtengo esto:

[kenychy]

Empezado por Neftali

Ok, en este caso hay que calcularlo "por partes"; Modifica el código y utiliza el siguiente:

Código Delphi [-]
var
  hdl: THandle;
  FileData: TWin32FindData;
  Size:int64;
begin
  // ini
  Size := 0;
  // Handle del fichero
  hdl := FindFirstFile(PChar(edtFileSize1.text), FileData);
  // Correcto?
  if (hdl <> INVALID_HANDLE_VALUE) then begin
    Windows.FindClose(hdl);
    Int64Rec(Size).Lo := FileData.nFileSizeLow;
    Int64Rec(Size).Hi := FileData.nFileSizeHigh;
  end;
  // Convertir
  ConvertFileSizes(Size);

Si lo pruebas ahora con un fichero de grande (en mi caso con uno de más de 7 gb) obtengo esto:

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.

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

[[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

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