以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何将image转化为base64串形式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103224)
--  作者：xaesohoware
--  发布时间：2017/7/3 16:20:00
--  [求助]如何将image转化为base64串形式

Dim jo as New JObject()

\' jo("客户")....

生成客户json信息

 

Dim qrcode As WinForm.BarCode = e.Form.Controls("BarCode1")

qrcode.code=jo.ToString
客户二维码信息

 

Dim qrimg As Image  =qrcode.GetImage(75)
客户二维码图形

 

Dim b64 As String

生成彩信的base64

 

调用网关发送彩信二维码
--  作者：有点甜
--  发布时间：2017/7/3 16:49:00
--  

参考

 

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()

bmp.dispose

 

Dim strbaser64 As String = Convert.ToBase64String(arr)

 

[此贴子已经被作者于2017/7/3 17:54:39编辑过]
--  作者：xaesohoware
--  发布时间：2017/7/3 17:16:00
--  

Dim qrcode As WinForm.BarCode = e.Form.Controls("BarCode1")
qrcode.code=jo.ToString
Dim fn=CExp("c:\\qr{0}.jpg",ja(3).Tostring)

Dim qrimg As Image  =qrcode.GetImage(75)
Dim b64 As String
 Dim ms As new System.Io.MemoryStream()
qrimg.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
Dim arr(ms.Length) As Byte
ms.Position = 0
ms.Read(arr, 0, ms.Length)
ms.Close()
b64 = Convert.ToBase64String(arr)


FileSys.WriteAllText("c:\\qr64.txt",b64,False,Encoding.UTF8)

qrcode.SaveImage(fn,75)