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. sharepoint2010 创建自定义列表

    转:http://boke.25k5.com/kan77298.html 如何创建自定义列表 首先了解创建自定义列表中涉及到的几个名词:栏.内容类型. ①栏:栏即列.字段(Field),MSDN中给出 ...

  2. mvc项目，导出到Excel，中文显示乱码

      1 public class HomeController : Controller 2 { 3 static List<User> GetUsers() 4 { 5 List< ...

  3. IDEA与Tomcat创建并运行Java Web项目及servlet的简单实现

    创建Web项目 1. File -> New Project ,进入创建项目窗口 2.在 WEB-INF 目录下点击右键, New -> Directory ,创建  classes 和  ...

  4. java文件过滤器

    java中有一个FilenameFilter的接口,能够过滤得到指定类型的文件或者目录,其中必须重写accept(File file,String path)方法 public class DirFi ...

  5. iOS 7 自定义Back按钮 与 Pop interactive gesture 问题

    1.自定义Back按钮 iOS中很多时候我们都会自定义返回按钮,也是一件easy的事,类似如下: // 返回按钮 1 - (void)showNavBackButton { UIButton *bac ...

  6. 关于AsyncTask 的退出

    public class Task extends AsyncTask<Void, Void, Void>{ @Overrideprotected Void doInBackground( ...

  7. 【LeetCode 99】Recover Binary Search Tree

    Two elements of a binary search tree (BST) are swapped by mistake. Recover the tree without changing ...

  8. 白盒测试之gtest第一个demo

    认识gtest工具后,关于它的使用,下面将用一个demo程序演示一下gtest的用法以及成果展示. 一.需要测试的C++代码: #include "myfunction.h" // ...

  9. BootStrap入门教程 (一) ：手脚架Scaffolding（全局样式(Global Style),格网系统(Grid System),流式格网(Fluid grid System),自定义(Customing),布局(Layouts)）

    2011年,twitter的“一小撮”工程师为了提高他们内部的分析和管理能力,用业余时间为他们的产品构建了一套易用.优雅.灵活.可扩展的前端工具集--BootStrap.Bootstrap由MARK ...

  10. [HIve - LanguageManual] XPathUDF

    Documentation for Built-In User-Defined Functions Related To XPath UDFs xpath, xpath_short, xpath_in ...