VB.NET 圖片和BASE64互轉

• 2019 年 10 月 29 日
• 筆記

Base64是網路上最常見的用於傳輸8Bit位元組碼的編碼方式之一，Base64就是一種基於64個可列印字元來表示二進位數據的方法。可查看RFC2045～RFC2049，上面有MIME的詳細規範。

Base64編碼是從二進位到字元的過程，可用於在HTTP環境下傳遞較長的標識資訊。採用Base64編碼具有不可讀性，需要解碼後才能閱讀。

Base64由於以上優點被廣泛應用於電腦的各個領域，然而由於輸出內容中包括兩個以上「符號類」字元（+, /, =)，不同的應用場景又分別研製了Base64的各種「變種」。為統一和規範化Base64的輸出，Base62x被視為無符號化的改進版本。

圖片轉BASE64

    ''' <summary>      ''' 圖片轉BASE64      ''' </summary>      ''' <param name="IMG">要轉換的圖片</param>      ''' <returns></returns>      Function IMG_TO_BASE64(ByVal IMG As Image) As String          Try              If Not IsNothing(IMG) Then                  Dim MS As New IO.MemoryStream()                  Using BMP As New Bitmap(IMG)                      BMP.Save(MS, Imaging.ImageFormat.Jpeg)                      Dim BYT As Byte() = MS.GetBuffer()                      Dim Base64_Str As String = Convert.ToBase64String(BYT)                      Return Base64_Str                  End Using              Else                  Return "沒有要轉換的圖片"              End If          Catch ex As Exception              Return ex.Message          End Try      End Function    

BASE64轉圖片

    ''' <summary>      ''' BASE64轉圖片      ''' </summary>      ''' <param name="BASE_STR">BASE64數據</param>      ''' <returns></returns>      Function BASE64_TO_IMG(ByVal BASE_STR As String) As Image          Try              Dim IMG As Image              If BASE_STR <> Nothing And Strings.Right(BASE_STR, 1) = "=" Then                  Dim BYT As Byte() = Convert.FromBase64String(BASE_STR)                  Dim MS As New IO.MemoryStream(BYT)                  IMG = Image.FromStream(MS)                  Return IMG              Else                  Return Nothing              End If          Catch ex As Exception              Return Nothing          End Try      End Function    

根據字元串計算圖片轉換後文件大小

    ''' <summary>      ''' 根據字元串計算txt文件大小      ''' </summary>      ''' <param name="picstr">字元串</param>      ''' <returns></returns>      Function PIC_LENG(ByVal picstr As String) As Double          Try              Dim bytes As Byte() = System.Text.Encoding.ASCII.GetBytes(picstr)              Dim Length As Integer = bytes.Length              Return Math.Round(Length / 1024 / 1024, 2)          Catch ex As Exception              Return 0          End Try      End Function