Labels

Minggu, 02 Oktober 2011

Cara Membuat Web Browser Dengan Delphi 7

nah loh...ketemu lagi sama gue sob...gimana kabarnya nih ?
kali ini gue bakal ngasih loe source kode buat web browser lewat delphi 7
langsung aja lah...keburu malem...hehehehe.. Here We Go >>


unit Unit1;

interface

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

type
TForm1 = class(TForm)
Panel1: TPanel;
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Panel2: TPanel;
Panel3: TPanel;
ProgressBar1: TProgressBar;
Label1: TLabel;
WebBrowser1: TWebBrowser;
Label2: TLabel;
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure WebBrowser1BeforeNavigate2(ASender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
procedure WebBrowser1CommandStateChange(ASender: TObject; Command: Integer;
Enable: WordBool);
procedure WebBrowser1NavigateComplete2(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
procedure WebBrowser1NavigateError(ASender: TObject; const pDisp: IDispatch;
var URL, Frame, StatusCode: OleVariant; var Cancel: WordBool);
procedure WebBrowser1ProgressChange(ASender: TObject; Progress,
ProgressMax: Integer);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Kembali1Click(Sender: TObject);
procedure Maju1Click(Sender: TObject);
procedure Berhenti1Click(Sender: TObject);
procedure Ulangi1Click(Sender: TObject);
procedure elusuri1Click(Sender: TObject);
procedure Keluar1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Berhenti1Click(Sender: TObject);
begin
webbrowser1.Stop;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
webbrowser1.GoBack;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
webbrowser1.GoForward;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
webbrowser1.Navigate(edit1.Text);
end;

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

end;

procedure TForm1.elusuri1Click(Sender: TObject);
begin
webbrowser1.Navigate(edit1.Text);
end;

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

procedure TForm1.Kembali1Click(Sender: TObject);
begin
webbrowser1.GoBack;
end;

procedure TForm1.Maju1Click(Sender: TObject);
begin
webbrowser1.GoForward;
end;

procedure TForm1.Ulangi1Click(Sender: TObject);
begin
webbrowser1.Refresh;
end;

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

procedure TForm1.WebBrowser1CommandStateChange(ASender: 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;

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

procedure TForm1.WebBrowser1NavigateError(ASender: TObject;
const pDisp: IDispatch; var URL, Frame, StatusCode: OleVariant;
var Cancel: WordBool);
begin
label1.Caption := 'Error!'
end;

procedure TForm1.WebBrowser1ProgressChange(ASender: 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.

kalo uda klik Save, kemudian Compile..
okey semoga bermanfaat yah....salam blogging \m/

0 comment:

Posting Komentar

Followers