用VB设计VCD播放器

原创 2001年05月26日 14:35:00
用VB设计VCD播放器
http://www.tongyi.net    点击:660  


  当你在用老牌的XingPlay或是华丽的《超级解霸5.0》的时候,你有没有想过拥有一个你自己编写的软解压播放器呢?其实你只要掌握一点VB的技巧,那么要实现这个愿望就变得很简单了。 
  笔者在初步研究了Windows的SYSTEM.INI后发现,通过VB的多媒体控件MCI.VBX可以打开MPEG压缩文件(如VCD2.0版的.DAT文件)。 
  首先你的Windows系统中SYSTEM.INI文件关于[MCI]中需有MPEGVideo项(一般Windows95和Windows98中都已有此项,通过安装XingPlay或CCDVP95等软件也可增加此项)。 
  其次在VB中建立一个新窗口,将MCI.VBX加入ToolBox中,将MCI控件拖放至窗体Form上,调整其大小,将九个按钮(从左至右为:Prev、Next、Play、Pause、Back、Step、Stop、Record和Eject)中Record按钮Visible属性设为False,其余按钮的Visible属性和Enabled属性设置为True,以上按钮的设置可通过MMControl的属性栏内“自定义”项来设置。 
  假设光驱为E:,VCD碟片文件为E:/MPEGAV/MUSIC01.DAT。 
  源代码如下: 
  Private Sub Form_ Load() 
  MMControl.DeviceType=″MPEGVideo″ 
  MMControl.Name=″E:/MPEGAV/MUSIC01.DAT″ 
  MMControl.Command=″OPEN″ 
  MMControl.Command=″PLAY″ 
  End Sub 
  Sub Form_Unload(Cancel As Integer) 
  MMControl.Command=″close″ 
  End Sub 
  笔者通过实践发现Step和Back按钮功能不明显,所以对以上两个按钮进行了一些改进。 
  Sub MMControl_ StepClick(Cancel As Integer) 
  j=MMControl.Position+100 ′数值100为前进量,可适当调整 
  If j>MMControl.Length Then 
  MMControl.From=MMControl.Length 
  Else 
  MMControl.From=j 
  End If 
  MMControl.Command=″Play″ 
  End Sub 
  Sub MMControl_ BackClick(Cancel As Integer) 
  i=MMControl.Position-100 ′数值100为后退量,可适当调整 
  If i<0 Then 
  MMControl.From=0 
  Else 
  MMControl.From=i 
  End If 
  MMControl.Command=″Play″ 
  End Sub 
  MCI控件还有很多属性,如画面播放位置hWndDisplay属性等,读者可参阅相关资料自行摸索,这里不再介绍。读者还可以通过建立通用对话框来打开文件,以解决VCD文件名不统一或多文件的问题。 
  调整好窗体Form的标题、图标、颜色等,然后编译成EXE文件,你就可以在Windows下拥有自己的VCD播放器了。 
  另外,因电脑性能差异及VCD解码质量的不同,播放画面质量和音质将有所差异。

用VB设计VCD播放器

  • zgqtxwd
  • zgqtxwd
  • 2008年05月01日 05:26
  • 146

用vb制作简单的播放器

看了这篇文章的标题,你是不是想拥有一个自己制作的播放器呢?那就继续向下看吧。       1、因为我们需要使用到MediaPlayer控件,所以刚开始就要右击工具面板并在部件添加窗口里选择“Wind...
  • renmengmeng520
  • renmengmeng520
  • 2016年03月22日 20:33
  • 2506

破解VCD无法复制方法 提取加密vcd中的DAT文件的解决方案

今天一位同事拿来几张VCD,让我把VCD中的视频拷到U盘里,这些VCD还是快16年前上大学接触的东西, 放到光驱中一看,只有两个文件,autorun.inf和vcd_play.exe。dat文件隐藏...
  • coolsoloist
  • coolsoloist
  • 2015年01月04日 19:22
  • 4179

Modelsim 创建 VCD

 Verilog提供一系列系统任务用于记录信号值变化保存到标准的VCD(Value Change Dump)格式数据库中。大多数波形显示工具支持VCD格式。$dumpfile("file. dump"...
  • herejing
  • herejing
  • 2011年05月17日 04:18
  • 842

用vb做个播放器

 主要代码:If Dir(MusicName)   ST = UCase(Right(MusicName, 3))  If ST = "MP3" Then 如果是 MP3    mciSendStri...
  • yangwei19680827
  • yangwei19680827
  • 2008年11月14日 09:30
  • 423

一个超强纠错的绿色播放器

        今天无聊,上网下了一堆电影,花了一个上午,好不容易下完,兴冲冲的打开目录,双击,咦,放不了?是不是Media Player版本太低了?我又上网升成了Media Player 10.0,...
  • wenyuan
  • wenyuan
  • 2005年05月26日 20:57
  • 4991

一个用VC++制作的MIDI播放器

struct TRACK{ DWORD fdwTrack;  // Tracks flags DWORD dwTrackLength; // Total bytes in track LPBYTE p...
  • sundan85
  • sundan85
  • 2007年04月18日 16:51
  • 500

推荐一款可以把VCD光盘转换成ISO文件的工具

   同事买了一个VCD光盘 ,但是每次从光盘中播放很麻烦,所以在寻找一种能使光盘在电脑上随时播放的方法;经另外一个同事的推荐,发现一个好的办法:    就是 ultraiso7工具,从网上下载并安装...
  • casper_jiao
  • casper_jiao
  • 2007年01月29日 15:03
  • 7592

Modelsim打开、生成VCD文件

很多时候,需要把VCS仿真的波形导入到Modelsim中进行观察,这个时候无法直接查看,因为Modelsim只支持.wlf波形文件,所以需要做格式转换。 VCS仿真后的波形可保存为VCD(value...
  • chief_cf
  • chief_cf
  • 2017年05月12日 17:48
  • 1103

linux 下vcd碟.dat文件复制到硬盘的方法(间接转换)

1。安装vcdimager. sudo apt-get install vcdimager 2. 在终端中执行 vcdxrip -C /dev/cdrom ...
  • liukeforever
  • liukeforever
  • 2011年02月08日 19:09
  • 1575
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用VB设计VCD播放器
举报原因:
原因补充:

(最多只允许输入30个字)