Ada lagi neh yang req cara liat ukuran file pake delphi... LANGSUNG AJA KE TKP!

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

2 komentar:

Andrea Aja mengatakan...

sorry di sini ga bisa lkeliatan iden tasi nya haha

Andrea Aja mengatakan...

nah udah ada prinscreennya tinggal di zoom aja pasti keliatan hahaha

Posting Komentar