一区二区三区在线-一区二区三区亚洲视频-一区二区三区亚洲-一区二区三区午夜-一区二区三区四区在线视频-一区二区三区四区在线免费观看

腳本之家,腳本語言編程技術及教程分享平臺!
分類導航

Python|VBS|Ruby|Lua|perl|VBA|Golang|PowerShell|Erlang|autoit|Dos|bat|

服務器之家 - 腳本之家 - Erlang - Erlang實現(xiàn)的百度云推送Android服務端實例

Erlang實現(xiàn)的百度云推送Android服務端實例

2020-05-26 11:02腳本之家 Erlang

這篇文章主要介紹了Erlang實現(xiàn)的百度云推送Android服務端實例,本文先是講解了實現(xiàn)步驟,然后給出實現(xiàn)代碼,需要的朋友可以參考下

百度云推送官方地址http://developer.baidu.com/wiki/index.php?title=docs/cplat/push

簡單的介紹下原理:

  百度云推送支持IOS和Android的云推送。Android支持的還不錯,但是IOS一般很難調通。百度云對于IOS的推送來說,他只是做了一個中間的代理,為用戶提供接口,優(yōu)點是使用百度云推送,Android和IOS可以統(tǒng)一管理;缺點是:調通不容易,用戶的IOS證書需要上傳驗證,會直接暴露給第三方,并且IOS的apns支持用戶自己構建provider服務器,與apns直接通信。

  個人建議:Android使用百度云推送,IOS的使用自己構建的provider與IOS的apns直接通信。與IOS的apns直接通信有許多實現(xiàn),Java、PHP、object-c、c++,在我的博客中有一篇是使用erlang實現(xiàn)的,有興趣的可以看看。

  Android實現(xiàn)推送功能百度云有自己的demo,大家可以根據官網(http://developer.baidu.com/wiki/index.php?title=docs/cplat/push)的步驟,首先注冊一個百度開發(fā)者賬號,然后創(chuàng)建自己的一個應用,根據例子百度云服務器會自己生產一個客戶端的demo,可以運行在Android的手機上。然后在頁面進行推送實驗。當然也可以下載百度云推送服務器,然后通過運行使用服務器推送,官網中有php、Java、Python、node.js、c#實現(xiàn)。

  鑒于需要,個人使用erlang實現(xiàn)的服務端推送功能。

  步驟:1、首先將上面你建立的工程中百度云服務器為你生產的例子demo安裝到手機上,然后以自己注冊的開發(fā)者賬號登陸,里面有一個userid和channelId,channelId記錄下來,UserId和開發(fā)者上的對應一下,然后決定使用哪一個,如果一樣,那沒問題,不一樣的話一般采用注冊者頁面中的那個。也可以通過Android服務端獲取的數(shù)據分析出userid。

  2、獲取token也就是channelid,具體設備的id,

  3、獲取用戶的apikey

  4、獲取用戶的secretekey

  給用戶發(fā)送消息分幾種情況分別如下:給某個用戶的所有設備發(fā)送信息此時需要用戶的userid;給用戶的某個設備發(fā)送信息此時需要用戶的userid和channelid;給某類用戶發(fā)送信息,需要tag分類,也就是給該類的所有用戶發(fā)送信息。

  簡單示例,給用戶某一設備發(fā)送信息

 

復制代碼 代碼如下:


start() ->

 

    inets:start(),

    {Mega,Sec,_} = now(),

    ApiKey = "apikey=aghjklpoikmnbhjklpoijnbfd",%%用戶的APIkey
    %% 我的設備
    % Channel_Id = "channel_id=1234567890098765432",%% 用戶的某一設備channelid,也就是客戶端demo安裝在的手機的channelid
    %% 模擬器
    Channel_Id = "channel_id=3959774938927755088",%%客戶端模擬器的channelid
    Device_Type = "device_type=3",%%類型,細節(jié)在官方文檔中查看,1:瀏覽器設備;2:PC設備;3:Android設備;4:IOS設備;5:Windows phone設備
    Message_Type = "message_type=1",%% 0:消息;1:通知;默認為0
    TitleStr = " :kkkk,嘎嘎嘎阿 達航空 件阿 斯頓,,,,哈哈哈,erlang",
    DescriptionStr = "行不:行啊!",
    Messages0 = "messages={\"title\":\"",
    Messages1 = TitleStr,
    Messages2 = "\",\"description\":\"",
    Messages3 = DescriptionStr,
    Messages4 = "\",\"notification_builder_id\":0,"
    ++ "\"notification_basic_style\":2,\"open_type\":2,\"url\":\"\",\"user_confirm\":0,\"pkg_content\":\"\",\"custom_content\":\"\"}",
    Messages = Messages0 ++ Messages1 ++ Messages2 ++ Messages3 ++ Messages4,
    Method = "method=push_msg",
    Msg_keys= "msg_keys=erlang_keys",
    Push_Type = "push_type=1",
    Time = "timestamp="++ integer_to_list((Mega * 1000000 + Sec)),
    User_Id = "user_id=213123123",%%用戶的userid
    Url = "http://channel.api.duapp.com/rest/2.0/channel/channel",
    Http_Method = "POST",
    SecretKey = "123weqwe12wq12eqweqweqwe",%%用戶的secretekey
    Str0 = Http_Method ++ Url ++ ApiKey ++ Channel_Id ++ Device_Type ++ Message_Type ++ Messages0,
    Str1 = Messages2,
    Str2 = Messages4 ++ Method ++ Msg_keys ++ Push_Type ++ Time ++ User_Id ++ SecretKey,
    TitleBin = list_to_binary(TitleStr),
    TIntegerU = unicode:characters_to_list(TitleBin,utf8),
    TChanges = utf8(TIntegerU,[]),
    Title_Utf8 =
      lists:foldl(fun(Change,Acc) ->
        case Change of
          [Term] when Term >= $a, Term =< $z ->
            Acc ++ Change;
          [Term] when Term >= $A, Term =< $Z ->
            Acc ++ Change;
          [Term] when Term >= $0, Term =< $9 ->
            Acc ++ Change;
          [Term] when Term =:= $. ->
            Acc ++ Change;
          [Term] when Term =:= $_ ->
            Acc ++ Change;
          [Term] when Term =:= $- ->
            Acc ++ Change;
          [Term] when Term =:= 32 ->
            Acc ++ [43];
          _ ->
            Acc ++ list_to_hex_s(Change)
        end
      end,[],TChanges),
    DesBin = list_to_binary(DescriptionStr),
    DIntegerU = unicode:characters_to_list(DesBin,utf8),
    DChanges = utf8(DIntegerU,[]),
    Des_Utf8 =
      lists:foldl(fun(Change,Acc) ->
        case Change of
          [Term] when Term >= $a, Term =< $z ->
            Acc ++ Change;
          [Term] when Term >= $A, Term =< $Z ->
            Acc ++ Change;
          [Term] when Term >= $0, Term =< $9 ->
            Acc ++ Change;
          [Term] when Term =:= $. ->
            Acc ++ Change;
          [Term] when Term =:= $_ ->
            Acc ++ Change;
          [Term] when Term =:= $- ->
            Acc ++ Change; 
          _ ->
            Acc ++ list_to_hex_s(Change)
        end
      end,[],DChanges),
    StrValue = escape_uri(Str0) ++ Title_Utf8 ++ escape_uri(Str1) ++ Des_Utf8 ++ escape_uri(Str2),
    Md5Str = md5_hex(StrValue),
    Sign = "sign=" ++ Md5Str,
    PostInfo = ApiKey ++ "&" ++ Sign ++ "&" ++ User_Id ++ "&"
    ++ Channel_Id ++ "&" ++ Device_Type ++ "&" ++ Message_Type ++ "&" ++ Messages
    ++ "&" ++ Method ++ "&" ++ Msg_keys ++ "&" ++ Push_Type ++ "&" ++ Time,
    timer:sleep(30*1000),
    Result = httpc:request(post,{Url,[],"application/x-www-form-urlencoded",PostInfo},[],[]),
    case Result of
      {ok,{{"HTTP/1.1",200,"OK"},_,_}} ->
        nothing;
      _ ->
        io:format("Result:~p~n",[Result])
    end.

 

延伸 · 閱讀

精彩推薦
主站蜘蛛池模板: 男人的j插入女人的p | 成人啪精品视频免费网站 | 鸭子玩富婆流白浆视频 | 天天操精品 | 91麻豆精品国产片在线观看 | 亚洲好色网 | 国产亚洲一欧美一区二区三区 | japanese在线观看| ts人妖国产一区 | 亚州精品永久观看视频 | 午夜毛片在线观看 | 草草免费观看视频在线 | 亚洲精品九色在线网站 | 国产精品视频免费一区二区三区 | 特黄a大片免费视频 | 99精品视频一区在线观看miya | 久久99r66热这里有精品 | 大胆暴露亚洲美女xxxx | 免费被黄网站在观看 | 激情影院网站 | 吃瓜视频在线观看 | 无遮挡h肉动漫在线观看电车 | 成人夜视频寂寞在线观看 | 欧美三级一区二区 | 欧美巨吊 | 欧美精品久久久亚洲 | 欧美一区二区不卡视频 | 香港三级血恋3 | 国产haodiaose最新 | 袖珍人与大黑人性视频 | 国产精品性视频免费播放 | 亚洲国产成人久久精品影视 | 亚洲精品资源在线 | 秋霞午夜 | 香港三级浴室女警官 | 朝鲜女人性猛交 | www.av色| 韩国免费视频 | 欧美一区二区三区视视频 | 99热99在线| 日本三不卡 |