您的位置：首页 > Web前端 > HTML

delphi 将 HTML 代码直接加入到 TWebbrowser 组件中去

2012-02-16 15:04 441 查看

将 HTML 代码直接加入到 TWebbrowser 组件中去

uses

ActiveX;

procedure WB_LoadHTML(WebBrowser: TWebBrowser; HTMLCode: string);

var

sl: TStringList;

ms: TMemoryStream;

begin

WebBrowser.Navigate('about:blank');

if Assigned(WebBrowser.Document) then

begin

sl := TStringList.Create;

try

ms := TMemoryStream.Create;

try

sl.Text := HTMLCode;

sl.SaveToStream(ms); 0D

ms.Seek(0, 0);

(WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));

0A finally

ms.Free;

end;

finally

sl.Free;

end;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

WB_LoadHTML(WebBrowser1,' <html > <body bgcolor= "#0099FF " >SwissDelphiCenter </html >');

end;

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航