vb.net 教程 20-2 base64图片转换 1

旧城等待， 2022-09-11 09:25 84阅读 0赞

订阅专栏

base64编码常用于MIME的电子邮件，IE保存的Mht格式网页，也是用的base64编码。

详细请查看查看RFC2045～RFC2049，上面有MIME的详细规范，这里谈谈在vb.net中的实现。

设计界面，包含3个按钮、1个文本框和1个webbrowser控件：

![Center][]

现在form窗体类添加窗体级变量，用于存储图片格式，在下一节中我们会将编码的图片显示出来：

Dim imgFormat As String

图片base64编码的代码：

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

Dim filename As String = ""

Dim ofDialog As New OpenFileDialog()

With ofDialog

.Filter = "图片文件|\*.jpg;\*.png;\*.gif"

.FileName = ""

If .ShowDialog = DialogResult.OK Then

filename = .FileName

Else

Exit Sub

End If

End With

Dim bmp As New Bitmap(filename)

Select Case bmp.RawFormat.Guid

Case Imaging.ImageFormat.Jpeg.Guid

imgFormat = "jpeg"

Case Imaging.ImageFormat.Gif.Guid

imgFormat = "gif"

Case Imaging.ImageFormat.Png.Guid

imgFormat = "png"

Case Else

MessageBox.Show("不是指定的格式")

Exit Sub

End Select

Dim ms As New System.IO.MemoryStream()

bmp.Save(ms, bmp.RawFormat)

Dim base64String As String

Dim base64Bytes() As Byte

Dim base64Length As Integer

base64Length = ms.Length

ReDim base64Bytes(base64Length - 1)

ms.Position = 0

ms.Read(base64Bytes, 0, base64Length)

ms.Close()

base64String = Convert.ToBase64String(base64Bytes)

TextBox1.Text = base64String

End Sub

base64还原图片的代码：

Private Sub Button3\_Click(sender As Object, e As EventArgs) Handles Button3.Click

Dim filename As String

Dim sfDialog As New SaveFileDialog()

With sfDialog

.Filter = "图片文件|\*." & IIf(imgFormat = "jpeg", "jpg", imgFormat)

.FileName = ""

If .ShowDialog = DialogResult.OK Then

filename = .FileName

Else

Exit Sub

End If

End With

Dim fromBase64Bytes() As Byte

fromBase64Bytes = Convert.FromBase64String(TextBox1.Text)

Dim ms As New System.IO.MemoryStream(fromBase64Bytes)

Dim bmp As New Bitmap(ms)

Dim saveimgformat As Imaging.ImageFormat

Select Case imgFormat

Case "jpeg"

saveimgformat = Imaging.ImageFormat.Jpeg

Case "png"

saveimgformat = Imaging.ImageFormat.Png

Case "gif"

saveimgformat = Imaging.ImageFormat.Gif

Case Else

MessageBox.Show("不是指定的格式")

Exit Sub

End Select

bmp.Save(filename, saveimgformat)

bmp.Dispose()

End Sub

注意，随着图片越大，转换会越慢。

由于.net平台下C\#和vb.NET很相似，本文也可以为C\#爱好者提供参考。

学习更多vb.net知识，请参看 [vb.net教程][vb.net] 目录

[Center]: /images/20220828/c33677fbc9c6425ca40e21dce3b2661b.png
[vb.net]: https://www.xin3721.com/eschool/vbnetxin3721/

vb.net 教程 20-2 base64图片转换 1

发表评论取消回复

还没有评论，来说两句吧...

相关阅读

相关将base64转换为图片

相关 base64图片转换工具类以及base转图片工具

相关 vb.net 教程 20-2 base64图片转换 1

相关将图片转换成Base64

相关 base64转图片图片转base64

相关 base64生成图片——图片转换变成base64

相关 Base64图片转换为图片的方式

相关 C#中图片转换为Base64编码，Base64编码转换为图片

相关前端图片在线转换Base64 图片编码Base64

相关将图片转换成base64