Membuat aplikasi Mozila Firefox sendiri menggunakan Komponen ActiveX control Mozilla dan Delphi 7 - Hallo sahabat Tech News, Pada Artikel yang anda baca kali ini dengan judul Membuat aplikasi Mozila Firefox sendiri menggunakan Komponen ActiveX control Mozilla dan Delphi 7 , kami telah mempersiapkan artikel ini dengan baik untuk anda baca dan ambil informasi didalamnya. mudah-mudahan isi postingan Artikel Delphi, yang kami tulis ini dapat anda pahami. baiklah, selamat membaca.

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

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..

• Download ActiveX MozillaControl1712

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

Sekianlah artikel Membuat aplikasi Mozila Firefox sendiri menggunakan Komponen ActiveX control Mozilla dan Delphi 7 kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.

Anda sekarang membaca artikel Membuat aplikasi Mozila Firefox sendiri menggunakan Komponen ActiveX control Mozilla dan Delphi 7 dengan alamat link https://ontechnonews.blogspot.com/2013/07/membuat-aplikasi-mozila-firefox-sendiri.html

Tweet