有一天在網(wǎng)上閑逛時(shí)看到了一個(gè)可以用來(lái)做RM電影的軟件，名字是RealProducer。下載安裝后立即用它做了一個(gè)小小的RM電影一試身手，感覺(jué)速度和質(zhì)量還是可以接受的，但是離我的要求還是差了一點(diǎn)，畢竟是共享軟件，在沒(méi)有注冊(cè)的情況下好多的功能都被屏蔽了，真可惜。

無(wú)奈之際我讀了它的幫助文件，突然發(fā)現(xiàn)RealProducer的核心部分就是用ProducerControl.ocx控件編的，這個(gè)控件支持從.mpg、.dat、.avi、.mov、.qt 等文件格式到.rm格式的轉(zhuǎn)換，功能還不差呢！呵呵，真是天助我也！

打開(kāi)VB新建一個(gè)工程，在窗體上添加兩個(gè)CommandButton，Name屬性分別是Run和Stop，Caption屬性分別是“開(kāi)始編碼”與“停止編碼”。再添加兩個(gè)TextBox，Name 屬性分別是InputFile和OutPutFile，是用來(lái)確定輸入輸出文件名的。依次點(diǎn)擊Project、Components，在Components對(duì)話(huà)框中選上Real Producer ActiveX Control Library后按下確定，窗體上就會(huì)自動(dòng)加入ProducerControl1控件了。最終的窗體設(shè)計(jì)請(qǐng)參考附圖。

切換到代碼編輯窗口并輸入以下代碼：
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

以上的代碼只是個(gè)演示，只能實(shí)現(xiàn)簡(jiǎn)單的RM文件制作，如果你還想要挖掘ProducerControl，那么VB中的Object Browser將成為你的好幫手。順便說(shuō)一句，網(wǎng)上好多的RM制作軟件都是利用ProducerControl.ocx編出來(lái)的，只是ProducerControl. visible=False罷了！

程序在VB6+Windows2000下調(diào)試通過(guò)。