我想知道是否可以将文件从Mathematica上传到ifile.it。我已经看过ifile.it的API,但是,我仍然不知道它是如何工作的。此外,我在Mathematica中看到的最接近的例子是“Twittering with Mathematica”,但我不清楚,如何使用该示例中的GET请求。
提前致谢
答案 0 :(得分:17)
设置Java HttpClient库。
<< JLink`
client = JavaNew["org.apache.commons.httpclient.HttpClient"]
(*
Out[3]= JLink`Objects`vm1`JavaObject17955866594508801
*)
确定要使用的服务器。
method = JavaNew["org.apache.commons.httpclient.methods.GetMethod",
"http://ifile.it/upload:api_fetch_upload_server"]
(*
Out[4]= JLink`Objects`vm1`JavaObject3301364646019073
*)
client@executeMethod[method]
(*
Out[5]= 200
*)
id = "server_id" /. ImportString[method@getResponseBodyAsString[], "JSON"]
(*
Out[6]= "55"
*)
使用带有FilePart的MultipartRequestEntity,使用POST请求将文件上传到服务器。
method = JavaNew["org.apache.commons.httpclient.methods.PostMethod",
"http://s" <> ToString[id] <> ".ifile.it/upload?apikey=" <> apikey]
(*
Out[7]= JLink`Objects`vm1`JavaObject25911718337052673
*)
filename = NotebookFileName[];
file = JavaNew["java.io.File", filename]
(*
Out[9]= JLink`Objects`vm1`JavaObject27844190972936193
*)
part = JavaNew["org.apache.commons.httpclient.methods.multipart.FilePart",
file@getName[], file]
(*
Out[10]= JLink`Objects`vm1`JavaObject17546309972000769
*)
part@setContentType["application/vnd.wolfram.mathematica"]
part@setName["Filedata"]
entity = JavaNew[
"org.apache.commons.httpclient.methods.multipart.MultipartRequestEntity",
{part}, method@getParams[]]
(*
Out[13]= JLink`Objects`vm1`JavaObject22100383232950273
*)
method@setRequestEntity[entity]
client@executeMethod[method]
(*
Out[15]= 200
*)
ImportString[method@getResponseBodyAsString[], "JSON"]
(*
Out[16]= {"file_key" -> "b8em0dc",
"file_md5" -> "acc9b7b3910b1e40188cf26ae3f20b80",
"file_mime" -> "text/plain", "file_name" -> "ifile.it.nb",
"file_size" -> "10473", "hash" -> "ca3d886713f64af6e9ffe6c3843d2eec",
"status" -> "ok", "url" -> "http://ifile.it/b8em0dc/ifile.it.nb"}
*)
答案 1 :(得分:0)
ragfield的回答得到了不是黑客攻击的分数,但你也可以在没有JLink的情况下做到这一点:
UploadFile[url_, filePath_, urlParams___] := With[
{
bytes = Import[filePath, "Byte"],
filename = StringJoin[FileBaseName[filePath], ".", FileExtension[filePath]]
},
URLExecute[
url,
urlParams,
"Method" -> "POST",
"MultipartElements" -> {
{"file\"; filename=\"" <> filename, "application/octet-stream", bytes}
},
"Headers" -> {
"Accept" -> "application/json; charset=UTF-8",
"Content-Type" -> "multipart/form-data"
}
]
]