Форум программистов [Powered by Invision Power Board]

Код

unit f_GeckoTest;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, OleCtrls, comobj, mozbwsr, ExtCtrls, ComCtrls;

type
  TfGeckoTest = class(TForm)
    txtURL: TEdit;
    btnGo: TButton;
    staMain: TStatusBar;
    pnlGeckoContainer: TPanel;
    procedure btnGoClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    FGecko : TMozillaBrowser;
    procedure GeckoNav(sURL: string);
    function  CreateGeckoObject: boolean;
    procedure DoStatusChange(Sender: TObject; const Text: WideString);
  public

  end;

var
  fGeckoTest: TfGeckoTest;

implementation

{$R *.DFM}

procedure TfGeckoTest.FormDestroy(Sender: TObject);
begin
     if Assigned(FGecko) then FGecko.Free;
end;

procedure TfGeckoTest.btnGoClick(Sender: TObject);
begin
     GeckoNav(txtURL.Text);
end;

procedure TfGeckoTest.GeckoNav(sURL: string);
var
   Flags, TargetFrameName, PostData, Headers : OleVariant;
begin
     if not CreateGeckoObject then exit;
     FGecko.Navigate(sURL, Flags, TargetFrameName, PostData, Headers);
end;

function TfGeckoTest.CreateGeckoObject: boolean;
begin
     if Assigned(FGecko) then
     begin
          Result := True;
          exit;
     end;

     Result := False;

     screen.Cursor := crHourglass;
     try
         try
            FGecko := TMozillaBrowser.Create(self);
            with FGecko do
            begin
                 ParentWindow := pnlGeckoContainer.Handle;
                 SetBounds(1, 1, pnlGeckoContainer.Width-1, pnlGeckoContainer.Height-1);
                 OnStatusTextChange := DoStatusChange;
            end;

            Result := True;
         except
             on EOleError do
             begin
                  MessageDlg('Unable to create Gecko object.', mtError, [mbOK], 0);
             end;
         end;
     finally
        screen.Cursor := crDefault;
     end;
end;

procedure TfGeckoTest.DoStatusChange(Sender: TObject; const Text: WideString);
begin
     staMain.SimpleText := Text;
end;


end.