VPF::Добавить HTML к TWebbrowser Document? - Форум программистов

Poseidon

Дата 18.5.2005, 23:29 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

Код

uses 
  MSHTML; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
  Range: IHTMLTxtRange; 
begin 
  Range := ((WebBrowser1.Document as IHTMLDocument2).body as 
    IHTMLBodyElement).createTextRange; 
  Range.collapse(False); 
  Range.pasteHTML('<br><b>Hello!</b>'); 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
  Webbrowser1.Navigate('www.google.ch'); 
end;

Код

unit Unit1; 
// by Sprint 

interface 


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


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


var 
  Form1: TForm1; 


implementation 


{$R *.dfm} 
{----------------------------------------------------------------} 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  FirstRun := True; 
  WebBrowser1.Navigate('about:blank'); 
end; 

{----------------------------------------------------------------} 


procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; 
  const pDisp: IDispatch; var URL: OleVariant); 
var 
  WebDoc: HTMLDocument; 
  WebBody: HTMLBody; 
begin 
  if FirstRun then 
    if pDisp = WebBrowser1.Application then 
    begin 
      FirstRun := False; 
      WebDoc := WebBrowser1.Document as HTMLDocument; 
      WebBody := WebDoc.body as HTMLBody; 
      WebBody.insertAdjacentHTML('BeforeEnd', '<h1>Hello World!</h1>'); 
    end; 
end; 

{----------------------------------------------------------------} 

end.

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

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