用代码把文件转换为base64
Dim data() As Byte = System.IO.File.ReadAllBytes("d:\79.txt") '把文件字节流加载进来,
Dim s As String = Convert.ToBase64String(data)
MessageBox.show(s)
下面的代码可以实现图片base64编码转图片并显示
有没有办法实现base64编码在显示之前 进行判断呢 如果是图片类型就显示在图片控件里 如果是文件就显示在web浏览控件里 反之是压缩文件就直接打开
Dim bs As Byte() = Convert.FromBase64String(s)
Dim stream As System.IO.Stream = New System.IO.MemoryStream(bs)
Dim bmp As System.Drawing.Bitmap = New System.Drawing.Bitmap(stream)
Dim pbx As WinForm.PictureBox = Forms("窗口1").Controls("PictureBox1
pbx.Image = bmp
Dim wj As ……
Dim wb As WinForm.WebBrowser = Forms("窗口1").Controls("WebBrowser1")
wb.Address = wj