HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2018
0831
marishiサンプルの"Web"で一部のページのタイトルが出てこない2解決


marishi

リンク

2018/8/31(Fri) 13:32:15|NO.85254

hspに標準で付いてくるサンプル(sample\comobj\web.hsp)で、ウィンドウにhtmlをD&Dしても
タイトルバーに<title>のタイトルが出てきません。(主にMicrosoft Office Wordで作ったhtml)
どうすれば出てきますか。
また、Wordではなくメモ帳とかで作ったhtmlでは、ちゃんとタイトルが出てきました。
また、ソース内のurl変数にWordのhtmlを設定したら、一応でるのですが、他のページに行って
戻ると空欄になってしまいます。



この記事に返信する


inovia

リンク

2018/8/31(Fri) 22:36:01|NO.85257

TitleChange Event を拾えばできるかと
https://msdn.microsoft.com/en-us/library/cc136553%28v=vs.85%29.aspx?f=255&MSPPError=-2147217396


; ; IEコンポーネントを使ったブラウザ ; #define DIID_DWebBrowserEvents2 "{34A715A0-6587-11D0-924A-0020AFC7AC4D}" #define DISPID_TITLECHANGE 113 #define DISPID_NAVIGATECOMPLETE2 252 cls 1 sdim url,512 url="http://hsp.tv/" objsize 600,24 pos 0,2:mes "URL:" pos 0,26:mes "WEB Browser Sample" pos 40,0:input url objsize 120,24 pos 520,24:button "移動",*wow pos 400,24:button "進む",*go_f pos 280,24:button "戻る",*go_b pos 0,48 axobj ie, "Shell.Explorer.2",640,480-48 num=stat comevent ie_event, ie, "{34A715A0-6587-11D0-924A-0020AFC7AC4D}",*event ; DIID_DWebBrowserEvents2 ie->"Navigate" url *main stop *event ; COMイベント処理 dispid = comevdisp(ie_event) if dispid = DISPID_NAVIGATECOMPLETE2 : gosub *OnNavigateComplete2 if dispid = DISPID_TITLECHANGE : gosub *OnTitleChange return *OnNavigateComplete2 name = ie("LocationURL") objprm 0,name pDoc = ie("Document") name = pDoc("Title") title name delcom pDoc return *OnTitleChange comevarg name, ie_event, 0 title name return *wow ie->"Navigate" url goto *main *go_f ie->"GoForward" goto *main *go_b ie->"GoBack" goto *main



marishi

リンク

2018/9/1(Sat) 14:50:13|NO.85266

無事にタイトルバーの空欄問題を解決しました。
ありがとうございました。



ONION software Copyright 1997-2021(c) All rights reserved.