- 浏览: 2650117 次
- 性别:
- 来自: 北京
文章分类
最新评论
-
80后的童年2:
深入浅出MongoDB应用实战开发网盘地址:https://p ...
MongoDB入门教程 -
shliujing:
楼主在不是精通java和php的前提下,请不要妄下结论。
PHP、CakePHP哪凉快哪呆着去 -
安静听歌:
希望可以一给一点点注释
MySQL存储过程之代码块、条件控制、迭代 -
qq287767957:
PHP是全宇宙最强的语言!
PHP、CakePHP哪凉快哪呆着去 -
rryymmoK:
深入浅出MongoDB应用实战开发百度网盘下载:链接:http ...
MongoDB入门教程
前提:
需要下载as3corelib来为ActionScript3处理JSON codec
server.erl
Person.as
Client.as
运行Erlang服务器端:
这里打印出了Erlang Socket Server接收到的AS3 Client发过来的JSON decode过的一个person对象
运行AS3客户端:
client.html上首先显示“test”,然后异步处理完Socket消息发送和接受后,decode Erlang Server端发过来的person对象,将页面上的TextField替换为“Name: Hideto2, age: 24”
需要下载as3corelib来为ActionScript3处理JSON codec
server.erl
-module(server). -export([start/0,start/1,process/1]). -define(defPort, 8888). start() -> start(?defPort). start(Port) -> case gen_tcp:listen(Port, [binary, {packet, 0}, {active, false}]) of {ok, LSock} -> server_loop(LSock); {error, Reason} -> exit({Port,Reason}) end. %% main server loop - wait for next connection, spawn child to process it server_loop(LSock) -> case gen_tcp:accept(LSock) of {ok, Sock} -> spawn(?MODULE,process,[Sock]), server_loop(LSock); {error, Reason} -> exit({accept,Reason}) end. %% process current connection process(Sock) -> Req = do_recv(Sock), io:format("~p~n", [Req]), {ok, D, []} = rfc4627:decode(Req), {obj, [{"name", _Name}, {"age", Age}]} = D, Name = binary_to_list(_Name), io:format("Name: ~p, Age: ~p~n", [Name, Age]), Resp = rfc4627:encode({obj, [{"name", 'Hideto2'}, {"age", 24}]}), do_send(Sock,Resp), gen_tcp:close(Sock). %% send a line of text to the socket do_send(Sock,Msg) -> case gen_tcp:send(Sock, Msg) of ok -> ok; {error, Reason} -> exit(Reason) end. %% receive data from the socket do_recv(Sock) -> case gen_tcp:recv(Sock, 0) of {ok, Bin} -> binary_to_list(Bin); {error, closed} -> exit(closed); {error, Reason} -> exit(Reason) end.
Person.as
package { public class Person { public var name:String; public var age:int; public function Person() { } } }
Client.as
package { import com.adobe.serialization.json.JSON; import flash.display.Sprite; import flash.events.*; import flash.net.Socket; import flash.text.*; public class Client extends Sprite { private var socket:Socket; private var myField:TextField; private var send_data:Person; public function Client() { socket = new Socket(); myField = new TextField(); send_data = new Person(); send_data.name = "Hideto"; send_data.age = 23; socket.addEventListener(ProgressEvent.SOCKET_DATA, onSocketData); socket.connect("localhost", 8888); socket.writeUTFBytes(JSON.encode(send_data)); socket.flush(); myField.x = 20; myField.y = 30; myField.text = "test"; myField.autoSize = TextFieldAutoSize.LEFT; addChild(myField); } private function onSocketData(event:ProgressEvent):void { while(socket.bytesAvailable) { var recv_data:* = JSON.decode(socket.readUTFBytes(socket.bytesAvailable)); myField.text = "Name: " + recv_data.name + ", age: " + recv_data.age.toString(); } } } }
运行Erlang服务器端:
Eshell> c(server). Eshell> server:start(). "{\"name\":\"Hideto\",\"age\":23}" Name: "Hideto", Age: 23
这里打印出了Erlang Socket Server接收到的AS3 Client发过来的JSON decode过的一个person对象
运行AS3客户端:
client.html上首先显示“test”,然后异步处理完Socket消息发送和接受后,decode Erlang Server端发过来的person对象,将页面上的TextField替换为“Name: Hideto2, age: 24”
评论
2 楼
hittyo
2009-11-10
rfc4627:encode 这个哪来的
1 楼
rambobb
2009-03-03
好像com.adobe.serialization.json.JSON 有bug...
import com.adobe.serialization.json.JSON;
var obj:Object = new Object();
for (var i:int = 0; i < 20; i++)
obj["t" + i] = i;
trace(JSON.encode(obj));
多试几下,就会看到输出不一样的字符串,例如
{"t5":5,"t9":9,"t11":11,"t7":7,"t0":0,"t18":18,"t15":15,"t6":6,"t19":19,"t1":1,"t3":3,"t12":12,"t10":10,"t14":14,"t8":8,"t4":4,"t17":17,"t2":2,"t13":13,"t16":16}
{"t2":2,"t19":19,"t9":9,"t11":11,"t16":16,"t12":12,"t6":6,"t7":7,"t4":4,"t18":18,"t10":10,"t8":8,"t17":17,"t3":3,"t14":14,"t5":5,"t13":13,"t0":0,"t1":1,"t15":15}
这样的话,用{obj, [{"name", _Name}, {"age", Age}]} = D, 的方式解析,有时候就会不匹配。
用get_field/2,但效率也就比前面的低很多。。。
头痛~~
import com.adobe.serialization.json.JSON;
var obj:Object = new Object();
for (var i:int = 0; i < 20; i++)
obj["t" + i] = i;
trace(JSON.encode(obj));
多试几下,就会看到输出不一样的字符串,例如
{"t5":5,"t9":9,"t11":11,"t7":7,"t0":0,"t18":18,"t15":15,"t6":6,"t19":19,"t1":1,"t3":3,"t12":12,"t10":10,"t14":14,"t8":8,"t4":4,"t17":17,"t2":2,"t13":13,"t16":16}
{"t2":2,"t19":19,"t9":9,"t11":11,"t16":16,"t12":12,"t6":6,"t7":7,"t4":4,"t18":18,"t10":10,"t8":8,"t17":17,"t3":3,"t14":14,"t5":5,"t13":13,"t0":0,"t1":1,"t15":15}
这样的话,用{obj, [{"name", _Name}, {"age", Age}]} = D, 的方式解析,有时候就会不匹配。
用get_field/2,但效率也就比前面的低很多。。。
头痛~~
发表评论
-
ECUG III -- Elrang中国用户组第三次活动
2008-11-06 11:00 2194详情请见: http://ecug.org/ 大家也帮忙宣传 ... -
Erlang内存管理和运行模式笔记
2008-09-25 16:40 5335Erlang进程非常轻量级 进程间通过消息传递进行通讯 进程接 ... -
Erlang:一个通用的网络服务器
2008-09-24 16:50 6023原文: Erlang: A Generalized TCP S ... -
Erlang里的make
2008-09-22 17:38 3672Erlang自带一个make工具 我们看一个例子 目录结构: ... -
介绍Erlang里的Record
2008-09-12 15:52 8548原文: Erlang: An Introduction to ... -
Erlang的JSON库
2008-09-02 15:40 9300使用下列JSON库: http://www.lshift.ne ... -
Erlang和ActionScript3的Socket通讯
2008-09-02 13:18 2848server.erl -module(server). ... -
Erlang和Ruby的Socket通讯
2008-09-01 22:12 2282server.erl -module(server). ... -
Erlang实现简单Web服务器
2008-09-01 17:59 5739转贴一个简单的Web服务器: httpd.erl %% h ... -
Mnesia用户手册:五,Mnesia高级特性
2008-09-01 17:27 6986本章描述了构建分布式、容错的Mnesia数据库相关的高级特性: ... -
Mnesia用户手册:四,事务和其他访问上下文
2008-08-29 00:06 6709本章讲述Mnesia事务系统和事务属性,它们让Mnesia成为 ... -
Mnesia用户手册:三,构建Mnesia数据库
2008-08-27 21:46 9115本章详细介绍了设计Mnes ... -
Mnesia用户手册:二,Mnesia快速上手
2008-08-27 14:09 9000本章介绍了Mnesia: 1) ... -
Mnesia用户手册:一,介绍
2008-08-26 15:47 7725Mnesia是一个分布式数据 ... -
OTP Design Principles: Supervisor Behaviour
2008-08-26 00:06 3051Supervisor Behaviour是一个用来实现一个su ... -
gen_event例子:terminal_logger
2008-08-25 16:23 1620定义三个terminal_logger: $$ termina ... -
OTP Design Principles: Gen_Event Behaviour
2008-08-25 16:06 17611,事件处理原则 在OTP里,event manager是一个 ... -
gen_fsm例子:code_lock
2008-08-22 18:35 2085改了一下代码,可以run了: %% code_lock.erl ... -
OTP Design Principles: Gen_Fsm Behaviour
2008-08-22 17:29 17341,有限状态机 FSM,有 ... -
gen_server Hello World
2008-08-22 13:45 1646简单的gen_server Hello World程序 代码 ...
相关推荐
学习erlang的时候尝试编写的小例子,使用post方式发送json数据来进行http请求,希望能帮到大家~
erlang-jose, Erlang和Elixir的JSON对象签名和加密( JOSE ) Erlang和Elixir的JSON对象签名和加密( JOSE ) 。安装将 jose 添加到 mix.exs 中的项目依赖项defp deps do [ {:jose, "~> 1.8"} ]
CLI 您可以使用以下命令从CLI启动jesse bin/jesse [path_to_json_schema] path_to_json_schema -- path_to_json_instance [path_to_json_instance] 您还可以使用--json以JSON格式输出结果,并使用python对其进行美化...
Windows下Erlang与C构建的节点通讯完整例子,包含cnode工程项目,erlang引用例子。 配套文章:http://blog.csdn.net/mycwq/article/details/40836273
erlang otp 19.1 官网文档 HTML格式 官网的下载是真的糟糕。
基于Erlang的即时通讯系统的设计与实现
erlang-rfc4627-master.zip
erlang与delphi多客户端通讯,同时支持flash客户端,开通了843端口。
erlang-json编码,可进行Json编码的转换和获取。非常简单。
用于Erlang和Elixir的JSON对象签名和加密(JOSE)
erlang入门电子书 erlang编程 Introducing Erlang,作者Simon.St.Laurent
解析转换库embjson允许直接在 Erlang 源中使用 JSON 语法。 嵌入的 JSON 结构在编译过程中转换为 Erlang 术语。 生成的结构格式取决于自定义回调模块。 单元测试中的使用示例 使用 yaws json2 结构: -compile({...
Erlang与Mysql对接,必须添加的。
handlersocket是基于mysql的nosql解决方案,与普通的nosql方案比较,具有更大的灵活性,可以使用mysql的索引。性能相比于mysql的批量操作方式,具有5倍左右的提升(我测试的,可能是内存设置的不多)。 详细内容见此...
yamerl:纯Erlang中的YAML 1.2和JSON解析器
erlang学习3erlang学习3erlangerlang学erlang学习3习3学习3
Erlang与云计算.pdf(确保可以打开)Erlang与云计算.pdf(确保可以打开)Erlang与云计算.pdf(确保可以打开)
erlang与rabbitmq官方下载教程,官方网站,与寻找资源步骤
Erlang23_3,windows32为64位,linux版本
erlang 安装包