|
| 用VB制作RM压缩软件 |
| 来源：转载 人气：904 录入时间：2007-11-8 |
有一天在网上闲逛时看到了一个可以用来做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下调试通过。
|
| |
|
