размер файла

[мандарин]

я получил от клиенета файл сохранил его как мне можно узнать размер файла

[Hollander]

function GetFileSize(namefile: string): Integer;
var
InfoFile: TSearchRec;
AttrFile: Integer;
ErrorReturn: Integer;
begin
AttrFile := $0000003F; {Any file}
ErrorReturn := FindFirst(namefile, AttrFile, InfoFile);
if ErrorReturn <> 0 then
Result := -1 {в случае, если файл не найден}
else
Result := InfoFile.Size; {Размер файла в байтах}
FindClose(InfoFile);
end;

[BOBAH13]

господи ))) а нельзя просто его открыть хоть через tfilestream или на чистом паскале assignfile ?

[execom]

господи ))) а нельзя просто его открыть хоть через tfilestream или на чистом паскале assignfile ?

Мне тоже этот метод какжется избыточным.... вот аналог приведённой выше функции!

Function GetFileSize(FileName: string): Integer;
VAR
  F : File;
Begin
AssignFile(F,FileName);
Result:=FileSize(F);
CloseFile(F);
End;

[rpy3uH]

если размер больше, чем 4 ГБ то так
чистый API

function Get_File_Size(FName:string):int64;
var
  fl:THandle;
  size_low,size_high:DWORD;
begin
  fl:=CreateFile(pchar(put),0,FILE_SHARE_READ,0,OPEN_EXISTING,0,0);
  if fl=INVALID_HANDLE_VALUE then
    begin
     Result:=0;
     Exit;
    end;
  size_low:=GetFileSize(fl,@size_high);
  CloseHandle(fl);
  Result:=size_high;
  Result:=Result shl 32;
  Result:=Result+size_low;
end;

данная функция может измерить размер файлов любого размера