关于TWebBrowser

Question

这两个函数分别什么用 一行行解释下，麻烦了 没用过这控件
function GetHTML(Document:IHTMLDocument2):String;
var
  i:integer;
  IDisp:IDispatch;
  pElement:IHTMLElement;
begin
  for I := 0 to Document.all.length - 1 do
  begin
    IDisp:=Document.all.item(i,i);
    IDisp.QueryInterface(IID_IHTMLElement,pElement);
    if CompareText(pElement.id, 'sourceEditor') = 0 then
    begin
      Result := pElement.outerText;
      exit;
    end;
  end;
end;function SetHTML(Document:IHTMLDocument2; Str: string): string;
var
  i:integer;
  IDisp:IDispatch;
  pElement:IHTMLElement;
begin
  for I := 0 to Document.all.length - 1 do
  begin
    IDisp := Document.all.item(i,i);
    IDisp.QueryInterface(IID_IHTMLElement,pElement);
    if CompareText(pElement.id, 'sourceEditor') = 0 then
    begin
      pElement.insertAdjacentText('beforeEnd', Str);
      Exit;
    end;
  end;
end;

Answer 1

第一个是找到'sourceEditor'的内部html代码
第二个是在'sourceEditor'中添加html代码

Answer 2

第一个遍历html中的元素，找到一个ID为‘sourceEditor’的东西，获取标签之间的文本。第二个是在‘sourceEditor’标签的‘beforeEnd’之前插入文本。具体参考MSDN的IHTMLElement