PSStringToQRCode.psm1

# PSStringToQRCode.psm1
Function Convert-StringToQR {
    Param(
        [Parameter(Mandatory = $true, ValueFromPipeline = $true)][String]$text,
        [Parameter(Mandatory = $false)][int]$height = 600,
        [Parameter(Mandatory = $false)][int]$width = 600,
        [Parameter(Mandatory = $false)][string]$SaveImageOutput #Validate the path and check extention PNG..
    )
    Begin {

        $moduleBase = (Get-Module PSStringToQRCode).ModuleBase

        # QR Code Generator for .NET
        # By Manuel Bleichenbacher (https://github.com/manuelbl/QrCodeGenerator)
        Add-Type -Path "$moduleBase\Net.Codecrete.QrCodeGenerator\Net.Codecrete.QrCodeGenerator.dll"

        # 2D graphics API for .NET platforms based on Google's Skia Graphics Library
        # By Mono Project (https://github.com/mono/SkiaSharp)
        Add-Type -Path "$moduleBase\SkiaSharp\SkiaSharp.dll"

        # SVG rendering library
        # By Wieslaw Soltes ( https://github.com/wieslawsoltes/Svg.Skia)
        Add-Type -Path "$moduleBase\Svg.Skia\Svg.Skia.dll"
    }
    Process {
        # Generate the SVG from string.
        $qrCode = [Net.Codecrete.QrCodeGenerator.QrCode]::encodeText("$text", [Net.Codecrete.QrCodeGenerator.QrCode+Ecc]::MEDIUM) #Medium error correction.
        $qrCodeSvg = $qrCode.ToSvgString(4)

        # SVG to MemoryStream
        $svgBytes = [System.Text.Encoding]::UTF8.GetBytes($qrCodeSvg)
        $memoryStream = New-Object System.IO.MemoryStream
        $memoryStream.Write($svgBytes, 0, $svgBytes.Length)
        $memoryStream.Seek(0, [System.IO.SeekOrigin]::Begin) > $null
        
        $svg = [Svg.Skia.SKSvg]::new()

        # Load SVG from memory
        $svg.Load($memoryStream)

        # Get the dimensions of the SVG input picture
        $picture = $svg.Picture
        $bounds = $picture.CullRect

        # Create a bitmap matching the dimensions of the input SVG
        $width = [int]$width
        $height = [int]$height
        $bitmap = New-Object SkiaSharp.SKBitmap -ArgumentList $width, $height
        $canvas = [SkiaSharp.SKCanvas]::new($bitmap)
        $canvas.Clear([SkiaSharp.SKColors]::White)

        # Calculate the scale and translate to center the SVG in the canvas
        $scaleX = $width / $bounds.Width
        $scaleY = $height / $bounds.Height
        $scale = [System.Math]::Min($scaleX, $scaleY)
        $translateX = ($width - $bounds.Width * $scale) / 2
        $translateY = ($height - $bounds.Height * $scale) / 2

        # Apply transformations
        $canvas.Scale($scale, $scale)
        $canvas.Translate($translateX / $scale, $translateY / $scale)
        $canvas.DrawPicture($picture)
        $canvas.Flush()

        # Convert it to a PNG
        $image = [SkiaSharp.SKImage]::FromBitmap($bitmap)
        $data = $image.Encode([SkiaSharp.SKEncodedImageFormat]::Png, 100)
    }
    end {        
        if ($SaveImageOutput) {        
            #PNG to file?
            [System.IO.File]::WriteAllBytes($SaveImageOutput, $data.ToArray())
        }
        else {
            #Else, PNG to MemoryStream
            $pngStream = New-Object System.IO.MemoryStream
            $data.SaveTo($pngStream)
            $pngStream.Seek(0, [System.IO.SeekOrigin]::Begin) > $null
        }               
        if (!$SaveImageOutput) {                    
            Add-Type -AssemblyName System.Windows.Forms
            Add-Type -AssemblyName System.Drawing
            
            #Create the main form
            $form = New-Object Windows.Forms.Form
            $form.Text = "QR Code [$text]"
            $form.Width = $width + 16
            $form.Height = $height + 39    
            $form.StartPosition = [System.Windows.Forms.FormStartPosition]::CenterScreen

            # Create a PictureBox and set the image
            $pictureBox = New-Object Windows.Forms.PictureBox
            $pictureBox.Width = $width
            $pictureBox.Height = $height
            $pictureBox.Image = [System.Drawing.Bitmap]::FromStream($pngStream)
            $pictureBox.SizeMode = [System.Windows.Forms.PictureBoxSizeMode]::StretchImage
            $form.Controls.Add($pictureBox)
            $form.add_FormClosed({
                #Cleanup?
            })

            # Show the form
            [void]$form.ShowDialog()
        }
    }
}