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æè¿åå°±å¯ä»¥äºã
温馨提示:答案为网友推荐,仅供参考