erlang http post and get 请求【转】

来自：http://blog.csdn.net/yangzm/article/details/51506384

get  请求：

％同步请求
createid() ->
   inets:start(),
   Rui = "http://some..../.php",
   {ok,Result}=httpc:request(get,{Rui,[]},[],[]),
   inets:stop(),
   Result.

post 请求：

t()->  
    inets:start(),  
    case httpc:request(post,{"http://192.168.0.42:8080/WeiXiaoWS/services/P2SMsgService/usr/login",  
        [],"application/json", "{ \"user\":\"yamma3\",\"pwd\":\"45b9ea1d748393c9bc2ed39d10ca665d\",\"net\":\"0\",\"token\":\"token\",\"version\":\"1\"}"},[],[]) of   
        {ok, {_,_,Body}}-> Body;  
        {error, Reason}->io:format("error cause ~p~n",[Reason])  
    end.

[plain]  view plain  copy

 

1. -define(Name,"hosr").  
2. -define(Passwd,112233).  
3.   
4. t()->  
5.    inets:start(),  
6.    case httpc:request(post,{"http://192.168.2.185:8080/login",  
7.         [],"application/x-www-form-urlencoded", lists:concat(["username=" ,Name ,"&password=" ,Passwd])},[],[]) of   
8.         {ok, {_,_,Body}}-> Body;  
9.         {error, Reason}->io:format("error cause ~p~n",[Reason])  
10.    end.