多个图片文件合成1个2进制后文件再分别生成多个图片文件

Question

饶了 .呵呵
 就是多个图片文件合成1个2进制文件
然后再把2进制文件分别生成多个图片文件(也就是还原)

Answer 1

Private Sub Command1_Click()
    Dim con As New ADODB.Connection     '打开数据库连接
    con.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=project;Data Source=localhost"
    Dim rs As New ADODB.Recordset
    rs.Open "picup", con, adOpenDynamic, adLockOptimistic
    Dim stmpic As ADODB.Stream
    Dim strpictemp As String
    dim PicData as ADODB.Stream
for i=1 to n step 1  '你的图片的数量循环
    Set stmpic = New ADODB.Stream
    stmpic.Type = adTypeBinary
    stmpic.Open  
    stmpic.LoadFromFile ("用i标志的图片路径")
    PicData=PicData & stmpic
    stmpic.Close
next i
    rs.AddNew
    rs.Fields(0).Value = "demo"
    rs.Fields(1).Value = PicData.Read
    rs.Update
    PicData.Close
    MsgBox "Save OK!", , "OK"
    rs.Close
    con.Close
    Set rs = Nothing
    Set con = Nothing
End Sub

Answer 2

多个文件合并的时候 需要附加个每个图片文件的附加说明（一般叫头文件) 如：文件名字喝文件大小
然后调用DOS COPY功能(我认为很有效) 如COPY /B 头文件.TEXT+图片一.BMP+图片二.BMP+...
分解的时候先读取头文件说明(头文件最好定长如10K)再根据头文件指示用二进制格式读取和写文件