Windows 10 Pro_x64 + VB2017 + Magick.NET を少し試してみる

Windows 10 Pro_x64 + VB2017 + Magick.NET を少し試してみる
　
ImageMagickを少し調べていたら　The .NET library for ImageMagick　があったのでちょっと試してみる
とりあえずは VB.Net でサンプル試しているんだけど C# で書いて最終的に
Monoを使ってC#をWebAssemblyにコンパイルするまでいけるかな？
※今のところDLL付はNGのようだ->mono-cs-webassembly
　
参考にしたのは以下のサイト(ドキュメントのサンプル)
Magick.NET/Documentation/
ファイルをバイト型配列に読み込む、バイト型配列をファイルに書き込む
Jpegファイルとメモリストリームの操作
ProgressBar et téléchargement d'un fichier [Résolu]
　
適当なイメージが無いので、こちら使用させもらう
製品情報天秤のＬａ ＤＥＡ。戦女神MEMORIA　のパケ絵(ロカでも良かったんだけどな)
　
Magick.NET-Q16-x86 7.4.5より
ツール
　-> NuGet パッケージマネージャー
　　-> パッケージマネージャーコンソールを起動して
PM> Install-Package Magick.NET-Q16-x86
Reading images
から動く形に修正してみる(イメージ周りは久しぶりだなぁ・・)
まずはDeskTop環境なので MemoryStreamImage を使うサンプルの確認は後日かな
・PictureBoxを追加
・ボタンを適当に追加

Imports System.IO

Imports ImageMagick

    'PictureBoxに取込

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        PictureBox1.ImageLocation = "C:\Dev\code\vs2017\Vb0001\eudv015s.jpg"

    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        ' Read from file

        Dim info As New MagickImageInfo("C:\Dev\code\vs2017\Vb0001\eudv015s.jpg")

        ' 

        Console.WriteLine(info.Width)

        Console.WriteLine(info.Height)

        Console.WriteLine(info.ColorSpace)

        Console.WriteLine(info.Format)

        Console.WriteLine(info.Density.X)

        Console.WriteLine(info.Density.Y)

        Console.WriteLine(info.Density.Units)

    End Sub
    ' Read from byte array.

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

        Dim bs As Byte() = System.IO.File.ReadAllBytes("C:\Dev\code\vs2017\Vb0001\eudv015s.jpg")

        Dim info = New MagickImageInfo(bs)

        ' Console.WriteLine は上記と同じ

    End Sub
    ' Read from stream

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Dim bs As Byte() = System.IO.File.ReadAllBytes("C:\Dev\code\vs2017\Vb0001\eudv015s.jpg")

        Dim ms As MemoryStream = New MemoryStream(bs)

        Dim info = New MagickImageInfo(ms)

        ' Console.WriteLine は上記と同じ

    End Sub