作者的Blog： www.cincn.com

这程序写的挺简单的..不懂的呢,可以参考下..高手就别来笑我了.

准备工具:

1、Flash Media Server；
2、Flash 8 && Flash 8 Player；
3、一个摄像头,一个麦克；

此教程及附带源文件仅做网友个人交流学习使用.请勿用于商业用途.需要商业版请单独联系.

1、打开FLASH,新建一个FLASH文档.

2、CTRL + L调出库..在库的右上角有个三角,点一下.然后选择"新建视频元件";
命名为:video

3、在主场景里新建2个图层,一个名字叫 video_record,另一个叫video_play;

4、将库里的视频元件分别拖到这2个图层中.起名字叫video_r和video_p.video_r是用来录视频的.video_p是用来放视频的.

5、下面起新建MC啊,或命名一类的我就不写了.只做程序介绍.如果连MC命名都不知道的话相信也看不懂这教程.大家见谅

程序部分:

代码拷贝框
var server_uri:String = "rtmp://localhost/tensharp";//FMS地址;var videoName:String = "KeeRula";//视频名.var my_nc:NetConnection = new NetConnection ();//新建一个连接对象,用来连接FMS;my_nc.connect (server_uri);//连接FMS;var my_ns:NetStream = new NetStream (my_nc);//新建流,用来捕获和播放视频;var my_cam:<a target="_blank" href="http://www.jzbulo.com/tech/photo/camera/" class="wordstyle">Camera</a> = <a target="_blank" href="http://www.jzbulo.com/tech/photo/camera/" class="wordstyle">Camera</a>.get ();video_r.attachVideo (my_cam);//获得慑像头,并将<a target="_blank" href="http://www.jzbulo.com/tech/photo/" class="wordstyle">摄像</a>头获取的视频载入到video_r里.my_cam.setQuality (1024, 90);//设置带宽和质量;var my_mic:Microphone = Microphone.get ();//获得MIC;my_ns.attachVideo (my_cam);my_ns.attachAudio (my_mic);//将<a target="_blank" href="http://www.jzbulo.com/tech/photo/" class="wordstyle">摄像</a>头图象和MIC声音装载到流.video_p._visible = false;//将播放窗口设置为不可见.my_nc.onStatus = function (thisObj:Object){//trace (thisObj.code);if (thisObj.code == "NetConnection.Connect.Success"){RecordStop ("空闲中");//执行录制停止方法.并将状态设置为空闲}else{trace ("错误:<a target="_blank" href="http://www.jzbulo.com/tech/Server/" class="wordstyle">服务器</a>未启动或URI输入错误.");}}//onStatus这里是指<a target="_blank" href="http://www.jzbulo.com/tech/Server/" class="wordstyle">服务器</a>的连接状态.function Record (){video_r._visible = true;//将录制窗口设为可见.video_p._visible = false;//播放窗口设置为不可见.my_ns.publish (videoName, "record");//关键就在这句了.写了这么多全围绕它来的.record为录制.StreamInfo ("NowRecord");//执行StreamInfo方法,并将参数设置为NowRecord;btn_pr.btn_text.text = "停止";//按钮文字:停止.RecordInterval = setInterval (RecordTime, 1000);//统计录制时间.}//方法:录制.var timeNum:Number = 0;//录制时间.function RecordTime (){timeNum ++;txt_status.text = "正在录制" + " " + "时间:" + Math.floor (timeNum / 60) + "分" + (timeNum % 60) + "秒";}//方法:录制时间统计.function RecordStop (__status:String){//__status是当前状态文字.txt_status.text = "当前状态:" + __status;btn_pr.btn_text.text = "录制";StreamInfo ("NowStop");//执行StreamInfo方法..并将参数设置为NowStop;clearInterval (RecordInterval);timeNum = 0;//不录了..要把统计时间清空.if (__status == "录制完成"){Finished ();}//这个应该不用偶说了..}//方法:空闲或录制完成.function Finished (){my_ns.close();//完成了..就要关闭录制.var thisObj = this;var FinishAlert:MovieClip = _root.attachMovie ("Alert", "FinishAlert", 100);//这个是一个弹出框.具体看库里的MC:Alert.with (FinishAlert){alertTitle.html = true;alertTitle.htmlText = "<b>" + "录制完成!" + "</b>";info.text = "录制完成..请选择下一步操作."_x = video_r._x + (video_r._width - _width) / 2;_y = video_r._y + (video_r._height - _height) / 2;btn_sub.btn_txt.text = "播放";btn_cln.btn_txt.text = "重录";btn_sub.onRelease = function (){thisObj.PlayVideo ();thisObj.closeAlert (FinishAlert);}btn_cln.onRelease = function (){thisObj.Record ();thisObj.closeAlert (FinishAlert);}closed.onRelease = function (){thisObj.closeAlert (FinishAlert);}}btn_pr.enabled = false;//把按钮设为不可点.}//方法:录制完成.function closeAlert (__alert:MovieClip){btn_pr.enabled = true;unloadMovie (__alert);}//关闭那个Alert用的.function StreamInfo (__status:String){btn_pr.onRelease = function (){if (__status == "NowRecord"){RecordStop ("录制完成");}else if (__status == "NowStop"){Record ();}else if (__status == "NowPlay"){Record ();}}}//嘿嘿..如果把上面的仔细看了的话这个就不用我说了吧.^_^function PlayVideo (){txt_status.text = "当前状态:" + "正在播放...";StreamInfo ("NowPlay")video_r._visible = false;video_p._visible = true;video_p.attachVideo (my_ns);//将视频载到播放窗口中.my_ns.play (videoName);//开始播放.btn_pr.btn_text.text = "重录";my_ns.onStatus = function (PlayInfo){if (PlayInfo.code == "NetStream.Play.Stop"){my_ns.seek (0);my_ns.pause();txt_status.text = "当前状态:" + "播放完成...";}}//流状态信息...详细的请自己 trace (PlayInfo.code);}//方法:播放视频.//需要注意的是用FMS播放的时候不用写路径.因为FMS录的视频直接存在FMS默认的流文件目录里了.//录的视频的存放路径:FMS安装目录:/application/站点/streams/_definst_
[Ctrl+A 全部选择 然后拷贝]

如果上面看个差不多了可以自己动手做一下了.祝大家好运

具体MC这一类请看FLA文件.

源文件下载：点击下载

经典论坛讨论帖：
http://www.blueidea.com/bbs/NewsDetail.asp?&id=2624497