如何将16进制字符流还原成png图片

还原成图片还不简单啊,你给的是个字节流
定义个byte数组,dim xx() as byte
open yourpath for binary as #1
put #1,,xx
close #1

嗯，然后呢，关键是怎么变成图片啊

yourpath 就是你的png图片路径啊。。。

大哥，真有才，问题解决了。
代码整理后如下：
Private Sub Command1_Click()
Dim HEXSTR As String
Dim A() As Byte
HEXSTR = Text1
ReDim A(Len(HEXSTR) / 2)
For I = 0 To Len(HEXSTR) Step 2
A(I / 2) = Val("&H" & Mid(HEXSTR, I + 1, 2))
Next
Open "c:\123.PNG" For Binary As #1
Put #1, , A()
Close #1
End Sub
图片如下：


再次感谢

Property Get BinaryEdit$(File)
Dim I%, Data() As Byte, Str$
If TypeName(File) = "String" Then
I =FileFree
Open File For Binary As #I
ReDim Data(LOF(I) - 1)
Get #I, , Data
Close #I
Else
ReDim Data(LOF(File)
Get #File, , Data
End If
For I = 0 To UBound(Data)
Str = Str & IIf(Data(I) < &H10, "0", "") & Hex$(Data(I))
Next
BinaryEdit = Str
End Property
Property Let BinaryEdit(File, Str&)
Dim I%, Data() As Byte
ReDim Data(Len(Str) / 2 - 1)
For I = 0 To UBound(Data)
Data(I) = CByte("&H" & Mid(Str, I * 2 + 1, 2)
Next
If TypeName(File) = "String" Then
I = FileFree
Open File For Binary As #I
Put #I, , Data
Close #I
Else
Put #File, , Data
End If
End Property
Private Sub Command1_Click()
'读取
Text1 = BinaryEdit(".\File1.png") '方式1
Open "File2.png" For Binary As #1
Text2 = BinaryEdit(1) '方式2
Close #1
End Sub
Private Sub Command2_Click()
'保存
BinaryEdit(".\File1.png") = Text '方式1
Open ".\File2.png" For Binary As #2
BinaryEdit(2) = Text2
Close #2 '方式2
End Sub
用BinaryEdit属性，读取、保存全都搞定了。

九楼：
行10，列21：缺少括号！
Property Get BinaryEdit$(File)
Dim I%, Data() As Byte, Str$
If TypeName(File) = "String" Then
I =FileFree
Open File For Binary As #I
ReDim Data(LOF(I) - 1)
Get #I, , Data
Close #I
Else
ReDim Data(LOF(File) - 1)
Get #File, , Data
End If
For I = 0 To UBound(Data)
Str = Str & IIf(Data(I) < &H10, "0", "") & Hex$(Data(I))
Next
BinaryEdit = Str
End Property
Property Let BinaryEdit(File, Str&)
Dim I%, Data() As Byte
ReDim Data(Len(Str) / 2 - 1)
For I = 0 To UBound(Data)
Data(I) = CByte("&H" & Mid(Str, I * 2 + 1, 2)
Next
If TypeName(File) = "String" Then
I = FileFree
Open File For Binary As #I
Put #I, , Data
Close #I
Else
Put #File, , Data
End If
End Property
Private Sub Command1_Click()
'读取
Text1 = BinaryEdit(".\File1.png") '方式1
Open ".\File2.png" For Binary As #1
Text2 = BinaryEdit(1) '方式2
Close #1
End Sub
Private Sub Command2_Click()
'保存
BinaryEdit(".\File1.png") = Text '方式1
Open ".\File2.png" For Binary As #2
BinaryEdit(2) = Text2
Close #2 '方式2
End Sub
用BinaryEdit属性，读取、保存全都搞定了。


第一步，将这些字符转换为字节数组，第二步，将字节数组转换为stream对象，第三步，调用GDI+的相关函数将流转换为image对象，第四步，调用GDI+的绘制函数显示图像。

我想说的是，在linux的qt环境下呢？嗯哼？

其实，我一直想让base64字符串直接在内存中加载解码后直接放到PictureBox中，不保存为文件。加快速度。可以做到么？

怎么搞的？

不是转换成png格式么怎么还要图片路径？

VB的图片框不能直接显示png格式的图片，如果你这些数据是JPG图片或者GIF图片的，那么通过下面的函数可以直接显示在VB图片框。
Option Explicit
Private Declare Function CreateStreamOnHGlobal Lib "ole32" (ByVal hGlobal As Long, ByVal fDeleteOnRelease As Long, ppstm As Any) As Long
Private Declare Function OleLoadPicture Lib "olepro32" (pStream As Any, ByVal lSize As Long, ByVal fRunmode As Long, riid As Any, ppvObj As Any) As Long
Private Declare Function CLSIDFromString Lib "ole32" (ByVal lpsz As Any, pclsid As Any) As Long
Private Declare Function GlobalAlloc Lib "kernel32" (ByVal uFlags As Long, ByVal dwBytes As Long) As Long
Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalFree Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal length As Long)
Private Function GetPictureFromByteStream(picData() As Byte) As IPicture '将数组合成为图像
On Error GoTo 100
Dim bCount As Long, hMem As Long, lpMem As Long
Dim IID_IPicture(15)
Dim IStream As stdole.IUnknown
bCount = UBound(picData) + 1 ' 计算数组大小
hMem = GlobalAlloc(&H2 Or &H40, bCount) '按数组大小分配内存空间
If hMem Then '若分配内存成功
lpMem = GlobalLock(hMem) '锁定内存, 返回起始字节的指针
If lpMem Then
CopyMemory ByVal lpMem, picData(0), bCount
Call GlobalUnlock(hMem)
If CreateStreamOnHGlobal(hMem, 1, IStream) = 0 Then
If CLSIDFromString(StrPtr("{7BF80980-BF32-101A-8BBB-00AA00300CAB}"), IID_IPicture(0)) = 0 Then
Call OleLoadPicture(ByVal ObjPtr(IStream), bCount, 0, IID_IPicture(0), GetPictureFromByteStream)
End If
End If
End If
End If
GlobalFree hMem
Exit Function
100
End Function