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


HSPTV!掲示板


未解決 解決 停止 削除要請

2007
0505
トンタンタンmciで再生させた動画の画面について4解決


トンタンタン

リンク

2007/5/5(Sat) 00:00:02|NO.8038

mciを使って、動画を途中から再生させたのですが、その時に動画を再生させるためのウィンドウが
新しく開かれました。
今度は、その新しいウィンドウをフルスクリーン(ウィンドウの枠なしで)表示させたいのですが、
うまくいきません。
今作っているスクリプトは、以下のようになっています。

bgscr 0,640,480,,0,0:mouse -1:gsel 0,2
chgdisp 1
title"オリジナルシアター"
font"",60,16:color 255
mes"オリジナル動画を再生します"
     wait 500

bgscr 1,640,480,,0,0 ;mciで動画用に新しく開かれるウィンドウを枠なしにする
gsel 0,-1 ;今まで開いていたウィンドウを、非表示に
gsel 1,2 ;新しいウィンドウを最前面に
mci "play original.mpg from 10000"; 動画を途中から再生
wait 30000
chgdisp
end



この記事に返信する


pizza

リンク

2007/5/5(Sat) 02:31:27|NO.8040

windowコマンドで再生先のウィンドウを指定してください。


#module #deffunc mci_cleanup onexit mci "close all" return #global bgscr 1, ginfo_dispx, ginfo_dispy, 0, 0, 0 gsel 1, 2 dialog "avi", 16 if stat == 0 : end mci "open \"" + refstr + "\" alias movie" // ウィンドウの指定 mci "window movie handle " + hwnd // 位置とサイズ設定 mci "put movie destination at 0 0 " + ginfo_winx + " " + ginfo_winy mci "status movie length" mci "play movie from " + (stat / 2) stop

MCIリファレンス
http://msdn.microsoft.com/library/en-us/multimed/htm/_win32_multimedia_command_strings.asp
http://www.bekkoame.ne.jp/i/mr.manri/MCI/index.html



たこ

リンク

2007/5/5(Sat) 13:08:16|NO.8050

トンタンタンさんのスクリプトを僕の環境で実行しても何も起きませんでした。
同じやり方でこんなのがありますけど、どうでしょうか。

dialog "",16 a=refstr bgscr 0,ginfo(20),ginfo(21),,0,0 mouse -1 mci "open \""+a+"\" alias son type mpegvideo style child parent "+hwnd mci "put son window at 0 0 "+ginfo(20)+" "+ginfo(21) mci "play son from 1000 wait 500 end



たこ

リンク

2007/5/5(Sat) 13:11:21|NO.8051

書き忘れてましたが終わるときは

mci "close all"
で終わらせてください



トンタンタン

リンク

2007/5/17(Thu) 14:13:11|NO.8313

ありがとうございます。解決できました。
テスト期間に入ってしまって、返事が遅れてしまいました。すみませんでした。



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