delphi 修改WebBrowser的内容

修改WebBrowser的内容

很多方法都可以修改WebBrowser的内容。比如说修改innerHTML、以流方式修改。

以流方式就不说了，网上很多代码。直接修改innerHTML的方法很简单，但是有个缺点，修改后没保存，最近在做一个小东西，需要在WebBrowser编辑模式和浏览模式中切换，直接修改innerHTML的问题是，切换之后修改的数据丢失了。

另一种修改方法，利用IHTMLDocument2的write方法写入：

procedure write(AText: string);
var
  psSafe: PSafeArray;
  param: PVariantArg;
  pwsValue: TBStr;
begin
  try
    pwsValue := SysAllocString(PWideChar(WideString(AText)));
    psSafe := SafeArrayCreateVector(VT_VARIANT, 0, 1);
    if psSafe <> nil then
    try
      SafeArrayAccessData(psSafe, Pointer(param));
      param^.vt := VT_BSTR;
      param^.bstrVal := pwsValue;
      SafeArrayUnaccessData(psSafe);
      FDoc.write(psSafe);
    finally
      SysFreeString(pwsValue);
      SafeArrayDestroy(psSafe);
    end;
  except
  end;
end;
奇怪的是，多写入几次，总会抛出异常。尝试将原来的内容完全清除还是没用。

偶然发现，只须在write后加入FDoc.close就可以了。

来源：http://www.hicpp.com/code/319.html