用VB制作RM压缩软件

用VB制作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下调试通过。

上一篇： vb打造魔法调色盘
下一篇： 感悟VB细水长流话API(二)

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有