1
Delphi XE10(VCL)のTWebBrowserコンポーネントに表示されているWebサイトから画像を削除する必要があります。検索に何時間も費やしていましたが、たくさんのコードを試しましたが、私が望むように動作していません。TWebBrowser内のアクティブなHTMLから特定のIMGタグを削除
これは私のコードの抜粋です:
procedure TForm16.WebBrowser1DocumentComplete(ASender: TObject;
const pDisp: IDispatch; const [Ref] URL: OleVariant);
var
Doc: IHTMLDocument2;
ElementCollection: IHTMLElementCollection;
Frames: IHTMLElementCollection;
Element: IHTMLElement;
Frame: IHTMLDOMNode;
i: Integer;
begin
Doc := WebBrowser1.Document as IHTMLDocument2;
ElementCollection := Doc.body.all as IHTMLElementCollection;
Frames := ElementCollection.tags('IMG') as IHTMLElementCollection;
if Frames <> nil then
begin
for i := 0 to Frames.length - 1 do
begin
Element := Frames.item(i, 0) as IHTMLElement;
Frame := Element as IHTMLDOMNode;
if Frame <> nil then
begin
Frame.parentNode.removeChild(Frame);
end;
end;
end;
end;
残念ながら、それはすべての画像が削除されます。特定のHREFを持つ特定のイメージを削除したい。これで私を助けることができますか?
これらをすべてループしてすべて削除します。なぜあなたはそのうちの1つだけを削除したいのですか? –
ありがとうございます。 –
私はhref = 'exp.com/exp.png'を持っているimgノードを削除することができるように、それらのすべてをループすることはしませんが、私はそれをどのように実現できるのかわかりません –