| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 有没有办法实现base64编码在显示之前 进行判断呢 如果是图片类型就显示在图片控件里 如果是文件就显示在web浏览控件里 反之是压缩文件就直接打开 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175468) |
| -- 作者：cnsjroom -- 发布时间：2022/3/5 23:03:00 -- 有没有办法实现base64编码在显示之前 进行判断呢 如果是图片类型就显示在图片控件里 如果是文件就显示在web浏览控件里 反之是压缩文件就直接打开 用代码把文件转换为base64 Dim data() As Byte = System.IO.File.ReadAllBytes("d:\\79.txt") \'把文件字节流加载进来,
下面的代码可以实现图片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 |
| -- 作者：爱好所有 -- 发布时间：2022/3/6 16:24:00 -- 你可以在文件转换时加个先加个文件类型列呀 |
| -- 作者：有点蓝 -- 发布时间：2022/3/6 20:57:00 -- 判断文件扩展名，.txt就是文本，.jpg之类的就是图片，......... |
| -- 作者：cnsjroom -- 发布时间：2022/3/6 22:02:00 -- 回复：（有点蓝）判断文件扩展名，.txt就是文本，.jpg... 怎么判断呢？是在加密之前就定义文件属性？还是直接解密base64代码之后判断呢？ 老师可否举个例子呢 谢谢！ |
| -- 作者：有点蓝 -- 发布时间：2022/3/6 22:31:00 -- 既然数据是存储在记事本里的，可以在里存储任何自己需要的东西把，比如文件类型，文件名称，扩展名................ |
| -- 作者：cnsjroom -- 发布时间：2022/3/7 9:48:00 -- 回复：（有点蓝）判断文件扩展名，.txt就是文本，.jpg... 请教一下老师 是在进行base64加密之前就判断么？还是在加密的同时就写入文件类型，然后解密后先去判断文件类型 在选择打开方式呢？ |
| -- 作者：有点蓝 -- 发布时间：2022/3/7 9:58:00 -- 还是在加密的同时就写入文件类型 |