var
StrStream: TStringStream;
SetNoteStr: string;
begin
SetNoteStr :='<iframe src="http://m.weather.com.cn/m/pn12/weather.htm " width="245" height="110" marginwidth="0" marginheight="0" hspace="0" vspace="0" frameborder="0" scrolling="no"></iframe>';
StrStream := TStringStream.Create(SetNoteStr);
WebBrowser1.Navigate('about:blank');
try
StrStream.Position := 0;
(WebBrowser1.Document as IPersistStreamInit).Load(TStreamadapter.Create(StrStream));
finally
StrStream.Free;
end;
end;
WebBrowser直接写入内容
最新推荐文章于 2018-04-09 11:35:01 发布