Membuat Browser Dengan Delphi

Dalam Wikipedia dijelaskan bahwa Browser adalah perangkat lunak yang berfungsi untuk menerima dan menyajikan sumber informasi di Internet. Sebuah sumber informasi diidentifikasi dengan pengidentifikasi sumber seragam yang dapat berupa halaman web, gambar, video, atau jenis konten lainnya.

Saat ini browser yang paling terkenal adalah Chrome dan firefox. Tapi jika anda ingin iseng membuat browser sendiri maka para pecinta delphi cukup beruntung. Saat ini saya akan menjelaskan bagaimana membuat browser sendiri dengan delphi. Langkah pertama adalah install delphi terlebih dahulu bagi yang belum memiliki delphi. Buka delphi dan siapkan beberapa komponen yang dibutuhkan.

Komponen:

- Web Browser : ada di tab Internet

- Edit : ada di tab standard, untuk menampung alamat yang dicari.

- Button

- Progress Bar

- Alfa Skin : Optional (untuk mempercantik tampilan)

Design:

Button Back:
Form1.wb1.GoBack;

Button Forward:
Form1.wb1.GoForward;

Button Home:
Form1.wb1.GoHome;

Button Go:
wb1.GoSearch;

Button Refresh:
wb1.Refresh;

Button Stop:
wb1.Stop;

Event OnKeyPress pada edit:
  if Key=#13 then
    wb1.Navigate(edt1.Text);

Event CommandStateChange:
  case Command of
    CSC_NAVIGATEBACK:
      begin
          btn1.Enabled:=Enable;
      end;
    CSC_NAVIGATEFORWARD:
      begin
          btn2.Enabled:=Enable;
      end;
  end;


Event ProgressChange pada Web Browser:
  if pb1.Max>0 then
  begin
     pb1.Max:=ProgressMax;
     pb1.Position:=Progress;
  end
  else
  pb1.Position:=0;
  edt1.Text:=wb1.LocationURL;

---

Hasil Setelah Dicompile

Untuk download projectnya silahkan di link berikut:

DOWNLOAD