Mengecek Ukuran File

Untuk mengetahui ukuran suatu file, Delphi telah menyediakan fungsi FileSize(var F) : integer
Pada contoh program berikut, saya menggunakan fungsi Windows API GetFileSize( ).
Contoh Program Delphi sebagai berikut:
Langkah pertama : desain form dengan popertiey 2 Button , Edit1 , OpenDialog
Langkah kedua isikan listing program sebagai berikut:

Procedure Tfrom. Button1Click(sender:Tobject);
var FileHendle : integer;
HightOrderSize :^Dword;
LowOrderSize : Dword;
begin
FileHendle:= 0;
try
FileHendle:= Fileopen(Edit1.text, fmOpenRead);
if FileHendle=-1 then
begin
ShowMessage('gagal membuka file');
exit;
end;
HightOrderSize:=nil;
LowOrderSize:=GetFilesize(fileHendle, HightOrderSize);
if LowOrderSize = INVALID_FILE_SIZE then
ShowMessage('gagal mendapatkan ukuran file')
else
if HightOrderSize <> 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(FileHendle);
end;
end;

Procedure Tform. Button2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
Edit1.Text := OpenDialog1.FileName;
end;
Label:
Reaksi:

Post a Comment

Contact Form

Name

Email *

Message *

Powered by Blogger.
Javascript DisablePlease Enable Javascript To See All Widget