zoukankan      html  css  js  c++  java
  • delphi 插入 HTML代码 播放器

    Delphi在Webbrowser中插入 HTML/java script代码

    使用方法
    将下面的代码赋值到1个记事本里保存,然后保存为xxx.htm就可以看到效果
    使用PasteHtml实现功能
     的事件

    1. Windows Media播放器 mp3 mp4
    2. Windows Real Player
    3. Flash Player
    4. Mid背景音乐
    5. 图片

       的方法
    ( (WebBrowser1.Document as IHTMLDocument2).selection.createRange as IHtmlTxtRange).pasteHTML(Memo1.Text);
    注意 划删除线的表示使用这个函数无效果

    播放Mid背景音乐   src为Midi文件名,loop=-1为无限回放,1为一次,2为两次......

    <HTML><HEAD>
    <bgsound src=C:1.mid loop=-1</HEAD>
    <body></body></HTML>

    Windows Media播放器   支持播放 *.mp3 *.avi *.mp4  *.mov  *.wmv *.wav *.mid *.wma *.m3u  *.mpeg *.csf  *.asf *.3gp  

    <object style="WIDTH: 480px; HEIGHT: 360px" ID="nsPlayer" classid="clsid:05589FA1-C356-11CE-BF01-00AA0055595A"
    <PARAM NAME="FileName" VALUE=C:1.mp3 /> 
    <PARAM NAME="AutoStart" VALUE="1" /
    <PARAM NAME="ShowDisplay" VALUE="0" /
    </OBJECT>

     Windows Media播放器      支持格式 *.mp4 *.avi 不支持.mp3   

    </STYLE>
    </HEAD><BODY>
    <DIV>
        <EMBED 
            width=400
            height=200 
            type=application/x-oleobject 
            codeBase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701  
            src=file://C:/1.avi 
            autostart="false"
            flename="mp">
        </EMBED></EMBED></EMBED>
    </DIV></BODY>
    </HTML>

       
    //REAL播放器
    //支持格式 *.rm *.avi
    <EMBED 
    height=360
    width=480 
    src="c:1.avi"
    type=audio/x-pn-realaudio-plugin 
    autostart="False" 
    controls="ControlPanel">
    </embed>



    //REAL播放器
    //支持格式 *.rm *.avi 

    </HEAD><BODY>
    <EMBED 
        width=480
        height=360 
        type=audio/x-pn-realaudio-plugin 
        src="C:1.avi"
        autostart="true" 
        console="cons" 
        controls="ImageWindow">
    </EMBED>
    </BODY></HTML>


    //插入Flash播放器  
    <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"  codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="480" height="360" title="saxs">
    <param name="movie" value="c:1.swf" />
    <param name="play" value="false" />
    <param name="quality" value="high" />
    <param name="allowscriptaccess" value="always" />
    <param name="allowfullscreen" value="true" />
    </object>



     



     



     









  • 相关阅读:
    【SRE】华来科技SRE揭秘
    【Go】解决VS Code安装Go插件失败问题
    浏览器兼容:改写window.showModalDialog
    .Net Debugging 调试工具集
    远程调用Excel、Word、PowerPoint,服务器端设置
    使用PowerDbg自动化Windbg调试过程(转)
    调试器扩展SOSEX
    在windows server2008 IIS7.5 中用 vs2005 调试 Web 项目的注意事项
    为Visual Studio 2010添加HTML5的项目模板
    ILDasm工具
  • 原文地址:https://www.cnblogs.com/xe2011/p/3884532.html
Copyright © 2011-2022 走看看