掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TEdgeBroWserのブックマークの実装について (ID:150658)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
procedure TForm1.EdgeBrowser1NavigationCompleted(Sender: TCustomEdgeBrowser; IsSuccess: Boolean; WebErrorStatus: TOleEnum); var P: PWideChar; MemoryStream: TMemoryStream; begin WEB_TITLE := TEdgeBrowser(SEnder).DocumentTitle; Caption := WEB_TITLE; //ICON 取得 MemoryStream := TMemoryStream.Create; try IdHTTP1.Get(WEB_URL + '/favicon.ico',MemoryStream); if MemoryStream.Position <> 0 then begin WEB_FAVICON := WEB_URL + 'favicon.ico'; end; EdgeBrowser1.ExecuteScript('encodeURI(document.documentElement.innerHTML)'); except end; MemoryStream.Free; end; EdgeBrowser1.ExecuteScript('encodeURI(document.documentElement.innerHTML)'); を try - except の外へ
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.