delphi 有什么方法去除html格式 20
1个回答
展开全部
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>123123<br/>44444</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;
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
