F# 生成 QRcode

[twn39]

代码：

open System.Drawing.Imaging
open ZXing
open ZXing.QrCode
open ZXing.QrCode.Internal

[<EntryPoint>]
let main argv =
    let writer = BarcodeWriter(Format = BarcodeFormat.QR_CODE,
                               Options = QrCodeEncodingOptions(ErrorCorrection = ErrorCorrectionLevel.Q,
                                                               CharacterSet = "UTF-8",
                                                               Height = 400,
                                                               Width = 400,
                                                               Margin = 1))
    let image = writer.Write("Hello world!")
    image.Save("barcode.jpg", ImageFormat.Jpeg)
    0

[twn39]

Aspnet core 集成 ZXing.net 代码：

[<ApiController>]
[<Route("/")>]
type BarCodeController (logger : ILogger<BarCodeController>) =
    inherit ControllerBase()

    [<HttpGet>]
    [<Route("/barcode")>]
    member _.Get() =
        let barCodeWriter = BarcodeWriter(Format = BarcodeFormat.QR_CODE,
                                          Options = QrCodeEncodingOptions(ErrorCorrection = ErrorCorrectionLevel.Q,
                                                                          Width=400,
                                                                          Height=400,
                                                                          Margin=1))
        let image = barCodeWriter.Write("Hello world!")
        let ms = new MemoryStream()
        image.Save(ms, ImageFormat.Png)
        let file = FileContentResult(ms.ToArray(), "images/png")
        file.FileDownloadName <- "barcode.png"
        file
        //let base64 = Convert.ToBase64String(ms.ToArray())
        //$"data:image/png;base64,{base64}"