delphi的webbrower怎么样可以自定义显示的html内容？
我用delphi的webbrower访问一个网页，在那个网页中有个广告内容，我想在读取了网页的源代码后，在显示在webbrower控件中之前，过滤掉那部分广告内容的代码，...
我用delphi的webbrower访问一个网页，在那个网页中有个广告内容，我想在读取了网页的源代码后，在显示在webbrower控件中之前，过滤掉那部分广告内容的代码，然后在进行显示，不知有没有高手解答。
展开
展开全部
function HTMLProcess(strCode: string): string;
begin
Result := '<html><span style="color:#aaccaa">asd</span></html>';
end;
procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
Var
doc: IHTMLDOcument2;
strCode: String;
strProcessed: String;
begin
doc:=WebBrowser1.Document as IHTMLDOcument2;
strCode := Doc.body.innerHTML;
strProcessed := HTMLProcess(strCode);
Doc.body.innerHTML := strProcessed;
end;
在HTMLProcess函数里把你需要替换掉的广告HTML代码用正则或者直接Replace掉返回就可以了。
begin
Result := '<html><span style="color:#aaccaa">asd</span></html>';
end;
procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
Var
doc: IHTMLDOcument2;
strCode: String;
strProcessed: String;
begin
doc:=WebBrowser1.Document as IHTMLDOcument2;
strCode := Doc.body.innerHTML;
strProcessed := HTMLProcess(strCode);
Doc.body.innerHTML := strProcessed;
end;
在HTMLProcess函数里把你需要替换掉的广告HTML代码用正则或者直接Replace掉返回就可以了。
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
