Untuk pagi hari ini saya mau berbagi materi pembuatan web browser pada Delphi. Temen temen semua pasti familiar dengan yang namanya internet explorer, fire fox atau google crome dan banyak berbagai macam web browser yang berkembang di dunia internet saat ini. Tahukan temen temen semua bahwa dalam Borland Delphi 7 kita juga bisa membuat web browser sendiri *hehehehe. Gak Percaya kan , sok Monggo DiSimak Ya.
Pembuatan Web Browser menggunakan Borland Delphi 7 sangat sangat lah mudah dengan penggunaan component Web Browser yang memang sudah disediakan pada API component di Delphi. Component yang perlu temen temen cari ialah pada tab internet di component pallete kemudian disana nanti akan bertemu dengan WebBrowser di sudut kanan. Perhatikan gambari dibawah ini
Nah langsung aja kita praktekkan ya temen temen.
- Pertama Tama buatlah design form sebagai berikut dengan menggunakan Web Browser di tengah, panel, 1 buah edit box dan 4 buat button.
- Aturlah Properties Namenya sepeti dibawah ini.
Untuk Alur Programnya sebagai berikut :
- Pada saat program dijalankan maka web browser akan langsung menuju google sebagai halaman awalnya.
- Untuk pergi ke alamat web yang dituju missal youtube kita tinggal ketikkan “ youtube.com” pada edit box kemudian Klik Search untuk menuju alamat tersebut
- Back untuk kembali ke page sebelumnya.
- Next untuk kembali ke page setelahnya.
- Refresh untuk Refresh web Browser.
Berikut ini adalah Listing Codenya :
1
2
3
4
5
6
| procedure Tfrm_my_web_browser.FormCreate(Sender: TObject);begin webbrowser1.Navigate('www.google.com');end; |
diatas adalah code untuk pembuatan tampilan awal google, diletakkan pada saat program dijalankan.
1
2
3
4
5
6
| procedure Tfrm_my_web_browser.button_searchClick(Sender: TObject);begin webbrowser1.Navigate(edit_web.Text);end; |
jika button search di klik maka akan menuju alamat yang ada pada edit box
1
2
3
4
5
6
| procedure Tfrm_my_web_browser.button_backClick(Sender: TObject);begin webbrowser1.GoBack;end; |
button back untuk kembali ke halaman sebelumnya.
1
2
3
4
5
6
| procedure Tfrm_my_web_browser.button_nextClick(Sender: TObject);begin webbrowser1.GoForward;end; |
button next untuk kembali ke paga setelahnya.
1
2
3
4
5
6
| procedure Tfrm_my_web_browser.button_refreshClick(Sender: TObject);begin webbrowser1.Refresh;end; |
button refresh untuk refresh laman web browser.
Dan Untuk temen temen yang mau lihat hasil tampilan programnya, perhatikan gambar dibawah ini.
tampilan awal saat dijalankan - google sebagai halaman awal web browser
tampilan saat menjalankan "youtube.com" pada edit box kemudian di search
0 Response to "TUTORIAL CARA MEMBUAT WEB BROWSER - DELPHI"
Posting Komentar
[[ Silahkan berkomentar yang sesuai dengan topik, Mohon Maaf komentar dengan nama komentator dan isi komentar yang berbau PORNOGRAFI, OBAT, HACK, JUDI dan komentar yang mengandung LINK AKTIF, Tidak akan ditampilkan. Terima Kasih! ]]