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


HSPTV!掲示板


未解決 解決 停止 削除要請

2009
0420
kiIE2未解決


ki

リンク

2009/4/20(Mon) 21:49:44|NO.24725

サンプルで下のようなスクリプトがあったのですが
なぜかyoutube→適当な動画を再生→アドレスがabout.breakの
ままです。自分だけの不具合でしょうか?
対処方法がわかる方がいたらよろしくお願いします。
#define DISPID_WINDOWSETHEIGHT 267
#define DISPID_ONTHEATERMODE 260


cls 1
sdim url,512
url="http://www.youtube.com/"
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, DIID_DWebBrowserEvents2,*event
ie->"Navigate" url

*main
stop

*event
; COMイベント処理
dispid = comevdisp(ie_event)
if dispid = DISPID_BEFORENAVIGATE2 : gosub *OnBeforeNavigate
if dispid = DISPID_NAVIGATECOMPLETE2 : gosub *OnNavigateComplete2
return

*OnBeforeNavigate
comevarg name,ie_event,1
objprm 0,name
return

*OnNavigateComplete2
pDoc = ie("Document")
name = pDoc("Title")
title name
delcom pDoc
return

*wow
ie->"Navigate" url
goto *main
*go_f
ie->"GoForward"
goto *main
*go_b
ie->"GoBack"
goto *main



この記事に返信する


undefined

リンク

2009/8/5(Wed) 17:56:43|NO.26772

?別にそんなことないですが

あと、about:breakじゃなくてabout:blankです



Kpan

リンク

2009/8/5(Wed) 20:00:07|NO.26780

提示したコードはそれで全部なんですかね?(^^;
もしそうなら、必要となる処理が足りなくて、そもそもエラーで実行でき
ないかと・・・。付属サンプルをチェックしてください。
sample\comobj\web.hsp

あと、掲示板の使い方にあるように、半角の<pre>〜</pre>で
コードの前後を囲って投稿するようにしてください。



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