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.