RSS订阅 | 匿名投稿
您的位置:网站首页 > 控件 > 正文

delphi 修改WebBrowser的内容

作者:admin 来源: 日期:2014/8/2 16:03:35 人气: 标签:

修改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


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: