Wednesday, January 18, 2012

Cara Membuat Aplikasi Web Browser Simpel Sendiri

Apa kabar teman - temanku, sudah lama sekali saya tidak memposting artikel tentang pemrograman. Kali ini saya akan mencobanya kembali memposting tentang prmrograman. Kita sudah ketahui bersama pada jaman sekarang sudah banyak menjamur Aplikasi Browser seperti Mozila Firefox, Internet Explorer, Google Chrome, Opera, dll. Disini saya baru saja bisa Membuat Aplikasi Web Browser Sendiri, saya memakai aplikasi delphi untuk membuatnya. Cukup mudah kok untuk membuatnya, tidak memerlukan banyak coding. Langsung saja simak Cara Membuat Aplikasi Web Browser Simpel Sendiri.

Langkah - langkah Cara Membuat Aplikasi Web Browser Simpel Sendiri :

1. Buka Aplikasi Delphi ( Saya memakai Delphi 7 ).
2. Klik File -> New -> Application.
3. Buat dulu desainnya seperti gambar dibawah ini. ( Klik gambar untuk memperbesar ).
4. Disini kita membutuhkan setidaknya ada 11 komponen yaitu :
  1. WebBrowser1 --> Ada pada pallete Internet
  2. Label1, Edit1, Panel1, Button1, Button2, Button3, Button4, Button5, Button6 --> Ada pada pallete Standard
  3. Progress Bar --> Ada pada pallete Win32.
5. Atur propertiesnya, kotak properties berada disamping kiri tampilan delphi 7.
6. Ganti Caption Untuk :
  1. Button1 = <
  2. Button2 = >
  3. Button3 = Home
  4. Button4 = Go
  5. Button5 = Refresh
  6. Button6 = Stop
  7. Label1 = (Kosong)
  8. Panel1 = (Kosong)
7. Kemudian Isikan coding dibawah ini dengan cara klik doubel / dua kali pada tombol yang kita inginkan.

Untuk Button1 atau < atau Back
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.WebBrowser1.GoBack;
end;

Untuk Button2 atau > atau Forward
procedure TForm1.Button2Click(Sender: TObject);
begin
form1.WebBrowser1.GoForward;
end;



Untuk Button3 atau Home
procedure TForm1.Button3Click(Sender: TObject);
begin
form1.WebBrowser1.GoHome;
end;


Untuk Button4 atau Go
procedure TForm1.Button4Click(Sender: TObject);
begin
form1.WebBrowser1.Navigate(edit1.Text);
end;


Untuk Button5 atau Refresh
procedure TForm1.Button5Click(Sender: TObject);
begin
form1.WebBrowser1.Refresh;
end;

Untuk Button6 atau Stop 
procedure TForm1.Button6Click(Sender: TObject);
begin
webbrowser1.Stop;
end;
 

8. Untuk Komponen Edit1, pada menu event ( dismping properties ) di keypressY klik dua kali / double. dan isikan coding ini.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then webbrowser1.Navigate(edit1.Text);
end;
 


9. Untuk Komponen WebBrowser, pada menu event ( disamping properties ) klik dua kali di :
OnBeforeNavigate
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
label1.Caption := 'Loading...'
end;


OnCommandStateChange
procedure TForm1.WebBrowser1CommandStateChange(Sender: TObject;
  Command: Integer; Enable: WordBool);
begin
case Command of
CSC_NAVIGATEBACK :
begin
button1.Enabled := Enable;
end;
CSC_NAVIGATEFORWARD :
begin
button2.Enabled := Enable;
end;
end;
end;


OnNavigateComplete
procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
label1.Caption := 'Selesai'
end;


OnProgressChange
procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress,
  ProgressMax: Integer);
begin
if Progress>0 then
begin
ProgressBar1.Max:= ProgressMax ;
ProgressBar1.Position := Progress;
end
else
ProgressBar1.Position:= 0 ;
edit1.Text := webbrowser1.LocationURL ;
end;

end.


10. Setelah semuanya selesai, tinggal disave, dengan cara klik File -> Save All.
11. Untuk menjalankannya pencet F9.


Demikian sedikit info dari Saya mengenai Cara Membuat Aplikasi Web Browser Simpel Sendiri.

Jika ingin melihat buatan saya dan ingin mencoba merasakan bagaimana Browser Ciptaan saya sendiri Download disini.

Semoga Bermanfaat :) 

22 comments:

  1. lumayan keren, dilihat dari gambarnya. Tapi saya agak punya masalah download di 4shared.
    bisa nggak kalau file host nya di share beast. yang simpel gitu langkah downloadnya.

    ReplyDelete
    Replies
    1. waduuhh, belum sempet uplod ke sharebeast masss . . maaff sebelumnya

      Delete
  2. untuk membuat tab baru apakah bisa mas ?? kalo bisa gimana caranya ..

    ReplyDelete
  3. susah downloadnya, tapi jangan di ziddu di hapus sama admin di code gogel aja pasti gampang downloadnya...

    ReplyDelete
  4. gan itu hanya browser biasa saja atau bisa di pake browsing nih??

    ReplyDelete
  5. gan itu cara mmenjadikannya bukan project alias aplikasi bagaimana gan?

    ReplyDelete
  6. kok ga biisa di copy sih

    ReplyDelete
  7. saya sangat tertarik dengan program ini, boleh nomor hp nya mas dwi ?

    ReplyDelete
  8. mantap nih buat di coba,. info yang sangat bermanfaat sekali buat di simak, ..

    ReplyDelete
  9. wah mantab gan..
    ini contoh browser saya hasil ngikut artikel ini
    silahkan coba gan http://cl.ly/1j0y293S0e2K/Google%20Search.rar

    ReplyDelete
  10. lurd cara membuat aplikasi internet gimana....

    ReplyDelete
  11. mantap lah sob dapat dicoba kunjungan balik ya .... www.naufalthedarkness.blogspot.com

    ReplyDelete
  12. Gan kalo program web browser ini kalo pake vb bisa ga ? kalo bisa apakah semudah dengan menggunakan delphi ?
    mohon pencerahannya ^^

    ReplyDelete
  13. Percuma gan. mau pake delphi ato VB semua tetap z sama. gak bisa menampilkan POP UP dari Login SubMod sebuah web/aplikasi web.

    Kalo bisa, tolong jelaskan ke saya tutor nya.

    Regrad's

    Dhimaz.Ananda@permata-bunda.com

    ReplyDelete
  14. gan, aku coba ikutin langkah2nya ,tapi kok punya saya ga bsa jalan ya? malah eror , mohon pencerahannya gan. new bie

    ReplyDelete
  15. linknya mati gan, tolong diperbaiki

    ReplyDelete
  16. linknya mati gan, tolong diperbaiki

    ReplyDelete

Mohon tinggalkan komentar, karena setitik komentar anda akan sangat berharga dan tak ternilai demi kemajuan blog ini.
Dan maaf, kalau admin tidak bisa langsung membalas komentar anda sekalian, karena jarang online lewat komputer.

Terima kasih :)

Related Posts Plugin for WordPress, Blogger...