HELLO, Visitor

Mengecek Ukuran File

Go down

Mengecek Ukuran File

Post by Admin on Fri Oct 14, 2011 3:52 pm


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); ijo2 gak nolak bounce
end;
end;

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

Leo

Jumlah posting : 69
Points : 2801
Reputation : 2
Join date : 10.10.11
Age : 33
Lokasi : Kolaka,sultra Indonesia

http://cyber.forum-canada.com

Kembali Ke Atas Go down

Kembali Ke Atas

- Similar topics

 
Permissions in this forum:
Anda tidak dapat menjawab topik