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

2016-02-19 17:55 10 1 收藏

生活已是百般艰难,为何不努力一点。下面图老师就给大家分享用VB6的双通道技术获得影碟片断,希望可以让热爱学习的朋友们体会到设计的小小的乐趣。

【 tulaoshi.com - 编程语言 】

现在计算机多媒体技术的发展,使影碟无需借助解压卡就可以在电脑中播放,而且由于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
  注释:转换文件长度单位为字节
  IfCHangshuZUThen
  注释:如果截取长度太小
  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注释:计算第一个二进制通道指针
  IfimlpThen注释:如果不是最后一次操作
  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"即可。->

来源:http://www.tulaoshi.com/n/20160219/1616371.html

延伸阅读
标签: ASP
  接着上回,新建一个ActiveX DLLs类型的工程,并将缺省的工程名由“Project1”改为“Songbird”(当然你也有权不这样改,呵呵),将缺省的类名由“Class1”改为“FileUp”,至于为什么要这样改,以后你便知道了。     要想实现读取上传文件字节数据的功能,势必要涉及到Request对象,可是在VB中该怎么做呢?简单,只...
标签: ASP
  最近在单位做的一个项目里需要有文件上传的功能,正好手头一本书的附赠光盘里有一个上传组件,心中大喜。可惜随之便发现这是一个试用版,不给钱就只能用50次,太小气了!!好在头头催得不紧,时间充裕,干脆自己试着做一个,既可长经验值,又能长成就感,不试白不试!以下介绍的便是俺折腾了两天半捣鼓出来的一个只能说是雏形的玩意,区...
  和.Net 中不同,VB6 中默认是使用 ByRef 来传递参数了,看来似乎没有什么可以优化得地方。 可是,实际上 如果你调用 API 得话,从 API浏览器复制下来得代码却是 强制使用 ByVal 传参得 这就给了我们优化得机会。 我又重新使用该代码 分别测试了一下 ByRef ,ByVal 得区别,结果很振奋: ByRef 比 ByVal 提高了16倍 代码如下,插入Comb...
我们在玩《仙剑奇侠传》时,要是不能保存数据,那么非得挑灯夜战三昼夜才能玩完,可见数据存储之重 要性。爱好编程的CFAN是不会放过数据文件的,下面跟着我驰骋吧!我们先吃一个哈密瓜,开门即来编一传统的比较有代表性的程序,不可不看的哟! 程序分为一个表单cfanvb.frm,一个模块cfanvb.bas。一个表单程序。程序的表单中有五个命令按...
标签: vb
由于XML文档是以树形结构为格式,所以通常采用TreeView控件显示它们。以下码段说明了如何在Visual Basic 6将XML文档传入一个TreeView控件。 首先,建立一个新的带有窗体的Visual Basic 6工程,然后在窗体中添加一个TreeView控件,并添加一个引用到微软XML解析器。 接着,在Form_Load事件中添加如下的代码: Private Sub F...

经验教程

623

收藏

8
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部