INDAHNYA BERBAGI: MEMBUAT WEB BROWSER SEDERHANA DI DELPHI

Sekilas tentang Mozzila firefox

Blake Aaron Ross (23 tahun/AS)
Blake Ross adalah pemuda jenius yang menciptakan Mozilla, fasilitas penjelajah internet. Mozilla diluncurkan untuk umum pada November 2004. Saat itu, usia Blake baru 19 tahun!

Mozilla kemudian digabungkan dengan Firefox, program yang diciptakannya bersama Dave Hyatt. Maka, setelah itu, namanya menjadi Mozilla Firefox.

Membuat aplikasi Mozila Firefox sendiri menggunakan Komponen ActiveX control Mozilla dan Delphi 7

Dari semangat, Inspirasi dan kreatifitas Blake Aaron Ross Dan Dave Hyatt, Penulis yang saat Blog ini di tulis sudah berusia 25 th terpacu dan terinspirasi untuk membuat Web browser Sendiri tapi ape daye Otak dan ilmu yang penulis miliki kurang mendukung meskipun begitu begitu penulis tetap semangat untuk membuat web browser ala kadarnya dengan bantuan Delphi 7.

Setelah Googling kesane kesini Penulis memakai komponen TWebBrowser bawaan Delphi 7 dan Setelah di compile Aplikasi pun siap di Digunakan Browsing, kendala dan kekurangan pun muncul TwebBrowser tidak mampu membaca bahasa JavaScript dan PHP yang lebih tinggi,,,

Penulis tidak patah semangat dan kembali Googling maka di temukan lah Komponen ActiveX Control dari Mozilla Experimen pun dimulai lagi...

Menginstall dan Membuat komponen ActiveX Control Di Delphi 7

Langkah pertama Download MozillaControl1712 dan install

seletah proses installasi selesai MozillaControl1712 tidak bisa langsung di pake' Pada Pallete komponen delphi 7,Kita Buat dulu file *.dpk Buka aplikasi delphi 7 >file > close all...pilih lagi file > New >Other > Pada form New Items Pilih Package Klik Ok

Kemudian Simpan Dengan nama MozillaActiveX Pada Folder Source pada Path Delphi 7 Anda

di install..huuff..Langka Masih panjang.. Setelah file *.dpk tersimpan Pilih file >Close All tapi belum selesai sampai disini pilih Import ActiveX Control pada tab Component

kemudian pada list import activex pilih MozillaControl 1.0 Type Library [Version 1.0] trus klik install

lalu Browse file MozillaActiveX.dpk yang sudah kita buat Kemudian Klik OK

Setelah file package tersebut terbuka Klick Compile / Install Jika tidak ada yang ERROR komponen TMozillaBrowser dapat anda Temukan di Palette ActiveX Delphi 7 Anda..

Mulai Membuat Aplikasi Web Browser

Ok tetap semangat menulis Blog amatiran ini tp sudah mulai terburu buru karna jam pulang ngantor tinggal

sebentar lagi huufff,,,,

Setelah Komponen ActiveX Mozilla berhasil di Install Tutup Semua Project Delphi 7 anda Buat Project baru dan masukan komponen dengan nama sebagai berikut :

    Mozilla: TMozillaBrowser;
    MainMenu1: TMainMenu;
    Berkas1: TMenuItem;
    Keluar1: TMenuItem;
    Edit: TMenuItem;
    Tampilan1: TMenuItem;
    Riwayat1: TMenuItem;
    Alat1: TMenuItem;
    Bantuan1: TMenuItem;
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    XPManifest1: TXPManifest;

Design dan Atur Letak Komponen tersebut :

Karna waktu Penulis tidak banyak Langsung Saja Pada source Lengkap masing-masing komponen seperti di bawah ini :

unit Unit1;

interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, MOZILLACONTROLLib_TLB, StdCtrls, Menus, ExtCtrls,
Buttons, ComCtrls, XPMan;
type
TForm1 = class(TForm)
    Mozilla: TMozillaBrowser;
    MainMenu1: TMainMenu;
    Berkas1: TMenuItem;
    Keluar1: TMenuItem;
    Edit: TMenuItem;
    ampilan1: TMenuItem;
    Riwayat1: TMenuItem;
    Alat1: TMenuItem;
    Bantuan1: TMenuItem;
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    XPManifest1: TXPManifest;
    BitBtn6: TBitBtn;
    entangAplikasi1: TMenuItem;
    procedure BitBtn5Click(Sender: TObject);
    procedure MozillaNavigateComplete2(ASender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
    procedure MozillaBeforeNavigate2(ASender: TObject;
      const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
      Headers: OleVariant; var Cancel: WordBool);
    procedure MozillaDownloadBegin(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure Keluar1Click(Sender: TObject);
    procedure entangAplikasi1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
statusbar1.Panels[0].Text:=' Mencari '+edit1.Text;
Mozilla.Navigate(edit1.Text);
end;

procedure TForm1.MozillaNavigateComplete2(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
statusbar1.Panels[0].Text:=' Selesai..';
end;

procedure TForm1.MozillaBeforeNavigate2(ASender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
statusbar1.Panels[0].Text:=' Mencari...'+mozilla.LocationURL;
end;

procedure TForm1.MozillaDownloadBegin(Sender: TObject);
begin
statusbar1.Panels[0].Text:=' Mentransfer...'+mozilla.LocationURL;
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
mozilla.Stop;
end;

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

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

procedure TForm1.BitBtn6Click(Sender: TObject);
begin
Mozilla.Navigate('www.google.com');
end;

procedure TForm1.Keluar1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.entangAplikasi1Click(Sender: TObject);
begin
showmessage('Design By : Affan...Delphier Amatier..');
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
mozilla.Refresh;
end;

end.

Compile dan Run Aplikasi Jika Misi berjalan lancar Akan Tampak Seperti ini

JreeeeeenG...Misi pun BERHASIL diselesaikan hehhehehehe....

hhhhmmm sedikit bangga dapat membuat Web browser seperti Blake Aaron Ross. meskipun hasil dari googling hhhh...pembaca dapat mengembangkan sendiri dengan menambah fitur-fitur seperti halnya MOZILLA FIREFOX..cukup sekian semoga bermanfaat sedikit pengetahuan penulis..

Sumber: http://berbagidelphi7.blogspot.com/

thanks to sumber yang udah bantu ane belajar

THIS POSTING REAL COPY PASTE FROM SUMBER

THANKS TO SUMBER

POSTING INI SENGAJA DIBUAT HANYA UNTUK CATATAN PEMBELAJARAN SAYA SECARA PRIBADI

INDAHNYA BERBAGI

Saturday, January 18, 2014

MEMBUAT WEB BROWSER SEDERHANA DI DELPHI

1 comment: