Delphi For PHP – List File Drive C:\

[ 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:\

$dir = opendir('c:\\') or die('Error mengakses handle drive C:\\');
       rewinddir($dir);
       while ($fname = readdir($dir))
        {
          $file = 'C:\\' . $fname;
          $this->ListView1->addItem($fname,array(filesize($file)));
        }
       closedir($dir);

Di bawah ini tampilan form awalnya

Ud0909sd909fg0id08907dvy9df_tips_delphi_for_php_000

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

<?php
require_once("vcl/vcl.inc.php");
//Includes
use_unit("buttons.inc.php");
use_unit("comctrls.inc.php");
use_unit("imglist.inc.php");
use_unit("forms.inc.php");
use_unit("extctrls.inc.php");
use_unit("stdctrls.inc.php");

//Class definition
class Unit1 extends Page
{
       public $BitBtn1 = null;
       public $ListView1 = null;
       function BitBtn1Click($sender, $params)
       {
       $dir = opendir('c:\\') or die('Error mengakses handle drive C:\\');
       rewinddir($dir);
       while ($fname = readdir($dir))
        {
          $file = 'C:\\' . $fname;
          $this->ListView1->addItem($fname,array(filesize($file)));
        }
       closedir($dir);
       echo 'done...';
       }
}

global $application;

global $Unit1;

//Creates the form
$Unit1=new Unit1($application);

//Read from resource file
$Unit1->loadResource(__FILE__);

//Shows the form
$Unit1->show();

?>

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:\
Ud0909sd909fg0id08907dvy9df_tips_delphi_for_php_001

Selamat Berkrease!

Tags: ,

3 thoughts on “Delphi For PHP – List File Drive C:\

  1. Bagaiman mengubah fungsi terbilang yang ada dibawah ini menjadi looping ? Public Function Terbilang(ByVal x As Long) As String
    Dim abil As Variant
    abil = Array(“”, “satu”, “dua”, “tiga”, “empat”, “lima”, “enam”, “tujuh”, “delapan”, “sembilan”, “sepuluh”, “sebelas”)

    If x < 12 Then
    Terbilang = ” ” & abil(x)
    ElseIf x < 20 Then
    Terbilang = Terbilang(x – 10) & ” belas”
    ElseIf x < 100 Then
    Terbilang = Terbilang(x \ 10) & ” puluh” & Terbilang(x Mod 10)
    ElseIf x < 200 Then
    Terbilang = ” seratus” & Terbilang(x – 100)
    ElseIf x < 1000 Then
    Terbilang = Terbilang(x \ 100) & ” ratus” & Terbilang(x Mod 100)
    ElseIf x < 2000 Then
    Terbilang = ” seribu” & Terbilang(x – 1000)
    ElseIf x < 1000000 Then
    Terbilang = Terbilang(x \ 1000) & ” ribu” & Terbilang(x Mod 1000)
    ElseIf x < 1000000000 Then
    Terbilang = Terbilang(x \ 1000000) & ” juta” & Terbilang(x Mod 1000000)
    End If
    End Function
    thanks……………….!!!

  2. Saya sudah install delphi for php 2 dengan sempurna, lalu saya coba create application dan run, muncul error:

    Application C:\Program Files\CodeGear\Delphi for PHP\2.0\apache2\bin\Apache.exe not found.

    padahal jelas-jelas apache.exe sudah terinstall dan ada di tempat seharusnya.

    please any ideas to solve my problem?

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s