VPF::Проблема с WebBrowser - Форум программистов

aktuba

Дата 25.4.2006, 20:23 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: нет
Всего: 38

Кладу на форму WebBrowser, пишу следующий код:

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MSHTML, OleCtrls, SHDocVw;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    procedure WebBrowser1DocumentComplete(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Disp: IDispatch;
  Editor: IHTMLDocument2;

implementation

{$R *.dfm}

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  CurrentWB: IWebBrowser;
  Editor: IHTMLDocument2;
begin
  Disp:=pDisp;
end;


procedure TForm1.FormCreate(Sender: TObject);
var
  CurrentWB: IWebBrowser;
begin
  WebBrowser1.Navigate('about:<html><body></body></html>');
  CurrentWB := Disp as IWebBrowser;
  [B]editor:=(CurrentWB.Document as IHTMLDocument2);[/B]
  editor.DesignMode := 'On';
end;


end.

В выделенной строке происходит ошибка. Что не так?

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

Тьма

Дата 25.4.2006, 21:02 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 339
Регистрация: 22.1.2005
Где: Украина, Винница

Репутация: нет
Всего: 4

какая именно ошибка? может тебе просто надо сделать так гдето перед этой строкой:

Код


editor := IHTMLDocument2.create

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

Vir magni ingenii

aktuba

Дата 25.4.2006, 21:05 (ссылка)

(нет голосов)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

Репутация: нет
Всего: 38

нет, нашел решение на этом форуме, просматривая похожие проблемы:

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MSHTML, OleCtrls, SHDocVw;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    procedure WebBrowser1DocumentComplete(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Disp: IDispatch;
  Editor: IHTMLDocument2;

implementation

{$R *.dfm}

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  CurrentWB: IWebBrowser;
  Editor: IHTMLDocument2;
begin
  Disp:=pDisp;
  While WebBrowser1.ReadyState<READYSTATE_INTERACTIVE Do Application.ProcessMessages;
  CurrentWB := Disp as IWebBrowser;
  editor:=(CurrentWB.Document as IHTMLDocument2);
  editor.DesignMode := 'On';
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate('about:<html><body></body></html>');
end;


end.

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »