cara / Tutorial membuat browser dengan delphi

Membuat Web Browser dengan delphi 2010

Komponen yang digunakan yaitu Twebbrowser yang ada di komponen Internet. 

Langkah-langkah membuat Web Browser.

1.      Buka delphi 2010

2.      Kemudian klik File | New | VCL Form Application

3.      Akan ada Tampilan Form Seperti di Bawah ini

4.      Ubah Properti Caption dari Form dengan nama “BROWSER BARU”, tanpa tanda kutip.

5.      Kemudian tambahkan 4 komponnen Button dan 1 EditText yang ada di Tab Standart. Dan juga tambahkan komponen PageControl yang ada di Tab Win32. Dan 1 komponen Web Browser yang ada di Tab Internet.

Dan di buat seperti di bawah ini :

Dengan Komponen yang ada di dalamnya dapat di lihat di jendela Structure:

Dimana di dalam PageControl1 kita membuat TabSheet1 dengan cara klik Kanan pada PageControl1 kemudian Klik New Page,  kemudia tempatkan TwebBrowser di TabSheet1.

6.      Ok sekarang ke bagian Listing Program

·         Pada ButtonBack klik Tab Event di Jendela Object Inspector kemudian pilik event OnClik, klik double. Masukkan sourcecode di bawah.

procedure TForm1.BbackClick(Sender: TObject);

begin

WebBrowser1.GoBack;     ß cukup mengetik bagian ini saja

end;

·         Pada ButtonFoward klik Tab Event di Jendela Object Inspector kemudian pilik event OnClik, klik double. Masukkan sourcecode di bawah.

procedure TForm1.BFowardClick(Sender: TObject);

begin

WebBrowser1.GoForward;  ß cukup mengetik bagian ini saja

end;

·         Pada ButtonRefresh klik Tab Event di Jendela Object Inspector kemudian pilik event OnClik, klik double. Masukkan sourcecode di bawah.

procedure TForm1.BRefreshClick(Sender: TObject);

begin

WebBrowser1.Refresh;  ß cukup mengetik bagian ini saja

end;

·         Pada ButtonRefresh klik Tab Event di Jendela Object Inspector kemudian pilik event OnClik, klik double. Masukkan sourcecode di bawah.

procedure TForm1.BGoClick(Sender: TObject);

begin

WebBrowser1.Navigate(EAlamat.Text); //Ealamat nama dari edit ß ketik bagian ini saja

end;

·         Untuk Membuat TabSheet berganti nama menjadi Alamat suatu web atau Judul dari Web,  Klik WebBrowser1, klik Tab Event di Jendela Object Inspector kemudian pilik event OnDownloadComplate, klik double. Masukkan sourcecode di bawah.

procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);

begin

EAlamat.Text:=WebBrowser1.LocationURL;

TabSheet1.Caption:=WebBrowser1.LocationName;

end;

Sekarang dah Jadi Browser sederhana buatan kita sendiri……