用VB制作RM压缩软件
发表于:2007-07-14来源:作者:点击数:
标签:
有一天在网上闲逛时看到了一个可以用来做RM电影的软件,名字是RealProducer。下载安装后立即用它做了一个小小的RM电影一试身手,感觉速度和 质量 还是可以接受的,但是离我的要求还是差了一点,毕竟是共享软件,在没有注册的情况下好多的功能都被屏蔽了,真
有一天在网上闲逛时看到了一个可以用来做RM电影的软件,名字是RealProducer。
下载安装后立即用它做了一个小小的RM电影一试身手,感觉速度和
质量还是可以接受的,但是离我的要求还是差了一点,毕竟是共享软件,在没有注册的情况下好多的功能都被屏蔽了,真可惜。
无奈之际我读了它的帮助文件,突然发现RealProducer的核心部分就是用ProducerControl.ocx控件编的,这个控件支持从.mpg、.dat、.avi、.mov、.qt 等文件格式到.rm格式的转换,功能还不差呢!呵呵,真是天助我也!
打开
VB新建一个工程,在窗体上添加两个CommandButton,Name属性分别是Run和Stop,Caption属性分别是“开始编码”与“停止编码”。再添加两个TextBox,Name 属性分别是InputFile和OutPutFile,是用来确定输入输出文件名的。依次点击Project、Components,在Components对话框中选上Real Producer ActiveX Control Library后按下确定,窗体上就会自动加入ProducerControl1控件了。最终的窗体设计请参考附图。
切换到代码编辑窗口并输入以下代码:
Private Sub Form_Load()
InputFile = ""
OutputFile = ""
ProducerControl1.InputType = INPUT_SOURCE_FILE
ProducerControl1.InputFilename = ""
ProducerControl1.TempDirectory = "c:\temp"
ProducerControl1.OutputFilename = ""
End Sub
Private Sub Run_Click()
ProducerControl1.InputFilename = InputFile
ProducerControl1.OutputFilename = OutputFile
ProducerControl1.StartEncoding
End Sub
Private Sub Stop_Click()
ProducerControl1.StopEncoding
End Sub
以上的代码只是个演示,只能实现简单的RM文件制作,如果你还想要挖掘ProducerControl,那么VB中的Object Browser将成为你的好帮手。顺便说一句,网上好多的RM制作软件都是利用ProducerControl.ocx编出来的,只是ProducerControl. visible=False罢了!
程序在VB6+
Windows2000下调试通过。
原文转自:http://www.ltesting.net