Kamis, 29 Januari 2015

Cara Membuat Web Browser Sendiri With Delphi 7

Ini Dia Cara Membuat Web Browser Sendiri With Delphi 7 dimana dengan belajar membuat browser sendiri, seperti mozilla firefox, google chrome, opera, safari dll itulah namanya web browser gan, oke sebelumnya juga sudah saya berikan tutorial delphi lainnya yaitu cara membuat mp3 with delphi 7 ok tanpa panjang lebar lagi bagi anda yang mau download eh maksudnya membuat browsing sendiri silahkan simak dibawah ini saja.

1. Langkah pertama buka delphi anda lalu siapkan dulu 11 komponen wajibnya 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, apakah sudah ada 11 komponen di form tersebut lalukan dulu aja itu.

Tutorial Dasar Cara Membuat Browser Chrome

2. Pada langkah yang kedua setelah anda menyiapkan 11 komponen tersebut, selanjutnya adalah mengganti nama nama dari komponen yang sudah anda masukan ke form delphi, Button1 ubah jadi Back, Button2 ubah jadi forward, Button3 ubah jadi Home, Button4 ubah jadi Go, Button5 ubah jadi Refresh, Button6 ubah jadi Stop, Label1 dan  Panel1 untuk percobaan biarkan dulu saja atau kosongkan.

Tutorial Dasar Cara Membuat Browser Google

3. Pada langkah yang ketiga lalu double klik pada masing masing button satu satau lalu masukan codingnya dibawah ini:

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

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

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

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

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

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

Dan Untuk Komponen Edit1, pada menu event dismping properties cari tulisan keypress lalu klik dua kali  atau double klik dan kemudian isikan coding ini;

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

Tutorial Dasar Cara Membuat Browser Firefox

4. Langkah yang keempat Untuk Komponen WebBrowser, pada menu event tepat 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;

Tutorial Dasar Cara Membuat Browser Safari

5. Pada langkah yang kelima masih di komponen web browser4 seperti nomer 4 diatas lalu cari saja OnCommandStateChange dan masukan coding dibawah ini:

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;

Tutorial Dasar Cara Membuat Browser Opera

6. Pada langkah yang keenam, masih di komponen web browser cari saja tulisan OnNavigateComplete lalu masukan coding dibawah ini:

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


Tutorial Dasar Cara Membuat Browser Maxton

7. Pada langkah yang ketujuh masih di komponen web browser lalu cari tulisan OnProgressChange dan masukan koding dibawah ini:

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.

Tutorial Dasar Cara Membuat Browser UC Browser

8. Langkah yang terakhir run dulu atau klik simbol segitiga, jika tidak ada yang error seharusnya muncul dengan baik, dan berikut contohnya yang saya coba test langsung buat buka youtube, selesai.

Tutorial Dasar Cara Membuat Browser Android BBM

Dan hanya itu saja tips tutorial Cara Membuat Web Browser Sendiri Dengan Delphi 7 semoga bermanfaat dan dapat membantu terima kasih.