主题：[求助]如何将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

调用网关发送彩信二维码

参考

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)

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)

qrcode.SaveImage(fn,75)