delphi 插入 HTML代碼播放器

最後更新：2014-08-01 來源：互聯網

上載者：User

創建阿里雲帳戶，並獲得超過 40 款產品的免費試用版；而企業帳戶則可以享有總值 $1200 的免費試用版。立即註冊！

標籤：style blog http color java 使用 os strong

Delphi在Webbrowser中插入 HTML/java script代碼使用方法
將下面的代碼賦值到1個記事本裡儲存，然後儲存為xxx.htm就可以看到效果
使用PasteHtml實現功能
的事件

Windows Media播放器 mp3 mp4
Windows Real Player
Flash Player
Mid背景音樂
圖片

的方法

( (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>

來自為知筆記(Wiz)

本文章原先以中文撰寫並發佈於 aliyun.com，亦設英文版本，僅作資訊用途。本網站不對文章的準確性，完整性或可靠性或其任何翻譯作出任何明示或暗示的陳述或保證。如對該文章有任何疑慮或投訴，請傳送電郵至 info-contact@alibabacloud.com 並提供相關疑慮或投訴的詳細說明。職員會於 5 個工作天內與您聯絡，一經驗證之後，即會刪除該侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

Sales Support

1 on 1 presale consultation

Chat Contact Sales
After-Sales Support

24/7 Technical Support 6 Free Tickets per Quarter Faster Response

Open a Ticket
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

Learn More