Http.get 内的 Elm 字节解码

Question

我对 elm 还很陌生，遇到了一个关于使用后端数据填充模型的问题。我目前能够向服务器发出一个 returns 一个字节 [] 的请求（数据是任何类型的图像、音频或视频），当仅通过 Html.img。当我尝试使用 Http.get (src: https://package.elm-lang.org/packages/elm/http/latest/Http) 来填充我的模型时，它需要一个解码器。问题是，Bytes.Decode.bytes 需要一个 Int 来知道必须解码多少字节。所以我的问题是：有没有办法在仍然匹配 Http.get?

的类型模式的同时访问字节宽度

这是我的问题的一个简单示例：


import Bytes exposing (Bytes)
import Bytes.Decode exposing (Decoder, bytes, decode)
import GeneralTypes exposing (Msg(..))
import Http

getMediaFromUrl : Cmd Msg
getMediaFromUrl = Http.get
        { url = "http://localhost:8090/image/2006/aa@a.de/session"
        , expect = Http.expectBytes GetThumbnail decodeBytes
        }

decodeBytes: Bytes.Bytes -> Decoder Bytes
decodeBytes bytesToDecode= let
                fileSize =
                    bytesToDecode |> Bytes.width
              in
              Bytes.Decode.bytes fileSize

module GeneralTypes exposing (..)

import Bytes exposing (Bytes)
import Http

type Msg = GetThumbnail (Result Http.Error Bytes)

Answer 1

expectBytes 函数要求您指定一个字节解码器，如果您想立即将字节转换为代码中更有意义的内容，这将非常有用。

但是，如果此时您想在应用程序中保留原始 Bytes 而不必克隆或以其他方式读取字节，您可能会发现 expectBytesResponse 更有用。它有签名：

expectBytesResponse : (Result x a -> msg) -> (Response Bytes -> Result x a) -> Expect msg

这不会将解码器作为输入。它需要两个函数让你把 Response Bytes 翻译成 Result 和另一个函数（第一个参数）让你把 Result 翻译成 Msg。通过这些步骤中的每一个步骤，您都可以保留原始 Bytes 参考，以备日后随意使用。

然而，您将不得不手动处理更多 HTTP 响应场景，但至少您可以完全控制如何处理您的字节。

Http.get 内的 Elm 字节解码

Elm byte decoding within Http.get

byte

decoding

elm