用VB6的双通道技术获得影碟片断

2019-11-18 17:35:01

字体：大中小

来源：转载

供稿：网友

现在计算机多媒体技术的发展,使影碟无需借助解压卡就可以在电脑中播放,而且由于vcd2.0标准的普及,影碟已经完成了向数字文件化的过渡,完全可以轻松的将任何vcd拷贝到自己的硬盘上欣赏,而无须辛苦娇嫩的光驱.这也为我们截取任何影碟的片断提供了可能.但是目前普遍采用的压缩成AVI文件的办法不仅体积庞大、画面停滞而且速度非常慢。笔者在总结编写文件分割软件的经验基础上,辟出了一条蹊径,即采用双通道技术直接截取影碟文件片断,从根本上克服了上述弊端。
　　(一)编程原理;
　　一般来说VCD的实际影音文件放在光盘根目录下“MPEGAV”子目录下，文件名为music001.dat或者依次排序,通过对该文件的截取操作，使用户可以保存任何精彩的影碟片断，据作者测算，每十兆字节大约可以播放一分钟，这样，用户可以使用该软件截取任意时间段内的vcd，不过要使用“超级解霸”5.02以上版本播放。
　　由于影音文件体积非常大,普通vcd2.0格式60分钟的影音文件长度在600兆以上,因此采用单通道定义二进制数组的办法不仅可靠性差,而且截取较长片断时势必难以实现.笔者采用了双通道技术,即通过定义较小的固定二进制数组,一个通道用来读取,另一个通道用来写入的方法来实现.这其中涉及了复杂的二进制定位技术。
　　(二)编程实例;
　　（第一步)启动vb6中文版建立一个标准exe工程,将窗体命名为“form1",单击“工程"菜单项目,选择“部件",在部件对话框的“控件"栏目中选择“MICROSOFTWINDOWSCOMMONCONTROLS6.0",确认在它前面的复选框中有一个黑色的对号,单击“确认",添加对该控件的引用.添加6个标签框,4个文本框(由上直下依次排列),3个按钮,一个进度条命名为ba1,一个公用对话框控件命名为cog1,拖动控件到适当位置,界面设计完成后大致如图1所示。其中,“影音文件名称:"标签对应text1,“影音文件长度:"标签对应text2,“截取起始位置:”标签对应text3,“截取长度:”标签对应text4,“截取后文件保存路径:”标签对应text5.设置Label6的BorderStyle=1,“浏览(＊.dat)”按钮对应Command1,“保存为(＊.dat)"按钮对应Command2,“开始截取"按钮对应Command3。
　　双击窗体添加以下代码:
　　PRivateSubCommand1_Click()注释：浏览选择文件
　　Cog1.FileName=“"注释：清空过期文件名称
　　Cog1.Filter=“vcd影碟文件(＊.dat)|＊.dat"注释：只保留影碟文件
　　Cog1.ShowOpen注释：执行打开操作
　　IfCog1.FileName<>""Then注释：如果放弃就忽略操作
　　Text1.Text=Cog1.FileName注释：得到被截取文件名
　　Label6.Caption=CInt(FileLen(Text1.Text)/2^20)注释：将文件长度转化为兆字节
　　EndIf
　　EndSub
　　PrivateSubCommand2_Click()注释：保存为
　　IfText1.Text=“"Then注释：如果未选定影音文件就拒绝操作,显示提示信息
　　MsgBox“请首先选择一个被截取的文件!",vbOKOnly＋vbExclamation
　　ExitSub注释：中断操作
　　EndIf
　　Cog1.FileName=“"
　　Cog1.ShowSave
　　IfCog1.FileName<>“"Then
　　Text4.Text=Cog1.FileName注释：保存路径名称
　　EndIf
　　EndSub
　　PrivateSubCommand3_Click()注释：开始截取操作
　　Dimerr_descrAsString
　　IfText1.Text=“"OrText2.Text=“"OrText3.Text=“"OrText4.Text=“"Then注释：再次验证参数正确性
　　MsgBox“请依次输入正确的信息,不要有所遗漏!",vbOKOnly＋vbExclamation
　　ExitSub注释：如果参数不完整忽略操作
　　EndIf
　　IfNotjieQU(Text1.Text,Text2.Text,Text3.Text,Text4.Text)Then注释：执行截取失败
　　MsgBox“红箭提示信息:"＆err_descr,vbOKOnly＋vbExclamation注释：返回错误信息
　　Else注释：执行截取成功
　　MsgBox“红箭提示信息:文件截取操作已经圆满完成!",vbOKOnly＋vbExclamation
　　EndIf
　　EndSub
　　PrivateSubForm_Load()
　　Me.Caption=App.Title
　　Me.Left=(Screen.Width－Me.Width)/2
　　Me.Top=(Screen.Height－Me.Height)/2注释：窗体居中
　　EndSub
　　PrivateSubForm_Unload(CancelAsInteger)
　　End注释：结束工程
　　EndSub
　　(第二步)添加一个模块,输入以下代码:
　　OptionExplicit注释：变量检查
　　TypeFileSection
　　Bytes()AsByte注释：定义关键数组
　　EndType
　　TypeSectionedFile
　　Files()AsFileSection注释：定义辅助数组
　　EndType
　　PublicFunctionjieQU(YnameAsString,KshiAsLong,CHangAsLong,BnameAsString)AsBoolean注释：定义截取操作函数
　　Form1.MousePointer=11注释：设置鼠标指针为漏斗型
　　jieQU=True注释：函数成功标志
　　DimmlpAsInteger,iAsInteger,zhiAsLong,fnumAsInteger,fnum1AsInteger
　　DimshuZUAsLong,myfileAsSectionedFile
　　shuZU=2000000注释：定义内存固定数组,长度为2兆
　　Kshi=Kshi＊2^20
　　注释：转换文件指针单位为字节
　　CHang=CHang＊2^20
　　注释：转换文件长度单位为字节
　　IfCHang<shuZUThen
　　注释：如果截取长度太小
　　MsgBox“截取的文件长度不能小于2兆字节!",vbOKOnly＋vbExclamation
　　jieQU=False
　　注释：返回操作失败标志,退出操作
　　ExitFunction
　　EndIf
　　IfCInt(CHang/shuZU)>=CHang/shuZUThen
　　mlp=CInt(CHang/shuZU)
　　Else
　　mlp=CInt(CHang/shuZU)＋1
　　EndIf
　　注释：计算需要进行操作的次数
　　fnum1=FreeFile注释：返回第一个空闲文件通道
　　OpenBnameForBinaryAs＃fnum1注释：以二进制方式打开影音文件
　　ReDimmyfile.Files(1)注释：重新分配内存辅助数组
　　WithForm1.Ba1
　　.Visible=True
　　.Value=0
　　.Max=mlp
　　.Min=0注释：展示进度条,提示操作进度
　　Fori=1Tomlp注释：读取和写入数据
　　zhi=Kshi＋(－1＋i)＊shuZU注释：计算第一个二进制通道指针
　　Ifi<mlpThen注释：如果不是最后一次操作
　　ReDimmyfile.Files(1).Bytes(1ToshuZU)注释：定义主要内存数组2兆字节
　　fnum=FreeFile注释：打开第二个空闲文件通道
　　OpenYnameForBinaryAs＃fnum注释：以二进制方式打开被截取的影音文件
　　Seek＃fnum,zhi注释：指针定位
　　Get＃fnum,,myfile.Files(1).Bytes注释：获取数据
　　Close＃fnum
　　Else注释：如果是最后一次操作
　　ReDimmyfile.Files(1).Bytes(1To(CHang－(mlp－1)＊shuZU))注释：分配主要内存数组大小为最后遗留数据大小
　　fnum=FreeFile
　　OpenYnameForBinaryAs＃fnum
　　Seek＃fnum,zhi注释：定位指针
　　Get＃fnum,,myfile.Files(1).Bytes
　　Close＃fnum
　　EndIf
　　Put＃fnum1,,myfile.Files(1).Bytes注释：以二进制方式写入保存文件
　　.Value=i注释：进度条开始运行
　　Next注释：循环直到操作次数全部执行
　　Close＃fnum1注释：关闭文件通道
　　.Visible=False注释：隐藏进度条
　　EndWith
　　Form1.MousePointer=0注释：还原鼠标指针指针
　　EndFunction
　　(第三步)运行调试工程,如图2。
　　（第四步)编译。
　　怎么样,现在一个精致的非常实用的先进的(不是夸口)vcd截取软件已经制作成功了（如图3）,你现在可将那些什么avi压缩工具放进回收站了。心动不如行动,此程序在vb6.0中文企业版/windows98中调试通过,如果你用的是vb5.0那么也不用担心,你只用将第一步中对部件的引用改为“MICROSOFTWINDOWSCOMMONCONTROLS5.0"即可。->

上一篇：制作自己的MP3播放器

下一篇：用VB编写FLASH动画播放器