Membuat Web Browser dengan delphi

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

Hallo.. sobat semua lanjut nih share-share ilmunya, dan kali ini saya akan memberikan sebuah program yaitu Web Browser yang dibuat dengan Delphi 7 , kenapa delphi 7 karena disini saya Membuat Web Browser sendiri dengan delphi 7 tentuny. Bagi sobat-sobat yang sudah tau mungkin sudah tidak aneh lagi dengaan cara membuatnya tapi ya bagi yang membutuhkan sajalah dan tidak ada salahnya kan saya bikin posting tentang WebBrowser ini. Lumayan bermanaat juga loh soalnya dulu pernah kejadian dikantor lagi bete-betenya tidak ada kerjaan dan ingin internetan, ekhh... komputer kantor error,laptop juga error browsernya padahal sudah di instal ulang browsernya tetap saja tiidak bisa dipake mesti instal ulang laptopnya, dan saat itu iseng" saja pake browser sendiri yang dibuat dari delphi ekh ternyata jalan. akhirnya bisa juga internetan meskipun kurang optimal penggunaanya.hehe... yang pentingkan tidak bete,bisa internetan.OK deh dibawah ini adalah contoh Tampilan WebBrowser yang saya buat :

Nih kalau yang mau scriptnya, dari pada harus nerangin panjang lebar ini kan mudah cara buatnya juga jadi saya rasa tidak perlu diterangin gimana-gimananya karena saya tahu pasti sudah pada bisa menggunakan Program delphi kan ? cceeekkkiddoot...

unit UMenu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Buttons, OleCtrls, SHDocVw, ExtCtrls, Registry,
  Menus, inifiles, jpeg;

type
  TFMenu = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    WebBrowser1: TWebBrowser;
    SPBack: TSpeedButton;
    SPNext: TSpeedButton;
    SPHome: TSpeedButton;
    SPGo: TSpeedButton;
    SPRefresh: TSpeedButton;
    SPStop: TSpeedButton;
    Label1: TLabel;
    Edit1: TEdit;
    ProgressBar1: TProgressBar;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    HomePage1: TMenuItem;
    N1: TMenuItem;
    Keluar1: TMenuItem;
    Label2: TLabel;
    Image1: TImage;
    Label3: TLabel;
    procedure SPBackClick(Sender: TObject);
    procedure SPNextClick(Sender: TObject);
    procedure SPHomeClick(Sender: TObject);
    procedure SPGoClick(Sender: TObject);
    procedure SPRefreshClick(Sender: TObject);
    procedure SPStopClick(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure WebBrowser1BeforeNavigate2(Sender: TObject;
      const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
      Headers: OleVariant; var Cancel: WordBool);
    procedure WebBrowser1CommandStateChange(Sender: TObject;
      Command: Integer; Enable: WordBool);
    procedure WebBrowser1NavigateComplete2(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
    procedure WebBrowser1ProgressChange(Sender: TObject; Progress,
      ProgressMax: Integer);
    procedure Edit1Change(Sender: TObject);
    procedure Edit1Click(Sender: TObject);
    procedure Keluar1Click(Sender: TObject);
    procedure HomePage1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FMenu: TFMenu;

implementation

uses UDefaultLink;

{$R *.dfm}

procedure TFMenu.SPBackClick(Sender: TObject);
begin
WebBrowser1.GoBack;
end;

procedure TFMenu.SPNextClick(Sender: TObject);
begin
WebBrowser1.GoForward;
end;

procedure TFMenu.SPHomeClick(Sender: TObject);
begin
WebBrowser1.GoHome;
end;

procedure TFMenu.SPGoClick(Sender: TObject);
begin
WebBrowser1.Navigate(edit1.Text);
Label3.Caption:=WebBrowser1.LocationURL
end;

procedure TFMenu.SPRefreshClick(Sender: TObject);
begin
WebBrowser1.Refresh;
end;

procedure TFMenu.SPStopClick(Sender: TObject);
begin
webbrowser1.Stop;
end;

procedure TFMenu.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
SPGoClick(sender);
end;

procedure TFMenu.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
label1.Caption := 'Loading...'
end;

procedure TFMenu.WebBrowser1CommandStateChange(Sender: TObject;
  Command: Integer; Enable: WordBool);
begin
case Command of
CSC_NAVIGATEBACK :
begin
SPBack.Enabled := Enable;
end;
CSC_NAVIGATEFORWARD :
begin
SPNext.Enabled := Enable;
end;
end;

end;

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

procedure TFMenu.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;

procedure TFMenu.Edit1Change(Sender: TObject);
begin
Label3.Caption:=WebBrowser1.LocationURL
end;

procedure TFMenu.Edit1Click(Sender: TObject);
begin
Edit1.SelectAll
end;

procedure TFMenu.Keluar1Click(Sender: TObject);
begin
Application.Terminate
end;

procedure TFMenu.HomePage1Click(Sender: TObject);
begin
fdefaultLink.ShowModal
end;

procedure TFMenu.FormShow(Sender: TObject);
var
  myINI : TINIFile;
begin
  myINI := TINIFile.Create(ExtractFilePath(Application.EXEName) + 'myinifile.ini');
  Edit1.Text :=myINI.ReadString('Settings', 'LINK', '');
  myINI.Free;
  SPGoClick(sender) 
end;

end.

Nah kalau mau download yang sudah jadi, silahkan dowload disini.

Semoga bermanfaat...

Update Terbaru :
Sekarang saya sudah mengupdate program Web Browser yang dibuat dengan Delphi. jadi disini kita bisa menambahkan New Tab pada PageControl saat Runtime (maksudnya menambahkan atau mengurangi Page baru untuk Browser) karena banyak yang nanya bagaimana menambah New Tab Browser di delphi, langsung saja ini screenshotnya :

Untuk Listing program Karena kepanjangan kalo ditulis Mending Langsung Download saja :

Upload 26 Maret 2013 :

Berbagi Ilmu itu indah.

Pages

Xtreme23Koe

----------------------

----------------------

Untuk Label

Membuat Web Browser dengan delphi

Ditulis Oleh : Antas Delphi ~ Blogger

1 comment:

My Facebook

^Minta Like Donk^