你开始没说清楚要用RealProducer ActiveX控件
new一个Application,放上RealProducer ActiveX控件,两个Button
将RealProducer Activex的InputType属性设为Input Capture
如果压文件,DoOutputFile=True,DoOutputServer=false,OutputFilename设为
压缩后的rm文件名(包含扩展名.rm)
procedure TForm1.Button1Click(Sender: TObject);
begin
ProducerControl1.StartEncoding;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if ProducerControl1.IsEncoding then
ProducerControl1.StopEncoding;
end;
可参考
http://www.realnetworks.com/devzone/sdk/index.html?src=r-real,rnhmpg_041301,rnhmtn,nosrc