こんにちは、いつもお世話になってます。表裏 未里です。
TUIWebBrowserを使ってブラウザを作って配っているのですが
最近、問題点を指摘されました。
それは、お気に入りの整理を選択すると、真っ白い小さなウインドウが表示されるだけ。
次に、お気に入りで追加をしても再起動しないと反映されないというものです。
TUIFavoritesコンポーネントが問題を起こしているのでしょうか。
作った最初の時はちゃんと動いていたと思うのですが。。。
IEが8とかになってきたから問題が起きたのかなと思ってます。
このコンポーネントを利用している方で、解決作知っていらっしゃる方いましたらお教え頂けると幸いです。
もしくは、IEのお気に入りを自作ブラウザに搭載する方法が載っているホームページとかご存じでしたらご教授頂けると幸いです!
よろしくお願いします!
環境
Delphi5 プロフェッショナル
WindowsXP SP3
function OrganizeFavorite(h: THandle; Path: PChar): Boolean;
stdcall external 'SHDocVw.dll' Name 'DoOrganizeFavDlg';
この関数を宣言して使いなされ。
UIWebBrowserは放置されてだいぶ経つから、自分では自作ブラウザなどは
すべてTWebBrowserを使用してる。
確認不足で申し訳ない。
前は上のコードで動いてたが、いまやったら画面が真っ白。
ちょっと確認させてくだされ。
裕子:「ねぇ、マコト、ハルコさんはホントに旅行に行ってるの?」
真琴:「うん、まぁそう、…ハルコさんは きっと高校生活で悔いが残るコトがあったンじゃないかな?」
裕子:「また、話をはぐらかして…、"渚"もホッポリぱなしなんてオカシイじゃない?」
真琴:「あ、渚はアタシが週に一度は掃除してあげてるから…、で、この不具合も放置されたままよね」
UIWebBrowser.pas の427行目
function DoOrganizeFavDlg(handle :THandle ; dir :pAnsiChar ): hresult; stdcall;
//external 'Shdocvw.dll'; // このDLLは IE8では使えない?
external 'IEFrame.dll'; // コッチなら大丈夫
真琴:「でも、"お気に入りで追加をしても再起動しないと反映されない"なんてコトはないけど…」
裕子:「マコト、話をそらさないでよ、アタシはハルコさんの話をしてるの」
真琴:「だから、ハルコさんは高校生をまたやり直してるのよ、これが何度目か知らないけど^^;」
裕子:「もう〜 変な作り話 いい加減にしてよ、…あっ もしかして、ハルコさんは神隠しにあったとか」
真琴:「ユウコ、そんな…昨日のテレビドラマのようなコトあるわけないでしょ?」
あ さん! どうしてこうなった さん! 大変ありがとうございます!!
なるほど。Shdocvw.dllが使えなくなってIEFrame.dllを使うんですね(^^)
UIWebBrowser.pasとUIFavorites.pasを書き直したらばっちり動きました!!
皆様ありがとうございました!!
解決押し忘れてました(汗)
ほんと、皆様ありがとうございました!! 心より感謝です!!
ツイート | ![]() |