03 March, 2010

Mengecek Ukuran File dengan Delphi 7

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;


Artikel Terkait

0 comments:

:10 :11 :12 :13
:14 :15 :16 :17
:18 :19 :20 :21
:22 :23 :24 :25
:26 :27 :28 :29
:30 :31 :32 :33
:34 :35 :36 :37
:38 :39 :40 :41
:42 :43 :44 :45
:46 :47 :48 :49
:50 :51 :52 :53
:54 :55 :56 :57

Post a Comment

Template by : kendhin x-template.blogspot.com ==> Editor by : BIK