请教，如何字符串转换成字节？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教，如何字符串转换成字节？

共有11897人关注过本帖树形打印复制链接主题：请教，如何字符串转换成字节？

狐狸爸爸

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/5/30 17:03:00 [显示全部帖子]

Dim bt1 As Byte() = {&H0, &H12, &H34, &H56, &HAA, &H55, &HFF}
Dim s As String = Convert.ToBase64String (bt1)
Dim bt2 As Byte() = Convert.FromBase64String(s)
For i As Integer = 0 To bt1.length -1
    If bt1(i) <> bt2(i) Then
        Return "false"
    End If
Next
Return "true"

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/5/30 17:04:00 [显示全部帖子]

看2楼。

狐狸爸爸

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/5/30 17:29:00 [显示全部帖子]

图片太大，字符数组太长？

狐狸爸爸

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/5/30 17:50:00 [显示全部帖子]

我这个通过测试的：

Dim fs As New IO.FileStream("c:\001.gif" , IO.FileMode.Open , IO.FileAccess.Read)   '用文件流打开图片
Dim br As New IO.BinaryReader(fs)
Dim bt1 As Byte() = br.ReadBytes(fs.Length)
Dim s As String = Convert.ToBase64String (bt1)
Dim bt2 As Byte() = Convert.FromBase64String(s)
Dim ms As New IO.MemoryStream(bt2)       '将字节数组转换为二进制流
Dim image As Image = Image.FromStream(ms)      '将二进制流转换为图片
e.Form.Controls("PictureBox1").Image = image      '显示图片

狐狸爸爸

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/5/31 11:40:00 [显示全部帖子]

Dim bt1() as Byte= Tables("卸船货损管理_Table1").Current('照片')

Filesys.WriteAlltext(文件名,Convert.ToBase64String (bt1))

Dim bt2 As Byte() = Convert.FromBase64String(Filesys.ReadAllText(文件名)）

下一主题 >> << 上一主题

主题：请教，如何字符串转换成字节？