现在计算机多媒体技术的发展,使影碟无需借助解压卡就可以在电脑中播放,而且由于vcd2.0标准的普及,影碟已经完成了向数字文件化的过渡,完全可以轻松的将任何vcd拷贝到自己的硬盘上欣赏,而无须辛苦娇嫩的光驱.这也为我们截取任何影碟的片断提供了可能.但是目前普遍采用的压缩成AVI文件的办法不仅体积庞大、画面停滞而且速度非常慢。笔者在总结编写文件分割软件的经验基础上,辟出了一条蹊径,即采用双通道技术直接截取影碟文件片断,从根本上克服了上述弊端。
(一)编程原理;
一般来说VCD的实际影音文件放在光盘根目录下“MPEGAV”子目录下,文件名为music001.dat或者依次排序,通过对该文件的截取操作,使用户可以保存任何精彩的影碟片断,据作者测算,每十兆字节大约可以播放一分钟,这样,用户可以使用该软件截取任意时间段内的vcd,不过要使用“超级解霸”5.02以上版本播放。
由于影音文件体积非常大,普通vcd2.0格式60分钟的影音文件长度在600兆以上,因此采用单通道定义二进制数组的办法不仅可靠性差,而且截取较长片断时势必难以实现.笔者采用了双通道技术,即通过定义较小的固定二进制数组,一个通道用来读取,另一个通道用来写入的方法来实现.这其中涉及了复杂的二进制定位技术。
(二)编程实例;
(第一步)启动vb6中文版建立一个标准exe工程,将窗体命名为“form1",单击“工程"菜单项目,选择“部件",在部件对话框的“控件"栏目中选择“MICROSOFT WINDOWS COMMON CONTROLS 6.0",确认在它前面的复选框中有一个黑色的对号,单击“确认",添加对该控件的引用.添加6个标签框,4个文本框(由上直下依次排列),3个按钮,一个进度条命名为ba1,一个公用对话框控件命名为cog1,拖动控件到适当位置,界面设计完成后大致如图1所示。其中, “影音文件名称:"标签对应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
注释:转换文件长度单位为字节
If CHang < shuZU Then
注释:如果截取长度太小
MsgBox “截取的文件长度不能小于2兆字节!", vbOKOnly + vbExclamation
jieQU = False
注释:返回操作失败标志,退出操作
Exit Function
End If
If CInt(CHang / shuZU) >= CHang / shuZU Then
mlp = CInt(CHang / shuZU)
Else
mlp = CInt(CHang / shuZU) + 1
End If
注释:计算需要进行操作的次数
fnum1 = FreeFile注释:返回第一个空闲文件通道
Open Bname For Binary As #fnum1 注释:以二进制方式打开影音文件
ReDim myfile.Files(1) 注释:重新分配内存辅助数组
With Form1.Ba1
.Visible = True
.Value = 0
.Max = mlp
.Min = 0 注释:展示进度条,提示操作进度
For i = 1 To mlp 注释:读取和写入数据
zhi = Kshi + (-1 + i) * shuZU 注释:计算第一个二进制通道指针
If i < mlp Then 注释:如果不是最后一次操作
ReDim myfile.Files(1).Bytes(1 To shuZU) 注释:定义主要内存数组2兆字节
fnum = FreeFile 注释:打开第二个空闲文件通道
Open Yname For Binary As #fnum 注释:以二进制方式打开被截取的影音文件
Seek #fnum, zhi 注释:指针定位
Get #fnum, , myfile.Files(1).Bytes 注释:获取数据
Close #fnum
Else 注释:如果是最后一次操作
ReDim myfile.Files(1).Bytes(1 To (CHang - (mlp - 1) * shuZU)) 注释:分配主要内存数组大小为最后遗留数据大小
fnum = FreeFile
Open Yname For Binary As #fnum
Seek #fnum, zhi 注释:定位指针
Get #fnum, , myfile.Files(1).Bytes
Close #fnum
End If
Put #fnum1, , myfile.Files(1).Bytes 注释:以二进制方式写入保存文件
.Value = i 注释:进度条开始运行
Next 注释:循环直到操作次数全部执行
Close #fnum1 注释:关闭文件通道
.Visible = False 注释:隐藏进度条
End With
Form1.MousePointer = 0 注释:还原鼠标指针指针
End Function
(第三步)运行调试工程,如图2。
(第四步)编译。
怎么样,现在一个精致的非常实用的先进的(不是夸口)vcd截取软件已经制作成功了(如图3),你现在可将那些什么avi压缩工具放进回收站了。心动不如行动,此程序在vb6.0中文企业版/windows98中调试通过,如果你用的是vb5.0那么也不用担心,你只用将第一步中对部件的引用改为“MICROSOFT WINDOWS COMMON CONTROLS 5.0"即可。
-
vb教程之用VB6的双通道技术获得影碟片断
本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。
最新更新
nodejs爬虫
Python正则表达式完全指南
爬取豆瓣Top250图书数据
shp 地图文件批量添加字段
爬虫小试牛刀(爬取学校通知公告)
【python基础】函数-初识函数
【python基础】函数-返回值
HTTP请求:requests模块基础使用必知必会
Python初学者友好丨详解参数传递类型
如何有效管理爬虫流量?
2个场景实例讲解GaussDB(DWS)基表统计信息估
常用的 SQL Server 关键字及其含义
动手分析SQL Server中的事务中使用的锁
openGauss内核分析:SQL by pass & 经典执行
一招教你如何高效批量导入与更新数据
天天写SQL,这些神奇的特性你知道吗?
openGauss内核分析:执行计划生成
[IM002]Navicat ODBC驱动器管理器 未发现数据
初入Sql Server 之 存储过程的简单使用
SQL Server -- 解决存储过程传入参数作为s
JavaScript判断两个数组相等的四类方法
js如何操作video标签
React实战--利用甘特图和看板,强化Paas平
【记录】正则替换的偏方
前端下载 Blob 类型整理
抽象语法树AST必知必会
关于JS定时器的整理
JS中使用Promise.all控制所有的异步请求都完
js中字符串的方法
import-local执行流程与node模块路径解析流程