delphi 去除html代码格式字符

2018-5-24

delphi 去除html代码格式字符

uses
  Winapi.ActiveX,MSHTML;
procedure TForm1.Button1Click(Sender: TObject);
var
  doc2:IHTMLDocument2;
  doc:IHTMLDocument;
  vHTML : OleVariant;
  testHtml: string;
begin
  testHtml := '<html><head>123123</head><body>12312344444</body></html>';
  doc2 := CoHTMLDocument.Create() as IHTMLDocument2;
  doc2.designMode:='ON';
  doc2.charset:='UTF-8';
  vHTML := VarArrayCreate([0, 0], varVariant);
  vHTML[0] :=testHtml;
  doc2.Write(PSafeArray(TVarData(vHTML).VArray));
  ShowMessage( doc2.body.outerText);
 
end;

delphi 去除html代码格式字符　https://www.gzza.com/4691.html
本网站资源来自互联网收集，仅供用于学习和交流，请勿用于商业用途。原创内容除特殊说明外，转载本站文章请注明出处。
如有侵权、不妥之处，联系删除。 Email：master@gzza.com

THE END

正安山竹笋

<<上一篇

Delphi ADOQuery查询、插入、删除、修改

下一篇>>