掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
リンクをクリック (ID:39629)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
そういった内容はMSHTML.pas内にあります。 procedure TForm1.Button4Click(Sender: TObject); //uses MSHTML var i:Integer; HTMLDoc:DispHTMLDocument; HTMLCollection:IHTMLElementCollection; HTMLElement:IHTMLElement; begin HTMLDoc:= WebBrowser1.Document as DispHTMLDocument; HTMLCollection := HTMLDoc.links; for i := 0 to (HTMLCollection.length -1) do begin HTMLElement := HTMLCollection.item(i, 0) as IHTMLElement; Memo1.Lines.Add(HTMLElement.InnerText); end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.