Clojure Android HTTP 请求

Question

如何在 Clojure Android 项目中发出 HTTP 请求？

• clj-http 和 http-kit 似乎都不适合 Android
• this question 中的方法给出了android.os.NetworkOnMainThreadException

尝试根据here 给出的答案解决Exception 有各种问题。首选解决方案（使用AsyncTask）需要子类化，我不完全清楚如何编写这样做的Clojure 代码。尝试更改 StrictMode 设置会导致与命名空间相关的错误。最后，使用 (.start (Thread. (fn [] ...))) 启动一个新线程来处理 Web 请求会导致应用程序在测试中完全崩溃。

那么，再说一遍：如何在使用 Clojure Android 编写的 Android 应用程序中发出 HTTP 请求？

Answer 1

在the question you linked to above 之后，他们的 (maslurp) 在 android Clojure REPL app 中工作，如果 (.setDoOutput) 设置为 false，则按照 this question，并且您将调用包装在 future 中（以避免android.os.NetworkOnMainThreadException) :

(defn maslurp [url]
  (let [a (new java.io.BufferedReader
               (new java.io.InputStreamReader
                    (.getInputStream (doto (.openConnection (new java.net.URL url))
                                       (.setRequestMethod "GET")
                                       (.setDoOutput false) ; false for GET
                                       (.setUseCaches false)))))]
    (loop [r (.readLine a) s ""]
      (if (nil? r)
        s
        (recur (.readLine a) (clojure.string/join [s r]))))))


@(future (maslurp "https://www.google.com"))