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


HSPTV!掲示板


未解決 解決 停止 削除要請

2008
0319
tsuka動画を…2未解決


tsuka

リンク

2008/3/19(Wed) 15:57:36|NO.14427

メインのウィンドウの、決まった位置で決まったサイズで再生できないのでしょうか?
MCIを使うとことまではわかったのですが…
再生位置 :x=450 y=140
再生サイズ :x=500 y=400
ウィンドウサイズ :x=960 y=546
です



この記事に返信する


As

リンク

2008/3/19(Wed) 17:52:15|NO.14428


onexit *ends pos 50,50 axobj mp, "{22D6F312-B0F6-11D0-94AB-0080C74C7E95}",320,240 //動画のサイズはMCI使えばいいんじゃね? mp("autostart")=1 mp("ShowAudioControls")=0 mp("ShowCaptioning")=1 mp("ShowControls")=0 mp("ClickToPlay")= 1 mp("ShowTracker")=1 mp("FileName")= "フルパスで動画いれればいいんじゃね?" stop *ends delcom mp end



inovia

リンク

2008/3/19(Wed) 23:19:44|NO.14436

参考にどうぞ。


x=200:y=200//動画の左上の座標サイズ ax=320:ay=180//動画を表示するサイズ title "5秒だけ再生し、5秒だけ情報表示するスクリ" dialog "mpg;*.avi;*.gif;*.wmv;*.asf;*.3gp;*.mp4;*.mp3;*.wma;*.wav;*.flv",16,"動画など" if stat=0 :end //ファイル選択なし fname=refstr mci "open \""+fname+"\" alias f" if stat=-1 : end //読み込みエラー mci "where f source" : rec=refstr //動画サイズ取得 if stat=-1 : end //動画サイズ取得失敗 //dim as,4,8 : dim ai,4 //HSP2用 repeat 4 //分離する(0 0 320 180)風に取得されてしまう為。asに配列変数代入 getstr ap1,rec,ai,$20 ai+=strsize : as.cnt=0+ap1 loop mref mr,67 mci "window f handle "+mr.13 //MCIを貼り付けるウィンドウハンドルを指定 mci "put f destination at "+x+" "+y+" "+ax+" "+ay if stat=-1 : end //配置失敗 mci "play f repeat" if stat=-1 : end //再生失敗 wait 500 mci "stop f" mci "close f" mes "ファイル名"+fname mes "動画Xサイズ(実サイズ)"+as.2 mes "動画Yサイズ(実サイズ)"+as.3 mes "再生位置座標 x="+x+" y="+y mes "再生動画サイズ x="+ax+" y="+ay wait 500 end



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