Delphi ile Basit WebBrowser İnternet Gezgini Kaynak Kodları

Bu uygulama bir Delphi ile WebBrowser İnternet Gezgini kullanımını anlatan bir kaynak kod dosyasıdır. Delphi Programlama Dili öğrenmede çok yararlı olacaktır. Ayrıca Delphi'de WebBrowser İnternet Gezgini ile programınızda site gezme işlemlerini nasıl yapacağınıza dair size fikir verecektir.

TWebBrowser bileşeni (Delphi IDE'nin İnternet paletinde), Web sitelerinde gezinmek, Web sayfalarını ve diğer belgeleri görüntülemek ve Internet'te bulunan verileri indirmek için uygulamanızın formlarında kullanabileceğiniz bir Microsoft ActiveX ® denetimidir.

TWebBrowser bileşeni, uygulamanızdan bir Web tarayıcısına veya başka bir belge görüntüleme uygulamasına geçerek uygulamanızdaki iş akışını kesmek istemediğiniz durumlarda kullanışlıdır.

TWebBrowser bileşeni, Microsoft Internet Explorer sürüm 3.0 veya sonraki sürümlerinin (yani 4.0, 4.01, 5, 5.5, 6 ...) görüntüleyebileceği herhangi bir Web sayfasını görüntüleyebilir. 

Örneğin, TTWebBrowser bileşeni, aşağıdaki özelliklerin bulunduğu sayfaları görüntüleyebilir:

1. Kayan çerçeveler gibi standart HTML ve HTML geliştirmeleri ve Basamaklı Stil Şablonu
2. Diğer ActiveX denetimleri
3. Çoğu Netscape eklentileri
4. Microsoft Visual Basic Scripting Edition (VBScript) veya JavaScript
5. JavaTM uygulamaları
6. Video ve ses çalma gibi multimedya içeriği
7. Sanal Gerçeklik Modellemesi ile oluşturulan üç boyutlu sanal dünyalar Dil (VRML)

Web sayfalarını açmanın yanı sıra, TWebBrowser bileşeni, çoğu Microsoft Office belgesini içeren herhangi bir ActiveX belgesini açabilir. Örneğin, bir kullanıcının bilgisayarında Microsoft Office yüklüyse, TWebBrowser bileşenini kullanan bir uygulama Microsoft Excel elektronik tablolarını, Microsoft Word belgelerini ve Microsoft PowerPoint sunumlarını denetim içinden açıp düzenleyebilir.

Benzer şekilde, Microsoft Excel Viewer, Microsoft Word Viewer veya Microsoft PowerPoint Viewer yüklüyse, kullanıcılar bu belgeleri TWebBrowser bileşeninde görüntüleyebilir. TWebBrowser bileşeniyle, uygulamanızın kullanıcıları, World Wide Web'deki sitelere ve ayrıca yerel bir sabit diskteki ve yerel alan ağındaki klasörlere göz atabilir.

Kullanıcılar, köprüleri tıklayarak veya bir metin kutusuna bir URL yazarak izleyebilir. Ayrıca, TWebBrowser bileşeni, kullanıcıların daha önce taranmış siteleri, klasörleri ve belgeleri görüntülemek için göz atabilecekleri bir geçmiş listesi tutar.

TWebBrowser'da bir Web sayfasını veya dokümanı görüntüleme

TWebBrowser bileşeninde bir Web sayfasını veya belgeyi görüntülemek için, Navigate yöntemini programlı olarak kullanmamız gerekir. Gezinme yönteminin kodları şöyledir:

Uygulamamızın genel görünümü alttaki şekilde olacaktır:

URL , bir dosyanın yol adını veya Web tarayıcısının görüntülemesi gereken bir İnternet kaynağının Tek Tip Kaynak Bulucu'nu (URL) belirtir. URL, bir İnternet protokolüne ve bir intranet sunucusundaki bir konuma işaret ediyorsa, uygulamanızı çalıştıran bilgisayarın internete veya intranete bağlı olması ve bu sunucuya erişim izninin olması gerekir. URL, yerel bir sabit sürücü veya intranetteki standart bir dosya sistemi yoluna işaret ediyorsa, TWebBrowser bileşeni belgeyi açar ve hemen görüntüler. TWebBrowser bileşeni, Microsoft Office belgelerini, metin dosyalarını ve HTML belgelerini açabilir. 

Flags  - Bayraklar , kaynağın geçmiş listesine eklenip eklenmeyeceğini, önbellekten okunup okunmamasını ve kaynağın yeni bir pencerede gösterilip gösterilmeyeceğini belirten bir değerler kümesidir. 

TargetFrameName , kaynağın gösterileceği karenin adı veya kaynak adlandırılmış bir çerçevede görüntülenmemesi gerekiyorsa sıfırdır. 

PostData , bir HTTP POST mesajı oluşturmak için Navigate kullanırken sunucuya gönderilen verileri içerir. PostData sıfır ise, Navigate bir HTTP GET mesajı oluşturur. URL bir HTTP URL'si belirtmiyorsa PostData yoksayılır. 

Başlıklar, URL bir HTTP URL’sini temsil ettiğinde sunuculara gönderilen başlıkları içerir. HTTP başlıkları, sunucunun istenen eylemi, veri türünü vb. 

Şimdi sonuçlandıralım. 

Yeni bir VCL Uygulaması projesi oluşturun ve bir klasöre kaydedin. Ardından, forma bir TWebBroswer bileşeni ekleyin. Ardından aşağıdaki gibi oluşturmak için düğmeler, Düzenlemeler veya diğer gerekli bileşenleri ekleyin.

Kodlarımız şöyle:

unit Unit1;
interface
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.OleCtrls, SHDocVw, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.Buttons;
type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Panel1: TPanel;
    Label1: TLabel;
    editURL: TEdit;
    btnLoad: TButton;
    btnnext: TSpeedButton;
    btnback: TSpeedButton;
    btnrefresh: TSpeedButton;
    btnHome: TSpeedButton;
    btnStop: TSpeedButton;
    btnQuit: TSpeedButton;
    procedure btnLoadClick(Sender: TObject);
    procedure editURLKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure btnbackClick(Sender: TObject);
    procedure btnnextClick(Sender: TObject);
    procedure btnHomeClick(Sender: TObject);
    procedure btnrefreshClick(Sender: TObject);
    procedure btnStopClick(Sender: TObject);
    procedure btnQuitClick(Sender: TObject);
    procedure WebBrowser1TitleChange(ASender: TObject; const Text: WideString);
  private
    { Private declarations }
    procedure OpenURL;
  public
    { Public declarations }
  end;
var
  Form1: TForm1;

implementation
{$R *.dfm}

procedure TForm1.OpenURL;
begin
  WebBrowser1.Navigate(editURL.Text);
// URL can be www.google.com
// URL can be C:\testfolder
// URL can be C:\testfolder\tset1.jpg
end;

procedure TForm1.btnLoadClick(Sender: TObject);
begin
  OpenURL;
end;

procedure TForm1.editURLKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
    OpenURL;
end;

procedure TForm1.btnbackClick(Sender: TObject);
begin
  WebBrowser1.GoBack
end;

procedure TForm1.btnHomeClick(Sender: TObject);
begin
  WebBrowser1.GoHome;
end;

procedure TForm1.btnnextClick(Sender: TObject);
begin
  WebBrowser1.GoForward;
end;

procedure TForm1.btnQuitClick(Sender: TObject);
begin
  WebBrowser1.Quit;
end;

procedure TForm1.btnrefreshClick(Sender: TObject);
begin
  WebBrowser1.Refresh;
end;

procedure TForm1.btnStopClick(Sender: TObject);
begin
  WebBrowser1.Stop;
end;

procedure TForm1.WebBrowser1TitleChange(ASender: TObject;
  const Text: WideString);
begin
  editURL.Text := Text;
end;

end.

Kaynak kodlarını almak isterseniz, veya sorularınız olursa konu altına yorum bırakabilirsiniz, mail adresinize mutlaka geri dönüş yapılacaktır. Saygılarımızla...