/*
 * [関数名] CreateQuickTimeObj
 * [機　能] QuickTime のウェブ埋め込みタグ生成
 * [説　明] JavaScriptでOBJECTタグ、EMBEDタグを生成し、生成した埋め込みタグを書き出す
 *　　　　　ムービーサイズ、、自動再生の有無、コントロール表示・非表示、背景色を指定可
 * [引　数]
 * @param fpas ムービーへのパス（相対パス可）
 * @param width ムービーの幅
 * @param height ムービーの高さ
 * @param bgcolor 背景色
 * @param f_controll コントロール表示 "true" | "false"
 * @param f_auto 自動再生 "true" | "false"
*/
function CreateQuickTimeObj(fpass,width,height,bgcolor,f_controll,f_auto){
  htm="";
  if(f_controll=="true"){ // コントロール表示の場合はコントロールの高さをプラス
    height=eval(height+16);
  }
  htm+="<OBJECT";
  htm+=" name='QT'";
  htm+=" classid='clsid:02BF25D5-8C17-4B23-BC80-D3488ABDDC6B'";
  htm+=" width='"+width+"' height='"+height+"'";
  htm+=" codebase='http://www.apple.com/qtactivex/qtplugin.cab'>\n";
  htm+="<param name='SRC' value='"+fpass+"'>\n";
  htm+="<param name='QTSRC' value='"+fpass+"'>\n";
  htm+="<param name='CONTROLLER' value='"+f_controll+"'>\n";
  htm+="<param name='AUTOPLAY' value='"+f_auto+"'>\n";
  htm+="<param name='BGCOLOR' value='"+bgcolor+"'>\n";
  htm+="<EMBED";
  htm+=" name='QT'";
  htm+=" pluginspage='http://www.apple.co.kp/quicktime/download/'";
/* htm+=" type='video/quicktime'"; Macで再生に不具合が出る為削除 2006/09/16 */
  htm+=" src='"+fpass+"'";
  htm+=" qtsrc='"+fpass+"'";
  htm+=" width='"+width+"' height='"+height+"'";
  htm+=" controller='"+f_controll+"'";
  htm+=" autoplay='"+f_auto+"'";
  htm+=" bgcolor='"+bgcolor+"'>\n";
  htm+="</EMBED>\n";
  htm+="</OBJECT>\n";
  document.write(htm);
}