正 文：
有时，由于软件的特殊需要，我们希望DELPHI在WebBrowser或embeddedwb里动态更改返回的数据内容，而这需要返回网页的所有原始源码，包括网页开始的DOCTYPE html PUBLIC声明部分，仅仅使用mshtml是无法实现的，需要用到数据流的方法。
具体执行方法如下（需要 uses mshtml,activex）：
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
ms: TMemoryStream;
StrStream:TStringStream;
begin
//先读取到流中，暂存于memo1
if not Assigned(embeddedwb1.Document) then Exit;
ms := TMemoryStream.Create;
(embeddedwb1.Document as IPersistStreamInit).Save(TStreamAdapter.Create(ms), True);
ms.Position := 0;
Memo1.Lines.LoadFromStream(ms);
ms.Free;
//再从流中取出数据输出
s := memo1.text;
//执行替换部分代码
s:=StringReplace(s,'_blank','_self',[rfReplaceAll,rfIgnoreCase]);
StrStream:=TStringStream.Create(s);
try
StrStream.Position:=0;
(embeddedwb1.Document as IPersistStreamInit).Load(TStreamadapter.Create(StrStream));
finally
StrStream.Free;
end;
end;
通过以上转换，可以实现无损式的动态修改网页源码，保证css格式。
但存在一个问题，比如原始的网页的uri为 http://www.piaoyi.org，经过上面的数据流处理后，网页的url变成了 about:blank ，这就使得网页里采用相对路径的文件，如 images/piaoyi.gif 的路径发生了错误，即变成了 about:blankimages/piaoyi.gif ，明显这是路径错误。解决的方法，就是替换所有相对路径为绝对路径。方法就是再html代码前加上这么一句：<base href="http://www.piaoyi.org">
另外，还有一种方法可以动态的写入源码到 webbrowser 或 embeddedwb 里，如下：
procedure TForm11.Button1Click(Sender: TObject);
var
v:OleVariant;
HTMLDocument:ihtmldocument2;
begin
HTMLDocument := EmbeddedWB1.Document as IHTMLDocument2;
v := VarArrayCreate([0, 0], varVariant);
v[0] := '这里写入html代码';
HTMLDocument.Write(PSafeArray(TVarData(v).VArray));
HTMLDocument.Close;
end;
