Phpage’s Weblog

[ Windows Only ] [ Delphi For PHP 2.0 ]

Mungkin suatu saat ada di antar kita yang membuat aplikasi web berbasis PHP, di mana ada failitas kontrol panel untuk menampilkan daftar file dalam satu folder.

Berikut saya tulis sebuah tip sederhana untuk menampilkan daftar file di Drive C:\

1. $dir = opendir(‘c:\\’ <IMG class=wp-smiley alt=;) src=”http://s.wordpress.com/wp-includes/images/smilies/icon_wink.gif”> or die(’Error mengakses handle drive C:\\’);   
2.        rewinddir($dir);   
3.        while ($fname = readdir($dir))   
4.         {   
5.           $file = ‘C:\\’ . $fname;   
6.           $this->ListView1->addItem($fname,array(filesize($file)));   
7.         }   
8.        closedir($dir);  

Di bawah ini tampilan form awalnya

Kemudian masukkan kode seperti di atas dalam PHP Event BitBtn1Click(), sehingga kode lengkapnya seperti berikut:

1. <?php   
2. require_once(“vcl/vcl.inc.php”);   
3. //Includes   
4. use_unit(“buttons.inc.php”);   
5. use_unit(“comctrls.inc.php”);   
6. use_unit(“imglist.inc.php”);   
7. use_unit(“forms.inc.php”);   
8. use_unit(“extctrls.inc.php”);   
9. use_unit(“stdctrls.inc.php”);   
10.   
11. //Class definition   
12. class Unit1 extends Page   
13. {   
14.        public $BitBtn1 = null;   
15.        public $ListView1 = null;   
16.        function BitBtn1Click($sender, $params)   
17.        {   
18.        $dir = opendir(‘c:\\’ <IMG class=wp-smiley alt=;) src=”http://s.wordpress.com/wp-includes/images/smilies/icon_wink.gif”> or die(’Error mengakses handle drive C:\\’);   
19.        rewinddir($dir);   
20.        while ($fname = readdir($dir))   
21.         {   
22.           $file = ‘C:\\’ . $fname;   
23.           $this->ListView1->addItem($fname,array(filesize($file)));   
24.         }   
25.        closedir($dir);   
26.        echo ‘done…’;   
27.        }   
28. }   
29.   
30. global $application;   
31.   
32. global $Unit1;   
33.   
34. //Creates the form   
35. $Unit1=new Unit1($application);   
36.   
37. //Read from resource file   
38. $Unit1->loadResource(__FILE__);   
39.   
40. //Shows the form   
41. $Unit1->show();   
42.   
43. ?>  

Simpan file-file yang ada dengan nama yang sesuai. Kemudian tekan tombol F9 di keyboard untuk menjalankan kode di atas dengan mode debug. ListBox1 masih kosong. Klik tombol “List Drive C…” dan ListBox1 akan berisi nama file dan folder yang terdapat di Drive C:\

Love you php