Penulis Topik: Cara Membuat Web Menggunakan Delpi 7  (Dibaca 631 kali)

Dionisius

  • New Member
  • *
  • Tulisan: 3
    • Lihat Profil
    • Dion Company
Cara Membuat Web Menggunakan Delpi 7
« pada: Desember 04, 2016, 10:20:46 AM »
Misi Admin.. Bukan mau unjuk kekuatan tapi hanya ingin share aja
Dan jika ada kekurangan mohon masukannya
 ;D :D :D :D

Brikut ini sya ingin m3njelaskan bgmna bekerja menggunakan delpi 7

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.



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.



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;

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;



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;



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;




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.



8. Langkah yang terakhir run dulu atau klik simbol segitiga, jika tidak ada yang error seharusnya muncul dengan baik,

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

« Edit Terakhir: Desember 04, 2016, 10:22:42 AM oleh Dionisius »

saputra

  • New Member
  • *
  • Tulisan: 6
    • Lihat Profil
Re:Cara Membuat Web Menggunakan Delpi 7
« Jawab #1 pada: Desember 04, 2016, 06:27:29 PM »
ini bukan "unjuk kekuatan" karena yang di share Delphi 7

ada kekurangan kata pada judulnya, yaitu kata "browser"

judul yang benar harusnya "Cara Membuat Web Browser Mengguna Delphi 7", mungkin waktu copas salah edit judul?

karena dari artikel aslinya, penulis menggunakan judul  "Cara Membuat Web Browser Sendiri With Delphi 7"

mungkin lebih jelas kalau gambar-gambar di artikel aslinya juga disertakan

Deyidi Mokoginta

  • Administrator
  • Pemula
  • *****
  • Tulisan: 52
    • Lihat Profil
Re:Cara Membuat Web Menggunakan Delpi 7
« Jawab #2 pada: Desember 10, 2016, 10:49:21 AM »
Misi Admin.. Bukan mau unjuk kekuatan tapi hanya ingin share aja
Dan jika ada kekurangan mohon masukannya
 ;D :D :D :D

Brikut ini sya ingin m3njelaskan bgmna bekerja menggunakan delpi 7

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.



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.



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;

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;



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;



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;




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.



8. Langkah yang terakhir run dulu atau klik simbol segitiga, jika tidak ada yang error seharusnya muncul dengan baik,

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

makasih sharenya...

saputra

  • New Member
  • *
  • Tulisan: 6
    • Lihat Profil
Re:Cara Membuat Web Menggunakan Delpi 7
« Jawab #3 pada: Desember 29, 2016, 05:21:25 AM »
Misi Admin.. Bukan mau unjuk kekuatan tapi hanya ingin share aja
Dan jika ada kekurangan mohon masukannya
 ;D :D :D :D

Brikut ini sya ingin m3njelaskan bgmna bekerja menggunakan delpi 7

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.



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.



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;

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;



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;



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;




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.



8. Langkah yang terakhir run dulu atau klik simbol segitiga, jika tidak ada yang error seharusnya muncul dengan baik,

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

ini alamat sumber tulisan diatas yang dicopas tanpa menyertakan sumber http://www.indoblog.me/2015/01/cara-membuat-web-browser-sendiri-with.html

Dionisius

  • New Member
  • *
  • Tulisan: 3
    • Lihat Profil
    • Dion Company
Re:Cara Membuat Web Menggunakan Delpi 7
« Jawab #4 pada: Januari 19, 2017, 05:46:46 PM »
ini bukan "unjuk kekuatan" karena yang di share Delphi 7

ada kekurangan kata pada judulnya, yaitu kata "browser"

judul yang benar harusnya "Cara Membuat Web Browser Mengguna Delphi 7", mungkin waktu copas salah edit judul?

karena dari artikel aslinya, penulis menggunakan judul  "Cara Membuat Web Browser Sendiri With Delphi 7"

mungkin lebih jelas kalau gambar-gambar di artikel aslinya juga disertakan