据说是Flash的视频聊天代码

天云上人

只是把以前做的单个的功能整合了一下,本来还想弄个FMS的视频聊天,不过虚拟空间没办法..
. r  p# N6 O9 f& G; X$ Xhttp://www.iphper.com/copstr
光是留言板+在线涂鸦就几百行代码(看来效率低了点)

. p& r8 M6 J9 A7 X( M
0 i  h& Z  d1 A1 `FMS服务器的设置简单的仿照(一)就可以了,这段代码延续(一),加上了视频和语音发布,主要用到netstream.publish()方法,该方法也可以用于视频在线录制,除了检测摄相头和MIC状态的代码外，就增加了十几行的视频发布代码,有关摄相头和MIC的详细设置我并没有写,只是让大家看清楚它的工作原理,没有摄相头的朋友(我就没有摄相头)可以这样测试:打开麦克风说话,如果能听到回音就说明发布成功了

" {6 F0 h; W* R5 O8 Q3 Y/ Q

//建立与服务器的连接.
var sv_uri:String = "rtmp:/recordstream";
var my_nc:NetConnection = new NetConnection ();
- ^' X3 ]3 C2 {" B1 y! }! wmy_nc.connect (sv_uri);
: a  e# V/ A6 {8 U5 V+ `//新建共享对象;
  K$ Z7 o* g  t9 |! Vmy_nc.onStatus = function (thisObj:Object){
        if (thisObj.code == "NetConnection.Connect.Success"){
2 I' T+ E2 F4 M4 u& a                info_txt.text = "连接服务器成功!!";
7 r9 p2 m: `5 e3 ~: r7 ]. ?1 C                info_txt.textColor = 0x66CC00;
        }
$ a/ y1 z6 [7 W6 C9 D        else{
5 |4 \. r' ]8 G2 a" F                info_txt.text = "连接服务器失败!!"
" n- o5 z6 q1 r: P1 `: O5 u+ |. y                info_txt.textColor = 0xFF0000;
        }
9 R& o. [& K' o% @% v4 S' r+ G1 D}
var user_rso:SharedObject = SharedObject.getRemote ("chat_rso", my_nc.uri, true);
user_rso.connect (my_nc);
* I# U& d  [7 t  {. D- o* @9 Y, s//建立摄相头和麦克风对象
$ k( D4 Q8 L* e9 d1 tthis.cam = Camera.get();
this.mic = Microphone.get();
+ }4 z, H( \3 M6 c) U8 Nvideobox.attachVideo(this.cam);
; `- M* @3 K& ~( Y2 fvideobox.attachAudio(this.mic);
' z' f2 O! X) y8 z$ A, c" G2 isend_ns = new NetStream(my_nc);
1 A/ A+ u. s, P+ Z* H2 I0 B/ E5 Zsend_ns.attachVideo(this.cam);
send_ns.attachAudio(this.mic);
, G4 R7 ^. k. D6 e0 H# Y# Fsend_ns.publish("humorguy");
5 e( S+ b" M; Qget_ns = new NetStream(my_nc);
get_ns.play("humorguy");
6 u. R3 J, ?5 ]6 I, Dvideobox2.attachVideo(get_ns);
; u5 `( v% {  h! `//更新聊天内容
user_rso.onSync = function (){
                chatOutput_txt.text += newline+this.data.chatname +":" + this.data.chatcontent;
1 f- g2 _$ `3 N  `- c1 p                chatOutput_txt.scroll = chatOutput_txt.maxscroll+1;//确保最新消息能显示在输出框里
& I1 `; ]) D4 Q) L9 I}
. t2 C( f6 W9 }$ [+ ]+ I$ v+ B//回车键发送聊天内容
function myOnKeyDown() {
' E. V: F2 u" w    if (Key.getCode() == 13) {
( }# W& Y: O) g+ |& \                if(chatInput_txt.text != undefined && chatInput_txt.text != user_rso.data.chatcontent){
                    Selection.setFocus(chatInput_txt);
                        user_rso.data.chatcontent = chatInput_txt.text;
1 S: |: T1 v9 M7 U                        if(name_txt.text != "" && name_txt.text != user_rso.data.chatname){
' k2 J  v) l, {                                user_rso.data.chatname = name_txt.text;
9 k3 ^& S8 u2 L: Z! f6 v                                }
                }
    }
}
* y2 g# S' K# hvar myListener:Object = new Object();
& ^4 M% R% X2 O( lmyListener.onKeyDown = myOnKeyDown;
1 f4 l' W" d6 v6 I" \Key.addListener(myListener);
6 a' c5 c) e+ U8 r, I) ~//构造检测摄相头和麦克风状态的函数
function checkforCam_Mic() {
        camArray = Camera.names;
        micArray = Microphone.names;
        if (camArray.length>=1) {
7 {* r" H/ T  e  I  n0 ]                temp_cam = Camera.get();
                if (temp_cam == -1) {
                        camInfo_txt.text = '视频设备正忙!';
, Y) s/ H! E2 f* z: w                        camInfo_txt.textColor = 0xFFCC00;
4 h+ E' u2 V8 s8 b                } else {
                        camInfo_txt.text = '视频设备可用!';
2 l' {5 g4 o! |7 v4 O1 e) f                        camInfo_txt.textColor = 0x66CC00;
                }
1 K( G" L, Y4 x$ @' B9 z6 q8 E# Z                delete temp_cam;
        } else if (camArray.length == 0) {
8 _4 v9 k, \" J" U- _8 n; q                camInfo_txt.text = '没有视频设备!';
                camInfo_txt.textColor = 0xFF0000;
        }
        //检测麦克风状态
        if (micArray.length>=1) {
, g. Z1 W3 B8 M                temp_mic = Microphone.get();
2 f: P; ?% `+ T( U/ C3 l7 v                if (temp_mic == -1) {
                        camInfo_txt2.text = '麦克风正忙!';
! f$ Y" C2 P9 {, F8 G                        camInfo_tx2t.textColor = 0xFFCC00;
9 x5 S3 K6 V( h- Z                } else {
7 D" F# I0 Y6 W1 K' Y# r                        camInfo_txt2.text = '麦克风可用!';
                        camInfo_txt2.textColor = 0x66CC00;
                }
                delete mic_cam;
, D$ H' U! L3 Z3 V        } else if (micArray.length == 0) {
" K! j* m# P) x                camInfo_txt2.text = '没有麦克风!';
                camInfo_txt2.textColor = 0xFF0000;
        }
/ F5 y, {2 S7 r' T/ B}
checkforCam_Mic();