当然,文件上传是HTTP POST
。现在先让我们写一下HTTP/1.1 POST with Ibrowse
的Erlang代码。
%% Assumes Ibrowse application is in Code path
ensure_ibrowse()->
case whereis(ibrowse) of
undefined -> ibrowse:start();
_ -> ok
end.
post(Link,Data,Headers)->
ensure_ibrowse(),
try ibrowse:send_req(Link,Headers,post,Data) of
{ _, _, _,Result} ->
io:format("\n\tFile Uploaded. Return: ~p~n",[Result]);
EE -> {error,EE}
catch
XX:XX2 -> {error,XX,XX2}
end.
从那里,让我们做我们的Couch DB的东西。
-define(Link,"http://localhost:5984/DBNAME/DOCID/Penguins?rev=LATEST_REVISION").
%% File_path must be a valid file !
upload_file(Full_file_path)->
case file:read_file(Full_file_path) of
{ok,Binary} ->
post(?Link,Binary,[{"Content-Type","image/jpeg"}]);
Error -> Error
end.
你走了!所有你需要做的是定制你的宏Link
,以适应你的沙发数据库设置,你很好去!
如果文件很大,可能需要以块的形式发送,在这种情况下,头文件会包含类似这样的内容:'{“Content-Type”,“multipart/form-data”}' –