Wednesday, 19 April 2017T4/19/2017 09:47:00 pm

CARA MEMBUAT WEB BROWSER DI DELPHI

Salam blogger……pada artikel saya kali ini saya akan menjelaskan tutorial pembuatan web browser dengan menggunakan Delphi. Kali ini kita akan melakukan pembelajaran cara membuat browser sendiri, sobat semua pasti sudah tidak asing lagi dengan berbagai browser yang tentunya sudah sering sobat gunakan baik di PC ataupun smartphone sobat. Diantaranya adalah mozila firefox, crome, opera, IE dan lain sebagainnya. Nah bagaimana jika kita ingin membuat browser sendiri yang mirip dengan browser diatas dengan menggunakan delphi ?? kali ini saya akan mencoba mencontohkan membuat web browser tersebut dengan menggunakan Delphi XE, selain Delphi XE sobat juga dapat membuatnya dengan menggunakan Delphi apa saja, misalnya Delphi 7, Delphi 2010, ataupun dengan Delphi versi terbaru lainnya.

Pada pembuatan web browser kali ini kita akan menggunakan salah satu komponen yang sudah tersedia di delphi yaitu TWebBrowser. Dimana komponen ini menggunakan basis engine dari IE (internet Explorer). Jadi setiap situs/web yang di jalankan dari TWebBrowser tampilannya akan sama dengan  tampilan yang ada di IE (internet Explorer).

Untuk mempersingkat waktu mungkin langsung saja akan saya jelaskan langkah langkah pembuatan web browser di Delphi kali ini.

Adapun langkah – langkahnya adalah sebagai berikut :

1. Pertama – tama buat sebuah project baru di Delphi sobat. Cara nya pilih File - New – VCL Form Application. Maka akan muncul sebuah form baru. Lalu atur properties form1 seperti dibawah ini:

  • Caption = Browser Delphi
  • Position = poDesktopCenter
  • WindowState = wsMaximized

2. Jika sudah selanjutnya design tampilannya formnya seperti pada gambar dibawah ini:

3. Adapun komponen yang digunakan pada gambar diatas adalah sebagai beriku :

  • Edit1, pada properties nya kosongkan text nya, lalu pada text hint ketikan “address bar”
  • Panel1 , kosongkan caption nya, lalu pada Align pilih alTop
  • Bitbtn1, merupakan tombol untuk fungsi Back
  • Bitbtn2, merupakan tombol untuk fungsi Forward
  • Bitbtn3, merupakan tombol untuk fungsi Go
  • Bitbtn4, merupakan tombol untuk fungsi Reload
  • Bitbtn5, merupakan tombol untuk fungsi Stop
  • Bitbtn6, merupakan tombol untuk fungsi Home
  • Progresbar1, pada propertiesnya atur pada Align pilih alBottom
  • TWebBrowser1, pada propertiesnya atur Align menjadi alClient

Jika sudah maka selanjutnya kita kan memberikan sedikit coding program agar tombol yang dibuat dapat berfungsi sesuai dengan fungsinya cara nya adalah sebagai berikut :

A. Klik 2x pada Bitbtn1 lalu masukan coding program dibawah ini:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
form1.WebBrowser1.GoBack;
end;

B. Klik 2x pada Bitbtn2 lalu masukan coding program dibawah ini:

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
form1.WebBrowser1.GoForward;
end;

C. Klik 2x pada Bitbtn3 lalu masukan coding program dibawah ini:

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
form1.WebBrowser1.Navigate(edit1.Text);
end;

D. Klik 2x pada Bitbtn4 lalu masukan coding program dibawah ini:

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
form1.WebBrowser1.Refresh;
end;

E. Klik 2x pada Bitbtn5 lalu masukan coding program dibawah ini:

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
form1.webbrowser1.Stop;
end;

F. Klik 2x pada Bitbtn6 lalu masukan coding program dibawah ini:

procedure TForm1.BitBtn6Click(Sender: TObject);
begin
form1.WebBrowser1.GoHome;
end;

G. Selanjutnya pada komponen Edit1, pada object inspector klik events lalu cari tulisan OnKeyPress lalu masukan koding program berikut:

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

H. Lalu klik TWebBrowser1, dan pada object inspector klik events lalu cari tulisan OnCommandStateChange klik 2x  dan masukan coding program berikut

procedure TForm1.WebBrowser1CommandStateChange(ASender: TObject;
  Command: Integer; Enable: WordBool);
begin
case Command of
CSC_NAVIGATEBACK :
begin
bitbtn1.Enabled := Enable;
end;
CSC_NAVIGATEFORWARD :
begin
bitbtn2.Enabled := Enable;
end;
end;
end;

I. Masih di bagian komponen TWebBrowser1, cari lagi tulisan OnProgressChange lalu klik 2x dan masukan koding program berikut:

procedure TForm1.WebBrowser1ProgressChange(ASender: 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;
Sampai disini proses pembuatan web browser nya sudah selesai, langkah selanjutnya adalah tinggal menjalankan program nya, untuk menjalankan program nya sobat tinggal tekan F9/RUN. lalu pada addess bar nya isikan url web yang akan sobat buka contohnya ketikan “google.com”, (pastikan pc / laptop sobat terkoneksi dengan internet). maka jika tidak ada error maka tampilan program nya ketika dijalankan akan seperti pada gambar dibawah ini.
Demikian tutorial saya kali ini tentang cara membuat web browser sederhana dengan Delphi yang dapat saya share, sobat dapat melengkapi web browser diatas dengan beberapa fitur dan komponen lainnya agar terlihat lebih menarik lagi sesuai dengan kreatifitas sobat. Semoga artikel saya kali ini dapat bermanfaat dan selamat mencoba.
Previous
Next Post »
0 Komentar untuk "CARA MEMBUAT WEB BROWSER DI DELPHI"

Silahkan tinggalkan komentar dibawah ini,
Terima kasih sudah :
1. Berkomentar dengan sopan
2. Tidak meninggalkan link aktif dalam form komentar
3. Berkomentar sesuai postingan / artikel
4. Tidak membuat komentar yang mengandung SARA / SPAM
5. Memberikan informasi link / script yang tidak berfungsi

Terima Kasih Sudah Berkomentar

PENDAPAT ANDA TENTANG BLOG INI ?

Follow by Email

 
Copyright © 2014 uduy macal blog's - All Rights Reserved
Template By Kuncidunia
DMCA.com Protection Status