以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  有没有BASE64的函数  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105707)
--  作者：一一的爸爸
--  发布时间：2017/8/24 16:20:00
--  有没有BASE64的函数
如题
--  作者：有点甜
--  发布时间：2017/8/24 16:22:00
--  

参考

 

Dim bmp As new Bitmap("d:\\abc.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
msgbox("读取图片完毕")
--  作者：有点甜
--  发布时间：2017/8/24 16:23:00
--  

 或者看看

 

ImageToBase64 用于将图片转换为base64字符串，参考：动态生成图表

 

http://www.foxtable.com/mobilehelp/scr/0146.htm

 
--  作者：一一的爸爸
--  发布时间：2017/8/24 16:25:00
--  
不是这个。是字符串加密解密
--  作者：有点甜
--  发布时间：2017/8/24 17:04:00
--  


Dim a As String = "base64字符串与普通字符串互转"
Dim b As Byte() = System.Text.Encoding.[Default].GetBytes(a)
Dim base64 = Convert.ToBase64String(b)
output.show(base64)

 

-------------------

 

dim str as string = "YmFzZTY019a3+7Su0+vG1c2o19a3+7Suu6XXqg=="
Dim c As Byte() = Convert.FromBase64String(str)
str = System.Text.Encoding.[Default].GetString(c)
output.show(str)