HSPTV!掲示板

comコンポーネントでブラウザを作成しております。

wait命令の行でエラー１が起こってしまい、困っております。
おそらくdelcomの失敗だと思いますが…

具体的にはこのようなプログラムを作成しております。
再現するにはプログラムを実行後表示されたブラウザ上で
TABキーを押し続けてステータスを変化させ続けると
あるところで（私の環境では２分ぐらい）

wait命令の場所（33行目）でエラー１が出てしまいます。
これは、delcom命令の失敗でしょうか。

解決策かわかりませんが、さっぱりでしたのでonerrorで復帰しています。
しかしonerrorで復帰させる命令でないと書いてありましたので不安です。
このエラーを放置し続けるとどうなりますかね；
詳しい方、どうかご教授お願いします。

環境によっては３９行目でパラメータが多すぎますと出るかもしれません。
使用HSPのバージョンは3.3です。



#define DIID_DWebBrowserEvents2 "{34A715A0-6587-11D0-924A-0020AFC7AC4D}"
#define DISPID_STATUSTEXTCHANGE 102
onerror gosub *er
onerror 0

//----------------------略

target="http://google.co.jp/"
newcom ie, "InternetExplorer.Application"
ie("Visible")=1
ie->"Navigate" target

repeat

gosub *ev
//略

wait 10
loop


*ev
comevent ie_event, ie, DIID_DWebBrowserEvents2,*event

pos 0,0
wait 100
color 255,255,255:boxf
color:mes status

//中略
// onerror 1
delcom ie_event //イベント破棄？
wait 10 //何度かまわしているとなぜかここでエラーが起きることがある。
// onerror 0

return

*event
dispid = comevdisp(ie_event)
if (dispid = DISPID_STATUSTEXTCHANGE){comevarg status,ie_event,0}
wait 1
return
*er
delcom ie_event
return

リファレンスには
comevent p1,p2,p3,*label
p1で指定された変数をイベント処理を行なうためのCOMオブジェクト型として初期化します。
イベントの取得は、delcom命令によりCOMオブジェクトが破棄されるまで継続されます。
と記載されております。

delcom側にも
delcom p1
p1で指定したCOMオブジェクト型の変数のインスタンスを削除します。
と記載されております。

delcomで止めるのだと思っていましたが
使用できないとなるとこの場合はどのようにしたらよろしいでしょうか

comevent ie_event, ie, DIID_DWebBrowserEvents2,*event2
//略
*event2
return
と、新しく割り込みを初期化するとバグはなくなりますが、
メイン文の別処理中にも割り込みが発生し、
こんどはそちらで不具合が起きてしまいます。(waitの時に割り込みをされ、待ちが短くなってしまう)

delcomの行で割り込みを停止させたいです。。
すみませんがご教授お願いしたいです；；

いろいろと試して見た結果、
delcom ie_event
で起こっているエラーではなさそうです。。
ie_event=0
で無理やり初期化させて割り込みを停止させることができました。
が、wait命令のところでエラーが起こります。
このwait命令をはずしても次のwait命令の行でエラーが起こります（エラー１）

原因がさっぱりわかりません。このエラーの回避方法はありますでしょうか？
onerrorでも回避不可能でした。

長いこと書いていませんが、エラー以前にかなり危ない使い方されてませんか?

イベントが起こるたびにcomeventから*eventにジャンプするため、
*eventの途中にイベントが起こるとタイミングによって処理が中断され、
ここで恐らく各変数値が異常になってしまうのでしょう。

イベント毎ではなく、時間を指定して定期的に目的の値を取得するほうがいいかも

onerror gosub *er
onerror 0

//----------------------略

target="http://google.co.jp/"
newcom ie, "InternetExplorer.Application"
ie("Visible")=1
ie->"Navigate" target

repeat

gosub *ev
//略

wait 10
loop


*ev
onerror 1
pos 0,0
color 255,255,255:boxf
color:mes ie("StatusText")
onerror 0

return

*er
dialog err
end

2分間は試していないのでごめんなさい

ありがとうございます。目的の動作はできました。
イベントの割り込み中もイベント割り込みが発生するのですね、、
割り込みが連続で起こるとどんな動作になるのか気になります。