修改html后 再显示在浏览器中
procedure THelperForm.EditHTML(WebBrowser: IWebbrowser2; HTMLCode: string);
var
sl: TStringList;
ms: TMemoryStream;
X: OleVariant;
begin
WebBrowser.Navigate('about:blank', X, X, X, X);
if Assigned(WebBrowser.Document) then
begin
sl := TStringList.Create;
try
ms := TMemoryStream.Create;
try
sl.Text := HTMLCode;
sl.SaveToStream(ms);
ms.Seek(0, 0);
(WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));
finally
ms.Free;
end;
finally
sl.Free;
end;
end;
end;