[ActionScript 3.0] AS3.0 简单封装Socket的通信
Socket服务器
package com.controls.socket
{
import com.models.events.AppEvent;
import com.models.events.AppEventDispatcher;
import com.models.util.Config; import flash.events.Event;
import flash.events.ProgressEvent;
import flash.events.ServerSocketConnectEvent;
import flash.net.ServerSocket;
import flash.net.Socket;
import flash.utils.ByteArray; /**
* @author Frost.Yen
* @email 871979853@qq.com
* @build 2016-8-8 下午8:35:00
*/
public class SocketServer
{
private var _serverSocket:ServerSocket = new ServerSocket();
private var _clients:Array=[];//客户端数组
private var _data:String;
private static var _instance:SocketServer;
public function SocketServer(s:S)
{
}
public static function getInstance():SocketServer
{
if(!_instance){
_instance = new SocketServer(new S());
}
return _instance;
}
/**
* 绑定服务端ip和端口
* @localPort 端口
* @localAddress ip地址
*/
public function bind(localPort:int,localAddress:String):void
{
if( _serverSocket.bound )
{
_serverSocket.close();
_serverSocket = new ServerSocket();
}
_serverSocket.bind( localPort, localAddress);
_serverSocket.addEventListener( ServerSocketConnectEvent.CONNECT, onConnect );
_serverSocket.addEventListener(Event.CLOSE,onClose);
_serverSocket.listen();
log( "Bound to: " + _serverSocket.localAddress + ":" + _serverSocket.localPort );
}
/**
* 客户端成功连接服务器
*/
private function onConnect( event:ServerSocketConnectEvent):void
{
var clientSocket:Socket = event.socket;
clientSocket.addEventListener( ProgressEvent.SOCKET_DATA, onClientSocketData );
_clients.push(clientSocket);
clientSocket.addEventListener(Event.CLOSE,onCloseClient);
log( "Connection from " + clientSocket.remoteAddress + ":" + clientSocket.remotePort );
//trace(_clients.length,"_clients.length",Config.clientNum,"Config.clientNum");
if(_clients.length == Config.clientNum){
log("所有客户端连接成功,共"+_clients.length+"台");
AppEventDispatcher.getInstance().dispatchEvent(new AppEvent(AppEvent.CONNECT_SUCCEED));
}
} private function onClose(e:Event):void
{
log( "Connection Faild " );
}
private function onCloseClient(e:Event):void
{
for (var clt:int=0;clt<_clients.length;clt++){
if(_clients[clt].remoteAddress==e.target.remoteAddress&&_clients[clt].remotePort==e.target.remotePort){
var msgObj:Object=_clientDic[_clients[clt].remoteAddress+_clients[clt].remotePort];
delete _clientDic[_clients[clt].remoteAddress+_clients[clt].remotePort];
_clients.splice(clt,1);
if(msgObj){
for each(var clt2:Socket in _clients){
clt2.writeUTFBytes("消息:-----");
clt2.flush();
}
}
msgObj=null; log("\n"+ e.target.remoteAddress+":"+e.target.remotePort+ "断开");
}
} }
/**
* 服务端接收客户端发送的信息
*/
private function onClientSocketData( event:ProgressEvent ):void
{
var buffer:ByteArray = new ByteArray();
var client:Socket = event.currentTarget as Socket;
client.readBytes( buffer, 0, client.bytesAvailable );
_data = buffer.toString();
AppEventDispatcher.getInstance().dispatchEvent(new AppEvent(AppEvent.CLIENT_DATA,buffer));
log( "Received from Client"+ client.remoteAddress + ":" + client.remotePort+"-- " + buffer.toString() );
}
/**
* 服务器向客户端发送信息
*/
public function send(obj:Object):void
{
try
{
if (_clients.length == 0)
{
log('没有连接');
return;
}
for (var i:int = 0; i < _clients.length; i++)
{
var item:Socket = _clients[i] as Socket;
if (!item) continue;
item.writeUTFBytes(JSON.stringify(obj)+"\n");
item.flush();
}
}catch ( error:Error )
{
log( error.message );
}
}
public function log(message:String):void
{
//trace(message);
} public function get data():String
{
return _data;
} }
}
class S{};
Socket客户端
package com.controls
{
import com.models.events.AppEvent;
import com.models.events.AppEventDispatcher; import flash.events.Event;
import flash.events.IOErrorEvent;
import flash.events.ProgressEvent;
import flash.net.Socket;
import flash.utils.ByteArray; /**
* @author Frost.Yen
* @email 871979853@qq.com
* @build 2016-8-9 下午5:55:19
*/
public class SocketClient
{
private var _client:Socket = new Socket();
private static var _instance:SocketClient;
public function SocketClient(s:S)
{
}
public static function getInstance():SocketClient
{
if(!_instance){
_instance = new SocketClient(new S());
}
return _instance;
}
/**
* 开始连接服务器
* @param host ip地址
* @param port 端口
*/
public function collect(host:String,port:int):void
{
log('开始连接服务器!');
trace(host,port);
_client.connect(host, port);
_client.addEventListener(Event.CONNECT, onConnect);//监听连接事件
_client.addEventListener(IOErrorEvent.IO_ERROR,onError);
_client.addEventListener(ProgressEvent.SOCKET_DATA,onSocketData);
}
/**
* 连接服务器成功
*/
private function onConnect( event:Event ):void
{
log('成功连接服务器!');
log( "Connection from " + _client.remoteAddress + ":" + _client.remotePort );
}
private function onClientSocketData( event:ProgressEvent):void
{
var buffer:ByteArray = new ByteArray();
_client.readBytes( buffer, 0, _client.bytesAvailable );
log( "Send: " + buffer.toString() );
}
/**
* 接收到服务器发送的数据
*/
private function onSocketData(e:ProgressEvent):void
{
var buffer:String = _client.readUTFBytes(_client.bytesAvailable );
var data:String = buffer.split("\n")[0];
AppEventDispatcher.getInstance().dispatchEvent(new AppEvent(AppEvent.SERVER_DATA,data));
log( "Received from Server:" + buffer );
}
/**
* 向服务端发送数据
* @param msg 数据
*/
private function send(msg:String):void
{
try
{
if( _client != null && _client.connected )
{
_client.writeUTFBytes(msg);
_client.flush();
//log( "Sent message to " + clientSocket.remoteAddress + ":" + clientSocket.remotePort );
}
else log("No socket connection.");
}
catch ( error:Error )
{
log( error.message );
}
}
private function onError(e:IOErrorEvent):void
{
log(e.toString());
}
public function log(message:String):void
{
//trace(message);
} }
}
class S{};
代码中的导入的类:
import com.models.events.AppEvent;
import com.models.events.AppEventDispatcher;
是用于接收到数据后向外派发事件时所用,可自行处理。
[ActionScript 3.0] AS3.0 简单封装Socket的通信的更多相关文章
- [ActionScript 3.0] AS3.0和AS2.0的相互通信
AS3和AS2之间的通信,最好的方式可能就是LocalConnection了. AS2向AS3发送数据,即AS2调用AS3的函数: as2.0代码(按钮上写的发送信息代码): on (release) ...
- [ActionScript 3.0] AS3.0 让一个视频无缝循环播放的一个偏方
一个视频要循环播放,通常的办法都是播放完后再重新播放,但是不可避免的播放结束和重新开始播放这个时间点上会有停顿,如何解决这个问题,说个偏方吧! package com.views { import f ...
- [ActionScript 3.0] AS3.0 下雨及涟漪效果
帧代码: stage.frameRate = 80; function init(x1:Number,y1:Number) { var mc:MovieClip=new MovieClip(); ad ...
- [ActionScript 3.0] AS3.0 Socket通信实例
以下类是充当Socket服务器的例子 package { import flash.display.Sprite; import flash.events.Event; import flash.ev ...
- [ActionScript 3.0] AS3.0 本机鼠标指针
Flash Player 10.2添加了内置的本机鼠标指针(native mouse cursor)支持,虽然在之前的版本里我们可以侦听MouseEvent事件来模拟鼠标指针,但是在有了原生的本机鼠标 ...
- [ActionScript 3.0] AS3.0 动态加载显示内容
可以将下列任何外部显示资源加载到 ActionScript 3.0 应用程序中: 在 ActionScript 3.0 中创作的 SWF 文件 — 此文件可以是 Sprite.MovieClip 或扩 ...
- [ActionScript 3.0] AS3.0 涂鸦及擦除功能,撤销重做步骤记录实例
package { import flash.display.Bitmap; import flash.display.BitmapData; import flash.display.BlendMo ...
- [ActionScript 3.0] AS3.0 对象在矩形范围随机运动
package com.views { import flash.display.Bitmap; import flash.display.MovieClip; import flash.displa ...
- [ActionScript 3.0] AS3.0 将图像的Alpha通道转换为黑白图像(分离ARGB方式)
import flash.display.BitmapData; import flash.display.Bitmap; /** * 将图像的Alpha通道转换为黑白图像(分离ARGB方式) */ ...
随机推荐
- html基本标签结构
简单的html5的基本架构 HTML全称为HyperText Markup Language,一款写给浏览器的语言. HyperText:超文本(文本,图片,视频,音频,链接) Markup Lanu ...
- UITableView编辑
UITableView 编辑步骤如下: 1.让TableView处于编辑状态 2.协议设定 2.1.确定Cell是否处于编辑状态 2.2.设定Cell的编辑样式(删除.添加) 2.3.编辑状 ...
- Windows Server 2012 R2在桌面上顯示我的電腦等圖示
Windows Server 2012 R2在桌面上顯示我的電腦等圖示 從Windows2012開始,微軟取消了服務器桌面個性化選項,如何重新調出配置界面,可以使用微軟命令調出.方法如下: 同時按 ...
- bigworld源码分析(2)—— loginApp分析
loginApp是整个bigworld进行用户认证的服务,是用户进入游戏的第一步.本篇主要针对loginApp的认证流程,如何和其他服务进行交互,以及loginApp针对多服务负载的不同做法进行分析. ...
- 解决R速度太慢问题
R的速度慢一直被人诟病,最近做一个比较大的dataset的分析,跑得实在太慢,发现症结是R的data frame的index太慢: 以下为测试: gene_list = 1:100000 eQTL_m ...
- SEL方法选择器
在Objective-C中,选择器(selector)有两个意思. 一是指在代码中的方法的名称.二是指在编译是用于替换方法名称的唯一的标识符.编译后的选择器的为SEL类型.所有名称相同的方法拥有同一个 ...
- word转pdf字体格式变乱的问题
完成word转pdf的功能之后,本地测试没问题,然后发布到服务器上,就遇到了字体变乱的问题,如下: 由于我本地发布后导出没有出现同样情况,而服务器和本地的最大区别在于字体库,于是,把服务器上关于需要用 ...
- C++宽窄字符串转换
首先,贴出我给出的解决方案: http://files.cnblogs.com/xuejianhui/utils.rar 再则,贴出网上最常见的例子: #include <string> ...
- testNG设置测试的执行顺序
在java类中,设置Test的执行顺序可以使用priority,或者enabled等属性.但是在testng.xml中,需要设置它的 preserve-order="true" 另 ...
- SQL Server DBA日常查询视图_数据库对象视图
1.数据库 use master; exec sp_helpdb 1.1查询数据库大小 1.2查询数据库状态 use msdb select name, user_access_desc, --用户访 ...