Chemical and I are working together on the same script. I am currently having probs with the video being displayed. The @win gets created & embedded ok the video does go to the window, but its behind something, or something. I dunno. i can hear the audio, an only when i am siding the dialg can i see the video, an only for a millisec. when the video stops, sometimes it is displayed sometimes not.
Hope its ok to paste code here.
button "", 67, 0 28 270 204 <- this is the button for the window
this is in but not all of the dialog init
did -h $dname 67
window -h +s @mmptheater 0 28 270 204
dll $mplayermdx SetControlMDX $dname 67 Window > $mplayerdialog
did -a $dname 67 grab $window(@mmptheater).hwnd @mmptheater
this is my mci string alias
alias mcistring {
var %_mci = $+(",$scriptdirdll\mci\mci.dll,")
return $dll(%_mci,MCIString,$1-)
}
and this here is the alis that plays the video, whether or not the dialog is open it plays
alias mpeg {
if ($1 == close) {
set %_mpegstate $mcistring(close mircmpeg)
if ($dialog(mmplayer)) { window -c @mmptheatre }
if ($window(@mmptheatre)) { window -c @mmptheatre }
var %_filename,%_check,%_window,%_windowstate,%_windowcap,%_windowtext,%_place,%_time,%_play,%_fileform
}
if (!$window(@videodebug)) { window -eh @videodebug }
if ($1 == open) {
var %_filename = $+(",$iif($2,$2,$$sfile(c:\*.mpg;*.mpeg;*.avi,"Open an mpeg file",&Play)),")
writeini -n mmpsettings Files $+(File,$calc($ini($mmpsettings,File*,0) + 1)) %_filename
if (!$window(@mmptheatre)) { window -Bdhk0opz +fs @mmptheater 0 28 270 204 $mircexe }
var %_check = $mcistring($1 %_filename shareable type MPEGVideo alias mircmpeg parent $window(@mmptheater).hwnd)
if ($gettok(%_check,1,32) != OK) {
echo @videodebug Mpeg Close: $mcistring(close mircmpeg)
echo @videodebug Mpeg Retry: $mcistring(open %_filename shareable type MPEGVideo alias mircmpeg $window(@mmptheater).hwnd)
}
set %_window $mcistring(window mircmpeg handle $window(@mmptheater).hwnd)
set %_windowhwnd $window(@mmptheater).hwnd
set %_windowtext $mcistring(window mircmpeg text Theatre)
set %_windowcap $mcistring(capability MPEGVideo can stretch input)
set %_place $mcistring(status mircmpeg start position)
set %_play $mcistring(play mircmpeg window from $gettok(%_place,2-,32))
set %_time $mcistring(set mircmpeg time format ms))
}
if ($1 == play) {
if ($dialog(mmplayer)) {
var %_place = $gettok($mcistring(status mircmpeg start position),2-,32)
var %_%mpegstate = $mcistring(window mircmpeg state show)
var %_play = $mcistring(play mircmpeg window from %_place)
var %_time = $mcistring(set mircmpeg time format ms)
}
}
if ($1 == stop) { if ($dialog(mmplayer)) { var %_stop = $mcistring($1 mircmpeg) } }
if ($1 == pause) { if ($dialog(mmplayer)) { var %_pause = $mcistring($1 mircmpeg) } }
if ($1 == back) { }
if ($1 == forward) { }
echo @videodebug -------------- $1 --------------
echo @videodebug Mpeg Filename: %_filename
echo @videodebug Mpeg Open Check: %_check
echo @videodebug Mpeg Window: %_window
echo @videodebug Mpeg Window Can stretch: %_windowcap
echo @videodebug Mpeg Windowtext: %_windowtext
echo @videodebug Mpeg Position: %_place
echo @videodebug Mpeg Play: %_play
echo @videodebug Time Format Setting: %_time
echo @videodebug -------------- $1 --------------
}
when the dialog isnt open it plays fine, but how can i make the video stretch, and when the dialog is open it plays into the window like its supposed to but its like the button id 67 is hiding it or something.
i hope this is enough info for you to know what im doing wrong. Thanks for your time.
Scoring disabled. You must be logged in to score posts.