Oke, sekarang perhatikan gambar berikut.

Nah, dari gambar tersebut, mari kita coba untuk membuatnya. Berikut adalah langkah-langkahnya :

1. Buat sebuah project baru di Lazarus IDE.

2. Tambahkan sebuah TLabel komponen dan sebuah TComboBox komponen diatas Form1 sebagai lembar kerja. Sehingga otomatis masing-masing akan diberi nama ComboBox1 dan Label1.

3. Dari Object Inspector, pilih property milik TComboBox yang bernama ComboBox1 dan set propertiesnya “Read Only” dengan True. Dan dari Events milik ComboBox1, lakukan klik 2 kali atau dobel klik di area kosong sebelah kanan “OnChange” sehingga akan ditampilkan lembar source editor. Tambahkan kode kedalamnya :

Label1.Font.Name := ComboBox1.Items.Strings[(ComboBox1.Items.IndexOf(ComboBox1.Text))];

Dimana dengan kode diatas, untuk merubah huruf di TLabel (Label1), kita memerlukan perubahan properties nama huruf (Font Name) milik Label1 yang didapat dari list atau daftar huruf di TComboBox (ComboBox1).

4. Dari Object Inspector kembali, pilih property Form1 (TForm), kemudian pilih Events dan lakukan dobel klik di area kosong sebelah kanan “OnCreate” sehingga kita akan kembali ke lembar source editor, lalu tambahkan kode kedalamnya :

ComboBox1.Items.AddStrings(Screen.Fonts);

Dimana dengan kode diatas akan memuat semua huruf yang terdapat didalam operating system (OS), kedalam TComboBox (ComboBox1) yang mana setiap huruf akan berbeda antara Windows, Linux atau MacOS.

5. Selesai, tekan F9 atau klik menu Run untuk melihat hasil akhirnya.

Kode selengkapnya adalah sebagai berikut :

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
StdCtrls;
 
type
 
{ TForm1 }
 
TForm1 = class(TForm)
ComboBox1: TComboBox;
Label1: TLabel;
procedure ComboBox1Change(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
 
var
Form1: TForm1;
 
implementation
 
{ TForm1 }
 
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
Label1.Font.Name := ComboBox1.Items.Strings[(ComboBox1.Items.IndexOf(ComboBox1.Text))];
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Items.AddStrings(Screen.Fonts);
end;
 
initialization
{$I unit1.lrs}
 
end.

Download :

font_label_onthefly.zip (64.85 KB)

Dibagian akhir artikel yang terdiri dari 3 pages atau halaman ini, saya menyertakan kode sumber yang bisa Anda download atau unduh dalam bentuk kode milik Lazarus project untuk dipelajari dalam file terkompresi.

Kali ini, kita akan sama-sama belajar membuat sebuah aplikasi sederhana dimana nantinya akan menampilkan form kedua diatas dan ditengah-tengah form utama, dimanapun form utama berada dilayar seperti layaknya form about sebuah aplikasi profesional.

Yang diperlukan adalah :

a. Operating system atau sistem operasi seperti Windows / Linux / FreeBSD / MacOS.

b. Lazarus IDE versi 0.9.28 yang bisa Anda download atau diunduh dari Lazarus daily snapshots. Tidak disarankan untuk mengambil versi dibawahnya atau mengambilnya dari halaman depan website Lazarus karena mempunyai beberapa kekurangan atau bug.

Untuk membuat sebuah aplikasi sederhana sesuai dengan judul artikel, berikut adalah langkah demi langkah yang kita lakukan didalam Lazarus IDE :

1. Buat sebuah project baru dengan mengklik menu Project > New Project.

2. Dari dialog box “Create a new project” pilih Application dan klik tombol OK. Setelah itu Lazarus akan secara otomatis membuat sebuah form baru, dalam hal ini form utama yang bernama Form1.

3. Selanjutnya kita buat sebuah form baru, atau form kedua yang bernama Form2 dengan mengklik menu File > New Form. Lazarus secara otomatis akan membuat sebuah form.

4. Dari Object Inspector di sebelah kiri, pastikan Properties Form2 sudah terpilih. Rubah Height yang semula 300 menjadi 150 dan Width yang semula 400 menjadi 200, agar ukuran Form2 menjadi lebih kecil daripada ukuran Form1 (form utama).

5. Pilih Source Editor yang berada dibelakang Form, dan klik tab Unit1.

6. Dari “IDE speed button”, klik button Toggle Form/Unit sehingga akan memunculkan Form1.

7. Setelah itu dari “Component Pallete” pada tab “Standart” klik satu kali icon “TButton”, arahkan mouse pointer ke Form1 dan klik di sembarang tempat di Form1 untuk meletakkan sebuah button. Button otomatis akan dibuat oleh Lazarus dan diberi nama Button1.

Disini saya tidak sedang mencoba untuk membuat layanan RSS subcribes, dimana saya berlangganan dengan RSS sebuah blog atau website lalu menampilkannya kembali kedalam HTML. Akan tetapi saya mencoba untuk berlangganan layanan RSS subcribes, menformatnya dalam batasan limit item, membatasi panjang deskripsi, kemudian mempublikasikannya ulang dalam format XML. Sehingga saya atau orang lain dapat berlangganan RSS dengan format yang telah saya buat dengan aplikasi lainnya (pihak ketiga). Itu lah yang saya maksud dengan re-RSS.

Analoginya saya singkat dalam 3 langkah :

1. Menentukan RSS target.
2. Memformat RSS target.
3. Mempublikasikan ulang RSS yang telah terformat.

Untuk mewujudkannya tentu kita memerlukan peralatan pendukung. Selain dari PHP, saya memerlukan SimplePie dan LibXML yang terintegrasi. Saya tidak akan menjelaskan apa itu SimplePie atau apa itu LibXML, itu adalah tugas Anda untuk mengetahuinya.

Oke, kita langsung saja, ya. Langkah-langkahnya adalah sebagai berikut :

1. Download SimplePie class library.

2. Buatlah sebuah file bernama rerss.php dan copy kode dibawah ini.

<?php
//masukkan SimplePie Class library
include('simplepie.inc');
 
//value masukkan yang diharapkan, yaitu limit dan length dari URL
$limitItem = htmlentities(stripslashes($_GET['limit']));
$stringLength = htmlentities(stripslashes($_GET['length']));
 
//fungsi untuk memotong panjang karakter
function shorten($string, $length)
{
    $suffix = '...';
    $short_desc = trim(str_replace(array("\r","\n", "\t"), ' ', strip_tags($string)));
    $desc = trim(substr($short_desc, 0, $length));
    $lastchar = substr($desc, -1, 1);
    if ($lastchar == '.' || $lastchar == '!' || $lastchar == '?') $suffix='';
    $desc .= $suffix;
    return $desc;
}
 
//panggil SimplePie Class
$feed = new SimplePie();
 
if (!empty($_GET['feed']))
{
	if (get_magic_quotes_gpc())
	{
               //value masukkan yang diharapkan, yaitu URL target
		$_GET['feed'] = htmlentities(stripslashes($_GET['feed']));
	}
 
        //siapkan SimplePie
	$feed->set_feed_url($_GET['feed']);
	$feed->init();
}
 
//panggil Item RSS target dan hitung berapa banyak ?
$feed->handle_content_type();
$items = $feed->get_items();
 
//panggil DomXML
$pDom = new DOMDocument();
 
//katakan kepada browser type dan versi RSS        
$pRSS = $pDom->createElement('rss');
$pRSS->setAttribute('version', '2.0');
 
//buat root tree XML
$pDom->appendChild($pRSS);
 
//tambahkan tree <channel> dibawah root
$pChannel = $pDom->createElement('channel');
$pRSS->appendChild($pChannel);
 
//dapatkan value dari judul, URL dan deskripsi RSS target
$pTitle = $pDom->createElement('title', $feed->get_title());
$pLink  = $pDom->createElement('link', $feed->get_permalink());
$pDesc  = $pDom->createElement('description', $feed->get_description());
$pLang  = $pDom->createElement('language', 'en');
 
//buat tree dari judul, URL dan deskripsi dibawah channel
$pChannel->appendChild($pTitle);
$pChannel->appendChild($pLink);
$pChannel->appendChild($pDesc);
$pChannel->appendChild($pLang);
 
//check type RSS URL target, jika benar ...
if (($feed->get_type() & SIMPLEPIE_TYPE_RSS_ALL) ||
    ($feed->get_type() & SIMPLEPIE_TYPE_ATOM_ALL) ||
    ($feed->get_type() & SIMPLEPIE_TYPE_ALL))
{
 
    //batasi banyaknya item yang akan ditampilkan di XML sesuai dengan $limitItem
    $i = 0; foreach($items as $item): $i++;
      //buat tree item dibawah channel
      $pItem  = $pDom->createElement('item');
      //buat tree dari judul, URL dan deskripsi dibawah item
      $pTitle = $pDom->createElement('title', $item->get_title());
      $pLink  = $pDom->createElement('link', $item->get_link());
      //batasi panjang description sesuai dengan $stringLength
      $pDesc  = $pDom->createElement('description', shorten($item->get_description(), $stringLength));
      //dapatkan tanggal publikasi
      $pPubDate = $item->get_item_tags('', 'pubDate');
      $pPubD  = $pDom->createElement('pubDate', $pPubDate[0]['data']);
 
      $pItem->appendChild($pTitle);
      $pItem->appendChild($pLink);
      $pItem->appendChild($pDesc);
      $pItem->appendChild($pPubD);
 
      $pChannel->appendChild($pItem);    
 
    //jila melewati batas $limiteItem, kemudian...
    if($i >= $limitItem)
  break;
endforeach;
//jika bukan RSS
} else { die('Senyum donQ yank'); }
 
//paksa browser dan katakan bahwa ini adalah file XML 
header('Content-type: text/xml');
header('Pragma: public');        
header('Cache-control: private');
header('Expires: -1');
 
//eksekusi DomXML
$pDom->formatOutput = true;
echo $pDom->saveXML() . "\n";
?>

3. Simpan file rerss.php bersama-sama dengan simplepie.inc dalam satu folder.

4. Buatlah sebuah folder bernama “cache” didalam folder yang sama, dan pastikan permission / baca tulis folder tersebut adalah milik apache atau webserver.

5. Eksekusi file rerss.php di browser dengan mengetikan (saya asumsikan di localhost dan file simplepie class beserta rerss.php berada di folder bernama “simplepie” ) :

Yang artinya, item yang ingin saya tampilkan adalah 5 item, sedangkan panjang karakter deskripsi adalah 50 karakter dengan alamat feed target adalah domaintujuan.com/feed/rss.

Pertama kali load memang terasa berat, namun setelah cache terbentuk (default umur cache 30 menit), akan terasa ringan. Skrip diatas bisa juga Anda kombinasikan dengan cronjob. Saya tunggu komeng-komeng dari kawan-kawan.

Untuk selengkapnya silahkan Anda kunjungi :

• Creating RSS documents with the DOM API
• PHP DOMDocument
• SimplePie

HTML
HyperText Markup Language (HTML) adalah sebuah bahasa markup yang digunakan untuk membuat sebuah halaman web dan menampilkan berbagai informasi di dalam sebuah browser. HTML terdiri dari kode-kode tag yang menginstruksikan browser untuk menghasilkan tampilan sesuai dengan yang diinginkan. Isi dokumen HTML tersebut mirip dengan dokumen teks biasa, hanya dalam dokumen ini sebuah teks bisa memuat instruksi yang ditandai dengan kode atau lebih dikenal dengan TAG tertentu. File HTML berekstensi .htm atau .html.

PHP
Hypertext Preprocessor (PHP) adalah bahasa script pemograman interpreter (tanpa perlu kompilasi) yang diproses secara dinamis dan cepat untuk ditampilkan di web browser. Kebanyakan sintaks PHP dipinjam dari bahasa C, Java dan Perl dengan beberapa kelebihan didalamnya. Untuk menjalankan PHP diperlukan sebuah webserver yang dilengkapi dengan PHP engine. File PHP biasanya berekstensi .php.

JSP
JavaServer Pages (JSP) adalah bahasa pemograman berbasis teknologi Java. Seperti bahasa scripting lainnya, JSP juga memproses kode secara interpreter secara cepat. Namun JSP juga dapat dikompilasi menggunakan Java compiler. Teknologi JSP mengijinkan programmer untuk menambahkan kode Java kedalamnya. Untuk menjalankan JSP diperlukan Java Servlets. File JavaServer Pages berekstensi .jsp.

XHTML
Extensible Hypertext Markup Language (XHTML) adalah bahasa pemograman web yang memuat sintaks HTML sekaligus memuat juga sintaks XML. Untuk menjalankan XHTML yang diperlukan adalah sebuah webserver yang mendukung XML module.

ASP
Active Server Pages (ASP) -semula bernama dbWeb, dan dibuat oleh Aspect Software Engineering- adalah bahasa pemograman web yang dikhususkan berjalan diatas Microsoft Windows yang telah terpasang Internet Information Services (IIS) Server. Kebanyakan halaman ASP ditulis dalam bahasa VBScript dan  berekstensi .asp. Pengembangan dari ASP adalah ASP.NET yang biasanya menggunakan ekstensi .aspx.

CFML
ColdFusion Markup Language (CFML) adalah bahasa script seperti ASP dan PHP yang berjalan diatas ColdFusion server. ColdFusion juga menyertakan CFScript, yaitu sebuah pemograman seperti JavaScript dan ActionScript. ColdFusion dibuat pertama kali oleh Allaire Corporation menggunakan Microsoft Visual C++ yang kemudian diakuisisi oleh Macromedia. Dan terakhir Macromedia pun diakuisi oleh Adobe Systems. ColdFusion berekstensi .cfm atau .cfml.

Ruby
Ruby adalah sebuah bahasa pemograman web dimana si pembuat awal -Yukihiro Matsumoto- menginginkan sebuah bahasa pemograman baru yang lebih canggih dari Perl dan lebih berorientasi objek dibandingkan Python.Beberapa varian Ruby diantaranya adalah Rubinius, Ruby.NET, XRuby, YARV, dan MagLev.

JavaScript
JavaScript adalah bahasa pemograman web bergaya sintaks bahasa C yang biasanya dijalankan bersama-sama dengan bahasa HTML dan mengakses properti Document Object Model (DOM) atau sebagai fungsi eksternal. JavaScript awalnya dibuat oleh Brendan Eich di Netscape dengan nama Mocha, dimana kemudia diberi nama LiveScript, dan akhirnya diberi nama JavaScript setelah ada perjanjian bisnis antara Netscape dan Sun sebagai pertukaran antara Netscape browser yang menyertakan Sun Java runtime. File JavaScript eksternal biasanya berekstensi .js.

Untuk selengkapnya Anda silahkan kunjungi :

• http://id.wikipedia.org/wiki/Hypertext_markup_language
• http://id.wikipedia.org/wiki/Php
• http://id2.php.net/manual/en/faq.general.php
• http://en.wikipedia.org/wiki/JavaServer_Pages
• http://en.wikipedia.org/wiki/XML
• http://en.wikipedia.org/wiki/Active_Server_Pages
• http://en.wikipedia.org/wiki/ColdFusion
• http://en.wikipedia.org/wiki/Ruby_(programming_language)
• http://en.wikipedia.org/wiki/Javascript

$domain = "niwakarya.com";
if (preg_match("/^[a-zA-Z0-9-]+(\.[a-zA-Z0-9-]+)*\.[a-zA-Z]{2,6}$/", $domain)) {
  if(ip2long(gethostbyname($domain))) {
    echo "alamat valid dan tersedia."; } else {
      echo "alamat domain tidak tersedia.";
    }} else {
  echo "alamat domain tidak valid.";
}

Silahkan ganti variable di $domain dengan input domain atau subdomain sembarang. Script diatas disyaratkan harus dicoba secara live (terkoneksi dengan internet) dan webserver tidak menggunakan DNS dari OpenDNS.

Untuk selengkapnya silahkan Anda berkunjung ke :

• http://id2.php.net/preg_match
• http://www.phpindonesia.com/2008/07/14/contoh-regular-expression-untuk-verifikasi-domain-dan-email/
• http://id2.php.net/manual/en/function.gethostbyname.php

Anda pengguna Postfix mailserver atau berencana menggunakannya ? Sudah pernah mencoba Postfix Admin ?

Artikel ini tidak sepenuhnya saya tulis dan tidak sedetail mungkin, karena artikel ini saya publikasikan ulang dari posting saya di forum Linux Indonesia di http://forum.linux.or.id/viewtopic.php?f=14&t=13485&p=100040#p83841.

Postfix Admin adalah sebuah web interface yang berguna untuk memanage domain, user, dan mailbox di Postfix. Berikut adalah langkah-langkah dalam instalasi Postfix Admin.

Pastikan Anda sudah menginstall Postfix yang sudah menggunakan MySQL sebagai library database. Kalau belum silahkan ikuti petunjuknya di website Postfix : Postfix MySQL Howto. Kemudian pastikan juga Anda telah mengkonfigurasi MX Record di DNS dengan benar, baik itu email dengan menggunakan domain utama, ataupun jika berencana menggunakan sub domain (kasus misalnya nama daerah kantor cabang perusahaan). Kemudian Apache dan PHP sebagai webserver juga telah terinstall dengan baik.

Jika sudah terinstall, buat struktur database di MySQL seperti dibawah ini :

--
-- Table structure for table `admin`
--
 
CREATE TABLE `admin` (
`username` varchar(255) NOT NULL default '',
`password` varchar(255) NOT NULL default '',
`created` datetime NOT NULL default '0000-00-00 00:00:00',
`modified` datetime NOT NULL default '0000-00-00 00:00:00',
`active` tinyint(1) NOT NULL default '1',
PRIMARY KEY  (`username`),
KEY `username` (`username`)
) ENGINE=MyISAM DEFAULT CHARSET=latin1 COMMENT='Postfix Admin - Virtual Admins';
 
-- --------------------------------------------------------

--
-- Table structure for table `alias`
-- 
 
CREATE TABLE `alias` (
  `address` varchar(255) NOT NULL default '',
  `goto` text NOT NULL,
  `domain` varchar(255) NOT NULL default '',
  `created` datetime NOT NULL default '0000-00-00 00:00:00',
  `modified` datetime NOT NULL default '0000-00-00 00:00:00',
  `active` tinyint(4) NOT NULL default '1',
  PRIMARY KEY  (`address`)
) ENGINE=MyISAM DEFAULT CHARSET=latin1 COMMENT='Virtual Aliases - mysql_virtual_alias_maps';
 
-- --------------------------------------------------------

Barangkali pada saat pendistribusian aplikasi yang dibuat menggunakan Delphi, Anda menyarankan kepada pengguna untuk merubah “Regional dan Language“nya dari Control Panel ke negara Indonesia. Tapi tunggu dulu, bagaimana jika pengguna lupa untuk merubahnya, karena disebabkan komputernya baru saja di install ulang. Didalam Delphi (disini saya menggunakan Delphi versi 7) sebenarnya ada fasilitas untuk memformat angka/nilai hasil dari query ke database kedalam bentuk mata uang Rupiah tanpa harus merubah “system location” pada Regional dan Language ke negara Indonesia cukup “Regional dan Language” nya ke negara defaultnya United States seperti pada saat pertama kali MS Windows di install. Fasilitas tersebut yaitu AnsiReplaceStr dan FormatFloat dari unit StrUtils dan Variant dari unit System. Caranya pun sangat mudah sekali, perhatikan contoh berikut :

1. Bukalah Project baru, tambahkan diatas Form1 berupa komponen TEdit yang bernama Edit1, komponen TButton yang bernama Button1, dan komponen TLabel yang bernama Label1.

2. Copy kode dibawah ini kedalam lembaran :

3. Pastikan OnClick events milik Button1 adalah Button1Click dari Object Inspector.

4. Coba jalankan dengan menekan tombol F9. Kemudian isi dengan angka berapapun tanpa menggunakan tanda titik atau koma atau tanda apapun kedalam Edit1 kemudian tekan tombol Button1.

Rekan-rekan akan melihat hasil input pada Edit1 berubah menjadi bentuk mata uang Rupiah di Label1. Coba perhatikan didalam souce code Anda pada bagian :

Label1.Caption:=Trim(’Rp.’+(AnsiReplaceStr(FormatFloat(’#,##0′,Variant(Edit1.Text)),’,',’.'))+’,-’);

Sebenarnya terbagi atas :

• Label1.Caption:=StringVariant(String) akan menformat masukan String sebagai Variant.
• FormatFloat(’#,##0′,String)) akan menformat nilai Variant menjadi mempunyai 3 digit (ribuan) dihitung dari posisi sebelah kanan Variant.
• AnsiReplaceStr(const AText, AFromText, AToText) akan mencari String dari AText, menggantinya dengan AFromText berdasarkan pola dari AToTextTrim(String) untuk menghapus spasi kosong sebelum dan sesudah String.

Bagaimana? Sangat mudah bukan? Penformatan ini berguna ketika rekan-rekan ingin melakukan proses perhitungan didalam program tanpa harus banyak melakukan pemformatan namun ingin menampilkan hasil outputnya kedalam format Rupiah, misalnya ke printer. Delphi akan sangat sulit untuk menjumlahkan angka yang didalamnya mengandung karakter diluar numeric (bilangan). Misalnya lagi nilai hasil query dari database ingin di totalkan dengan menggunakan SQL syntax SUM(nilai) dan hasilnya dicetak ke printer, tentu saja SQL tidak dapat melakukan perhitungan jika nilai tersebut mengandung karakter diluar numeric. Jadi, biarkan saja format nilai yang masuk kedalam database adalah beruba angka murni, baru kemudian ketika ingin menampilkan hasi output nya dalam bentuk Rupiah, rekan-rekan sekalian dapat menggunakan contoh seperti diatas.

Selamat mencoba!