以下是引用狐狸爸爸在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"
不太明白。
但这样不行。
dim s as stirng = Tables("卸船货损管理_Table1").Current("照片") '是text类型的二进制。
Dim imageByte() As Byte = Convert.FromBase64String(s)
Dim ms As New IO.MemoryStream(imageByte) '将字节数组转换为二进制流
Dim image As Image = Image.FromStream(ms) '将二进制流转换为图片
e.Form.Controls("Picturebox1").Image = image
提示字符组无效长度。