ClojureScript с React Native - Загрузка файла - PullRequest
Новая
       43

ClojureScript с React Native - Загрузка файла

0 голосов
/ 30 октября 2018

Я хочу загрузить файл в память телефона из мобильного приложения с ClojureScript и реагировать на нативную. Файлы уже загружены в корзину Amazon S3. URL-адреса файлов будут выглядеть примерно так: https://s3.amazonaws.com/client-texastech/uploads/art_pictures-images/comma-2005-06/96acad35-7f3f-4b10-a104-5bf59b92b463/medium/image.jpg?X-Amz-Algorithm=AWS4-HMAC-SHA256&X-Amz-Credential=AKIAIQETNIOQ45P7UIKQ%2F20181113%2Fus-east-1%2Fs3%2Faws4_request&X-Amz-Date=20181113T023654Z&X-Amz-Expires=300&X-Amz-SignedHeaders=host&X-Amz-Signature=576787721283e1c2b0d8fd2349cd304b5f7f717491edb32d8d7ba256ef52f6a8

Для этого я обнаружил реакцию-нативный-выборка-блоб.

Я пытался использовать это: 

    (def RNFetchBlob (js/require "react-native-fetch-blob"))
    (def fetch-blob (oget RNFetchBlob "default"))
    (def fs (oget RNFetchBlob "fs"))

      (defn download-url [app-db url]
  (p/promise (fn [resolve reject]
                  (let [fs (oget fetch-blob "fs")
                      dir-path (str (oget (oget fs "dirs") "DocumentDir") "/image.png")
                      fetch-config (ocall fetch-blob "config" {
                                       :addAndroidDownloads {:useDownloadManager true :path dir-path :notification true}
                                       :Cache-Control "no-store"}) 
                      fetch-file (ocall fetch-config "fetch" "GET" url (util/get-token app-db))
                      base64 (oget fetch-blob "base64")]
                  (ocall fetch-file "then" (fn [res]
                      (.log js/console "Download file completed." res)
                      (resolve true)))
                  (ocall fetch-file "catch" (fn [res]
                        (.log js/console "Download file failed" res)
                        (resolve false)))
              #js{:timeout 600000
                  :distanceFilter 1
                  :maximumAge 1000
                  :enableHighAccuracy false}))))

Загрузка завершена. Но я не могу найти файл ни в одной из папок. Что-то не так? Если да, может ли кто-нибудь поделиться фрагментом кода?

Ответы [ 2 ]

0 голосов
/ 12 февраля 2019

Наконец-то я смог скачать файл. Вопрос в том, где я передаю параметры в вызов конфигурации. Мы должны конвертировать Clojure в JS, используя clj-> js. Обновленный метод будет следующим: 

(defn download-image-android [app-db url image-id]
  (p/promise (fn [resolve reject]
      (let [fs (oget fetch-blob "fs")
          android-dir-path (str (oget (oget fs "dirs") "DownloadDir") "/" image-id ".jpg")
          params (parse-params url)
          fetch-config (ocall fetch-blob "config" (clj->js {
                            :fileCache true
                            :addAndroidDownloads {:useDownloadManager true :path android-dir-path :notification true}})) 
          fetch-file (ocall fetch-config "fetch" "GET" url (clj->js {:Signature (:X-Amz-Signature params)
                                                                :Cache-Control "no-store"}))]
          (ocall fetch-file "then" (fn [res]
              (show-alert "Success" "Image has been saved to the phone successfully!")
              (resolve true)))
          (ocall fetch-file "catch" (fn [res]
              (show-alert "Error" "Image cannot be downloaded. Please try again!")
              (.log js/console "Download file failed" res)
              (resolve false)))
      #js{:timeout 30000
          :distanceFilter 1
          :maximumAge 1000
          :enableHighAccuracy false}))))
0 голосов
/ 30 октября 2018

Если вы хотите скачать и показать любые изображения из S3, вы можете использовать RN Image со свойством источника 

 [image {:source "https://your.s3.bucket/path.jpg"}]

Если это просто файл, используйте rn-fetch-blob 

(defn fetch-file! [url]
  (let [result (promise-chan)]
    (-> RNFetchBlob
      (.config #js{})
      (.fetch "GET" url)
      (.then #(.text %))
      (.then #(put! result [true %]))
      (.catch #(put! result [false %])))
    result))

Убедитесь, что у вас есть доступ к файлу S3

...