二进制操作截取VCD片断

页面导航:首页 > 软件编程 > vb.net > 二进制操作截取VCD片断

二进制操作截取VCD片断

来源: 作者: 时间:2016-02-05 12:32 【

现在计算机多媒体技术的发展,使影碟无需借助解压卡就可以在电脑中播放,而且由于vcd2.0标准的普及,影碟已经完成了向数字文件化的过渡,完全可以轻松的将任何vcd拷贝到自己的硬盘上欣

 

 

  现在计算机多媒体技术的发展,使影碟无需借助解压卡就可以在电脑中播放,而且由于vcd2.0标准的普及,影碟已经完成了向数字文件化的过渡,完全可以轻松的将任何vcd拷贝到自己的硬盘上欣赏,而无须辛苦娇嫩的光驱.这也为我们截取任何影碟的片断提供了可能.但是目前普遍采用的压缩成AVI文件的办法不仅体积庞大、画面停滞而且速度非常慢。笔者在总结编写文件分割软件的经验基础上,辟出了一条蹊径,即采用双通道技术直接截取影碟文件片断,从根本上克服了上述弊端。

  (一)原理;

  一般来说VCD的实际影音文件放在光盘根目录下“MPEGAV”子目录下,文件名为music001.dat或者依次排序,通过对该文件的截取操作,使用户可以保存任何精彩的影碟片断,据作者测算,每十兆字节大约可以播放一分钟,这样,用户可以使用该软件截取任意时间段内的d,不过要使用“超级解霸”5.02以上版本播放。

  由于影音文件体积非常大,普通vcd2.0格式60分钟的影音文件长度在600兆以上,因此采用单通道定义二进制数组的办法不仅可靠性差,而且截取较长片断时势必难以实现.笔者采用了双通道技术,即通过定义较小的固定二进制数组,一个通道用来读取,另一个通道用来写入的方法来实现.这其中涉及了复杂的二进制定位技术。

  (二)编程实例;

  (第一步)启动vb6中文版建立一个标准exe工程,将窗体命名为“form1",单击“工程"菜单项目,选择“部件",在部件对话框的“控件"栏目中选择“MICROSOFT WINDOWS COMMON CONTROLS 6.0",确认在它前面的复选框中有一个黑色的对号,单击“确认",添加对该控件的引用.添加6个标签框,4个文本框(由上直下依次排列),3个按钮,一个进度条命名为ba1,一个公用对话框控件命名为cog1,拖动控件到适当位置。其中, “影音文件名称:"标签对应text1,“影音文件长度:"标签对应text2,“截取起始位置:”标签对应text3,“截取长度:”标签对应text4,“截取后文件保存路径:”标签对应text5.设置Label6的BorderStyle = 1,“浏览(*.dat)”按钮对应Command1 ,“保存为(*.dat)"按钮对应Command2 ,“开始截取"按钮对应Command3 。

  双击窗体添加以下代码:

  Private Sub Command1_Click() 注释:浏览选择文件

  Cog1.FileName = “" 注释:清空过期文件名称

  Cog1.Filter =“vcd影碟文件(*.dat)|*.dat" 注释:只保留影碟文件

  Cog1.ShowOpen 注释:执行打开操作

  If Cog1.FileName <> "" Then 注释:如果放弃就忽略操作

  Text1.Text = Cog1.FileName 注释:得到被截取文件名

  Label6.Caption = CInt(FileLen(Text1.Text) / 2 ^ 20) 注释:将文件长度转化为兆字节

  End If

  End Sub

  Private Sub Command2_Click() 注释:保存为

  If Text1.Text = “" Then 注释:如果未选定影音文件就拒绝操作,显示提示信息

  MsgBox “请首先选择一个被截取的文件!", vbOKOnly + vbExclamation

  Exit Sub 注释:中断操作

  End If

  Cog1.FileName = “"

  Cog1.ShowSave

  If Cog1.FileName <> “" Then

  Text4.Text = Cog1.FileName 注释:保存路径名称

  End If

  End Sub

  Private Sub Command3_Click() 注释:开始截取操作

  Dim err_descr As String

  If Text1.Text = “" Or Text2.Text = “" Or Text3.Text = “" Or Text4.Text = “" Then 注释:再次验证参数正确性

  MsgBox “请依次输入正确的信息,不要有所遗漏!", vbOKOnly + vbExclamation

  Exit Sub 注释:如果参数不完整忽略操作

  End If

  If Not jieQU(Text1.Text, Text2.Text, Text3.Text, Text4.Text) Then 注释:执行截取失败

  MsgBox “红箭提示信息:" & err_descr, vbOKOnly + vbExclamation 注释:返回错误信息

  Else 注释:执行截取成功

  MsgBox“红箭提示信息:文件截取操作已经圆满完成!", vbOKOnly + vbExclamation

  End If

  End Sub

  Private Sub Form_Load()

  Me.Caption = App.Title

  Me.Left = (Screen.Width - Me.Width) / 2

  Me.Top = (Screen.Height - Me.Height) / 2 注释:窗体居中

  End Sub

  Private Sub Form_Unload(Cancel As Integer)

  End 注释:结束工程

  End Sub

  (第二步)添加一个模块,输入以下代码:

  Option Explicit 注释:变量检查

  Type FileSection

  Bytes() As Byte 注释:定义关键数组

  End Type

  Type SectionedFile

  Files() As FileSection 注释:定义辅助数组

  End Type

  Public Function jieQU(Yname As String, Kshi As Long, CHang As Long, Bname As String) As Boolean 注释:定义截取操作函数

  Form1.MousePointer = 11 注释:设置鼠标指针为漏斗型

  jieQU = True 注释:函数成功标志

  Dim mlp As Integer, i As Integer, zhi As Long, fnum As Integer, fnum1 As Integer

  Dim shuZU As Long, myfile As SectionedFile

  shuZU = 2000000 注释:定义内存固定数组,长度为2兆

  Kshi = Kshi * 2 ^ 20

  注释:转换文件指针单位为字节

  CHang = CHang * 2 ^ 20

   注释:转换文件长度单位为字节

  <

Tags:

相关文章

    文章评论

    
    <