转载【p2p持续开发教程2】P2P应用之文本聊天

flash media server 4 安装：http://uh.9ria.com/link.php?url= ... d.php%3Ftid%3D99635


    flash cs5.5 &&fb4.5安装：http://uh.9ria.com/link.php?url= ... .php%3Ftid%3D100325


    【p2p持续开发教程1】关于P2P应用中定向路径的解释：http://uh.9ria.com/link.php?url= ... .php%3Ftid%3D100022


【p2p持续开发教程3】p2p应用开发之电子共享白板http://uh.9ria.com/link.php?url= ... d.php%3Ftid%3D85173



    先把代码放上吧。

1. package  {
3.     import flash.display.Sprite;
4.     import flash.events.TextEvent;
5.     import flash.events.MouseEvent;
6.     import flash.events.NetStatusEvent;
7.     import fl.events.ComponentEvent;
9.     import flash.net.*;
11.     public class main extends Sprite{
14.         private var netConnection:NetConnection = null;
15.         private var netGroup:NetGroup = null;
17.         //如果你有装fms的话可以用下面的地址。。
18.         //private const SERVER:String = "rtmfp://202.195.73.145/NetGroupPostExample";
19.         //没装的话用这个开发key
20.         private const StratusAddress:String = "rtmfp://stratus.adobe.com";
22.         private const DeveloperKey:String = "1710124cbf69e3f25b780c13-d6cbf2cb35a1";
24.         //如果你想要试下局域网的话。。也就不用fms服务器和adobe的开发key，可以这样netConnection.connect("rtmfp:");
26.         public function main(){
27.         //这是界面上的登录确定按钮
28.              screen.login_btn.addEventListener(MouseEvent.CLICK,login_click);
29.                      //聊天输入昵称文本框
30.                          screen.name_txt=="请输入您的昵称";
31.         }
32.                
33.                 private function login_click(e:MouseEvent):void{
34.                                 screen.visible=false;
35.                                 connect();
36.                 }
37.                
38.                 private function connect():void{
39.                         netConnection = new NetConnection();
40.                         netConnection.addEventListener(NetStatusEvent.NET_STATUS, netConnectionHandler);
41.                         netConnection.connect(StratusAddress + "/" + DeveloperKey);
42.                        //发送消息可以是回车，或是点击发送按钮
43.                         write_txt.addEventListener(ComponentEvent.ENTER, DoPost);
44.                         enter_btn.addEventListener(MouseEvent.CLICK,enter_click);
45.                 }
46.                
47.                 private function netConnectionHandler(e:NetStatusEvent):void{
48.                         switch (e.info.code)
49.                 {
50.                         //链接成功后的初始化
51.                     case "NetConnection.Connect.Success":
52.                                            name_input.text=screen.name_txt.text;
53.           
54.                             //初始化登陆者
55.                             onConnecter();
56.                         break;
57.                         
58.                     case "NetConnection.Connect.Closed":
59.                         break;
60.                         
61.                     case "NetStream.Connect.Success":
62.                         break;
63.                                        
64.                     case "NetGroup.Posting.Notify": // e.info.message, e.info.messageID
65.                     OnPosting(e.info.message);
66.                                         trace(e.info.message.user);
67.                     break;
68.                                        
69.                     case "NetConnection.Connect.Failed":
70.                          trace("错误","错误")
71.                         break;
72.                         
73.                     case "NetStream.Connect.Closed":
74.                         break;
75.                 }
76.         
77.                 }
78.                 private function onConnecter():void{
79.                         var groupSpecifier:GroupSpecifier;
80.             groupSpecifier = new GroupSpecifier("aslrexample");
81.             groupSpecifier.postingEnabled = true;
82.             groupSpecifier.serverChannelEnabled = true;
83.           //用一个群组，使效率更好点            
84.             netGroup = new NetGroup(netConnection, groupSpecifier.groupspecWithAuthorizations());
85.             netGroup.addEventListener(NetStatusEvent.NET_STATUS, netConnectionHandler);
86.                         StatusMessage("【系统信息】" + screen.name_txt.text+ "@ 加入聊天室\n");
87.                 }
88.                
89.                 private function DoPost(e:ComponentEvent):void{
90.              mes();
92.         }
93.                
94.                 private function enter_click(e:MouseEvent):void{
95.                         mes();
96.                 }
97.                
98.                 private function mes():void{
99.                             var message:Object = new Object;
100.                 message.text = write_txt.text;
101.                 message.user=screen.name_txt.text;
102.                                 message.destination = netGroup.convertPeerIDToGroupAddress(netConnection.nearID);
104.                 netGroup.post(message);
105.                                 //netGroup.sendToNearest(message.text, message.destination);
106.                                 //netGroup.sendToNeighbor(message,"27249");
107.                 StatusMessage("【我】 说： " + write_txt.text + "\n");
108.                 write_txt.text="";
109.                 }
110.                
111.                 private function OnPosting(message:Object):void{
113.             StatusMessage("【群】" + message.user + "@对大家说： " + message.text + "\n");
114.         }
116.         private function StatusMessage(msg:Object):void{
117.             chat_txt.text += msg;
118.         }
120.     }
122. }

复制代码

我用的是cs5.5的版本。。可能有些朋友会打不开。。
如果你想要试下局域网的话。。也就不用fms服务器和adobe的开发key，可以这样netConnection.connect("rtmfp:");

gz.jpg (72.91 KB)

工作区界面

gy.jpg (42.93 KB)

登录界面

gg$D.jpg (42.36 KB)

进入聊天

82U`8W~LU}ZIM8~V]{F$L`W.jpg (92.29 KB)

两个客户端交流

test.rar (841.65 KB)

 

原文地址：http://bbs.9ria.com/thread-100339-1-1.html