Mengetahui ukuran suatu file dengan delphi

Untuk mendapatkan ukuran suatu file mungkin bisa menggunakan code berikut ini :
Mengetahui ukuran suatu file dengan delphi
Code lengkapnya seperti ini,yaitu dengan Function :

var
  sr : TSearchRec;
begin
  if FindFirst(filename,faAnyFile-faDirectory,sr) = 0 then
    Result := sr.Size
  else
    result := -1;
  FindClose(sr);
end;

function scGetSizeDescription(const IntSize : Int64) : String;
begin
  if IntSize < 1024 then
    Result := IntToStr(IntSize)+' bytes'
  else
  begin
    if IntSize < (1024 * 1024) then
      Result := FormatFloat('####0.##',IntSize / 1024)+' Kb'
    else
      if IntSize < (1024 * 1024 * 1024) then
        Result := FormatFloat('####0.##',IntSize / 1024 / 1024)+' Mb'
      else
        Result := FormatFloat('####0.##',IntSize / 1024 / 1024 / 1024)+' Gb';
  end;
end;

untuk implementsinya adalah :

if OPD.Execute then   //OpenPictureDialoge
Image1.Picture.LoadFromFile(OPD.FileName);
RzLabel29.Caption:='[ File Size : '+scGetSizeDescription((FindFileSize(OPD.FileName)))+' ]'

Cuman segitu dan Sekian....
Title : Mengetahui ukuran suatu file dengan delphi
Description : Untuk mendapatkan ukuran suatu file mungkin bisa menggunakan code berikut ini : Code lengkapnya seperti ini,yaitu dengan Function : v...

2 Responses to "Mengetahui ukuran suatu file dengan delphi"

  1. bagaimana penerapan kode ini ketika untuk kompress gambar ? jadi misal gambar satu ukuran file xxx setelah di kompress ukuran gambar xxx

    ReplyDelete