关于超想
本站导航
邮件列表
  首页 | 本站产品 | Delphi资料 | 免费资源 | 程序人生 | 软件工程 | 网站设计 | 推荐网站
你所在的位置 -> 主页 -> 超想软件 -> 编程资料 -> Vb -> 多媒体 ->详细
相关内容  
 
 
在Delphi程序中应用IE浏览器控件
DELPHI 中动态链接库的使用
利用Hook技术实现键盘监控
Delphi下汉字输入法的编程及使用
在Delphi中用拼音首字符序列来实现检索功能
在DELPHI中处理时间
Delphi 元件撰写常问问题
任意动态改变/添加网络设置中的 TCP/IP 的 DNS 地址
Delphi 3中Cookie的建立使用
Delphi4.0 开发WEBMAIL程序
用DELPHI制作留言板
 
【新品推荐】

  详细内容
 

如何满屏播放AVI文件
作者: 评价: 上站日期: 2001-09-02
内容说明:
来源:

  
  在Windows系统中,满屏播放AVI文件同在窗口中播放AVI文件是不同的,在满屏播放的时候不需要屏幕上的颜色进行抖动,只需要将调色板设置为AVI文件所独有的就可以了,这是因为没有其它的窗口在背景中存在的缘故。
  使用Windows 应用程序编程接口(API)的mciSendString函数可以实现对AVI文件的播放。
  样例程序
  下面的样例程序将满屏播放位于C盘根目录下的test.avi文件。你可以将你的Windows 95 CDROM中的某些AVI文件改名并拷贝到C盘根目录下以播放它。
  
  1.在Visual Basic中开始一个新的项目,采用缺省的方法建立Form1。
  
  2.将如下的声明语句添加到Form1的通用声明部分中(注意每个声明语句?需要被书写在一行内):
  Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
  
  3.在Form1上添加一个命令按钮控件,采用缺省的方法建立Command1。
  将它的Caption属性设置为“播放文件”。
  
  4.将如下的代码添加到Command1的单击事件中:
  
  Private Sub Command1_Click()
  CmdStr$ = "play c:\test.avi fullscreen "
  ReturnVal& = mciSendString(CmdStr$, 0&, 0, 0&)
  End Sub
  
  通过按下F5键来执行样例程序。单击播放命令按钮,可以在满屏方式下
  播放AVI文件。 

 
你所在的位置 -> 主页 -> 超想软件 -> 编程资料 -> Vb -> 多媒体 ->详细
  首页 | 本站产品 | Delphi资料 | 免费资源 | 程序人生 | 软件工程 | 网站设计 | 推荐网站
声明:本站内容除注明原创以外均从网上摘抄,如有侵权请指明。
  如果您对我们的网站有什么意见或者建议,请与我们联系
powered by 建站易上手- V2.0