- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]怎么我用论坛一样的64位图像编码代码，获取的是空的 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=133533)
-- 发布时间：2019/4/15 22:45:00
-- [求助]怎么我用论坛一样的64位图像编码代码，获取的是空的
Dim ms As New System.IO.MemoryStream
getImage("D:\\ts.png").Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
Dim BPicture As Byte() = New Byte(ms.Length - 1) {}
BPicture = ms.GetBuffer()
MessageBox.show(Convert.ToBase64String(BPicture))
此主题相关图片如下：22.jpg
-- 发布时间：2019/4/15 23:14:00
--
Dim bmp As new Bitmap("D:\\ts.png")
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
-- 发布时间：2019/4/16 15:09:00
-- 回复：（有点蓝）Dim bmp As new Bitmap("D:\ts.png")...
还是一样的，什么都没有，是为什么？
此主题相关图片如下：233.png
-- 发布时间：2019/4/16 15:23:00
--
当字符过大过长的时候，msgbox是无法显示内容的。
请拷贝到剪切板后测试，如
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)