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>

delphi 插入 HTML代码 播放器的更多相关文章

  1. html 音乐 QQ播放器 外链 代码 播放器 外链 代码

    韩梦飞沙  韩亚飞  313134555@qq.com  yue31313  han_meng_fei_sha QQ播放器 外链 代码 播放器 外链 代码 ======== 歌曲链接 QQ播放器 外链 ...

  2. (jsp/html)网页上嵌入播放器(常用播放器代码整理) http://www.jb51.net/article/37267.htm

    网页上嵌入播放器,只要在HTML上添加以上代码就OK了,下面整理了一些常用的播放器代码,总有一款适合你,感兴趣的朋友可以参考下哈,希望对你有所帮助   这个其实很简单,只要在HTML上添加以上代码就O ...

  3. 有两种分别用<bgsound>和<embed></embed>标签,当用<embed>插入背景音乐时可以设置宽度和高度为0，隐藏播放器。

     <bgsound>: <bgsound> 是用来插入背景音乐,但只适用于 ie,其参数设定不多.如下 <bgsound src="your.mid" ...

  4. flash视频器播放器代码

    <html> <head> <meta http-equiv="Content-Type" content="text/html; char ...

  5. .net C# 网页播放器 支持多种格式 媒体播放器 播放器 代码

    .avi格式代码片断如下:<object id='video' width='400' height='200' border='0' classid='clsid:CFCDAA03-8BE4- ...

  6. 微信小程序（有始有终，全部代码）开发---跑步App+音乐播放器 Bug修复

    开篇语 昨晚发了一篇: <简年15: 微信小程序(有始有终,全部代码)开发---跑步App+音乐播放器 > 然后上午起来吃完午饭之后,我就准备继续开工的,但是突然的,想要看B站.然后在一股 ...

  7. 基于jQuery虾米音乐播放器样式代码

    分享一款基于jQuery虾米音乐播放器样式代码.这是一款基于jquery+html5实现的虾米音乐播放器源码下载.效果图如下: 在线预览   源码下载 实现的代码. html代码: <div c ...

  8. [转]html网页 swf播放器使用代码

    <object id="player" height="240" width="275" classid="CLSID:6B ...

  9. 基于jQuery仿QQ音乐播放器网页版代码

    基于jQuery仿QQ音乐播放器网页版代码是一款黑色样式风格的网页QQ音乐播放器样式代码.效果图如下: 在线预览   源码下载 实现的代码. html代码: <div class="m ...

随机推荐

  1. [转] ArcGIS engine中气泡标注的添加、修改

    小生 原文 ArcGIS engine中气泡标注的添加.修改! 你微微地笑着,不同我说什么话.而我觉得,为了这个,我已等待得久了.                                   ...

  2. [Everyday Mathematics]20150108

    设 $f$ 在 $(a,b)$ 上 $n+1$ 次可导, 且 $$\bex \ln\frac{f(b)+f'(b)+\cdots+f^{(n)}(b)}{f(a)+f'(a)+\cdots+f^{(n ...

  3. Cutting Sticks

    题意: l长的木棒,给出n个切割点,每切一次的费用为切得木棒的长度,完成切割的最小费用. 分析: 区间dp入门,区间dp的特点,一个大区间的解可以转换成小区间的解组合起来,每个切割点的标号代表边界. ...

  4. C ~ char int 等数据转换问题

    1,char型数字转换为int型 "; printf(]-');//输出结果为3 2,int转化为char (1)字符串转换成数字,用atoi,atol,atof,分别对应的是整型,long ...

  5. iBeacon开发

    什么是iBeacons iBeacons是苹果在2013年WWDC上推出一项基于蓝牙4.0(Bluetooth LE | BLE | Bluetooth Smart)的精准微定位技术,当你的手持设备靠 ...

  6. MongoDB@入门一

    安装MongoDB自行搜索, 我这里提供GUI版本类似navicat. 1. 数据库层面 show dbs #查看服务器上的数据库  [local  0.000GB] use test  #切换到指定 ...

  7. 机器学习真的可以起作用吗？（3）（以二维PLA为例）

    前两篇文章已经完成了大部分的工作,这篇文章主要是讲VC bound和 VC dimension这两个概念. (一)前文的一点补充 根据前面的讨论,我们似乎只需要用来替代来源的M就可以了,但是实际公式却 ...

  8. 一起刷LeetCode3-Longest Substring With Repeating Characters

    拖延症太严重了TAT,真心要处理一下这个问题了,感觉很不好! --------------------------------------------------------------------- ...

  9. numpy的矩阵运算

    矩阵赋值 >>> x1=np.arange(0,5) # array([0, 1, 2, 3, 4]) >>> x2=np.arange(1,6) # array( ...

  10. poj 1236 Network of Schools（连通图入度,出度为0）

    http://poj.org/problem?id=1236 Network of Schools Time Limit: 1000MS   Memory Limit: 10000K Total Su ...