CoHTMLDocument

http://blog.csdn.net/dlwxn/article/details/2860329

http://www.itnose.net/detail/120267.html

不知道是 线程内代码造成的内存泄露还是反复创建线程造成的

线程里 用到了 以下代码

function THtmlThreade.HtmlToText(HtmlText: WideString): WideString;
var
  V: OleVariant;
  Document: IHTMLDocument2;
begin
  Result := HtmlText;
 
  if HtmlText = '' then Exit;
  CoInitialize(nil);
  Document := CoHTMLDocument.Create as IHtmlDocument2;
  try
    V := VarArrayCreate([0, 0], varVariant);
    V[0] := HtmlText;
    Document.Write(PSafeArray(TVarData(v).VArray));
    Document.Close;
    Result := Trim(Document.body.outerText);
  finally
    Document := nil;
    CoUninitialize;
  end;
end;

好像v没有清除？

貌似 自己搞定了 线程里用到com 一定要自己手动释放  
initialization  
  OleInitialize(nil);

finalization  
  OleUninitialize;

另外要 用 CoInitializeEx(nil,COINIT_MULTITHREADED);  而不是 CoInitialize(nil);

再次测试  内存没有增加

不对之处 请指正