Elm:
使用基本认证发送 HTTP 请求

import Http
import Base64

-- Define your endpoint and credentials
endpoint : String
endpoint = "https://your.api/endpoint"

username : String
username = "yourUsername"

password : String
password = "yourPassword"

-- Create the Basic Auth header
basicAuthHeader : Http.Header
basicAuthHeader =
    let
        encodedCredentials =
            Base64.encode (username ++ ":" ++ password)
    in
    Http.header "Authorization" ("Basic " ++ encodedCredentials)

-- Make the HTTP request with Basic Authentication
makeRequest : Http.Request String
makeRequest =
    Http.request
        { method = "GET"
        , headers = [ basicAuthHeader ]
        , url = endpoint
        , body = Http.emptyBody
        , expect = Http.expectString (Result.withDefault "Request failed")
        , timeout = Nothing
        , tracker = Nothing
        }