Delphi Tips(6) HTMLを直接 TWebBrowserで表示してみる

iPhoneでは、アプリのなかでブラウザとは意識させないで、Web画面でHTMLを表示させることをよくやるのですが、同じことをDelphiで試してみました。

target=”_blank”指定のリンク先を開くとIEが起動します
w1

ポイント: usesにMSHTMLの指定が必要です。

VCL FormにTWebBrowserを張り付付けて実行してみてください

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  SL: TStringList;
  IEObj: InternetExplorer;
  HTMLDoc2: IHTMLDocument2;
begin
  Form1.borderstyle := bsDialog;
  WebBrowser1.Align := alClient;
  IEObj := WebBrowser1.Application as InternetExplorer;
  WebBrowser1.Navigate('about:blank');
  while IEObj.ReadyState < READYSTATE_INTERACTIVE do
    Application.ProcessMessages;
  SL := TStringList.Create;
  SL.Add('<pre>');
  SL.Add('<b>' + 'タイトル' + '</b>');
  SL.Add('本文');
  SL.Add('本文');
  SL.Add('本文');
  SL.Add('</pre>');
  SL.Add('<a href=http://www.u670.com/ target="_blank">http://www.u670.com/</a>');
  HTMLDoc2 := IEObj.Document as IHTMLDocument2;
  HTMLDoc2.body.innerHTML := SL.Text;
  SL.Free;
end;

end.

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です