Cara Membuat Aplikasi Web Browser Simpel Sendiri

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.