Untuk mengetahui ukuran file, Delphi telah menyediakan funsi FileSize(var F). Namun fungsi ini tidak dapat berlaku ke file text. Nag ada serangkaian fungsi untuk mendapatkan ukuran file, yaitu:
GetFileSize() : untuk menampung ukuran file sebanyak 64 bit yang di bagi ke dalam dua buah variabel 32 bit. mmpunyai parameter sebagai brikut:
hFile:THandle
Menunjukan handel file yang ingin diketahui ukrannya.
IpFileSizeHigh:Pointer
merupakan pointer ke variable yang akan diisi oleh ukuran file.(berlaku kurang dari 4.294.967.296)
Contoh pembuatan
Siapkan 1 EditBox, 2 button dan 1 OpenDialog1
Isi di button 1
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Edit1.Text:=OpenDialog1.FileName;
end;
Isi di button2
procedure TForm1.Button2Click(Sender: TObject);
var FileHandle:integer;
HighOrderSize : ^DWORD;
LowOrderSize : DWORD;
begin
FileHandle:=0;
try
FileHandle:=FileOpen(Edit1.Text,fmOpenRead);
if FileHandle=-1 then
begin
ShowMessage('Gagal membuka file');
Exit;
end;
HighOrderSize:=nil;
LowOrderSize:=GetFileSize(FileHandle,HighOrderSize);
if LowOrderSize=INVALID_FILE_SIZE then
ShowMessage('Gagal mendapat ukuran file')
else
if HighOrderSize<>nil then
Application.MessageBox('Ukuran file > 4.39 Gbyte','Info Ukuran File',MB_OK or MB_ICONINFORMATION)
else
Application.MessageBox(PChar('Ukuran file : '+inttostr(LowOrderSize)+' byte'),'Info ukuran file',MB_OK or MB_ICONINFORMATION);
finally
FileClose(FileHandle);
end;
end;
Selamat mencoba...
karena identasi nya ga keliatan jelas saya kasih printscreen nya
