Dim bmp As New Bitmap("D:\test.jpg")
Dim ms As New System.Io.MemoryStream()
bmp.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
Dim arr(ms.Length) As Byte
ms.Position = 0
ms.Read(arr, 0, ms.Length)
ms.Close()
Dim strbase64 As String = Convert.ToBase64String(arr)
bmp.dispose
ClipBoard.SetText(strbase64)
msgbox(strbase64.length)
我把ClipBoard.SetText里得到的字符串,贴到一个在线base64转图片工具,但是却生成不了图片。是怎么回事?是狐表生成的,只能是狐表识别吗?
加上图片类型
Dim strbase64 As String ="data:image/jpeg;base64," & Convert.ToBase64String(arr)