从自个儿的文件读出内嵌其中的二进制文件后，读出来的文件无法使用
从自己的文件读出内嵌其中的二进制文件后，读出来的文件无法使用题目很长，希望有心的认真看一下，谢谢了！！我
从自己的文件读出内嵌其中的二进制文件后，读出来的文件无法使用
题目很长，希望有心的认真看一下，谢谢了！！
我自己设计了一种文件，想实现将其他文件的内容嵌入到自己文件的功能。我用二进制方式将需要嵌入的文件读出来，然后接着将读出来的字节数组转成字符串，然后存放入对象的变量里。在要写入的时候直接从属性中读出来，然后写到自己的文件里。自己的文件前面有一些东西，以一个特定的分隔符为记号，作为嵌入二进制数据的开始。同样，在嵌入数据的结束，也有一个标记表示结束。具体代码如下：
With MemoObject.AutoRemind
……
'分配文件号
TmpFileNumber = FreeFile
'打开文件
Open .FileName For Binary As TmpFileNumber
'重定义字节数组大小
ReDim BtFileContent(LOF(TmpFileNumber)) As Byte
'读取文件
Get #TmpFileNumber, , BtFileContent
'字节数组转字符串
StrFileContent = StrConv(BtFileContent, vbUnicode)
'比较内容
If StrFileContent <> .Srouce Then
.Srouce = StrFileContent '不同则按照当前文件内容修改
End If
Close #TmpFileNumber
Else '非内嵌
.Srouce = "" '清除属性
End If
Put #1, , .Srouce & E_AutoRemind
End With
MemoObject.AutoRemind就是上面提到对象，这个对象的一些属性保存着内嵌文件的信息，例如原始文件名FileName，还有保存着读出来数据的Srouce。E_AutoRemind是字符串常数，是哪个代表结束的标志。
现在假设已经有按照上面代码写出来的一个文件。这是下一次运行，文件现在要重新读出来，我就用查找标志的方法，将中间的数据重新读出来，然后再用Open .FileName For Binary As #1再重新写成原来的文件。可是问题就是写出来的文件没用了。
我做测试的时候开始嵌入的是一个完好的音频文件（是一首歌），可是重新写出来的文件虽然播放器依然认可他是一个音频，可是播放出来的就不是歌了，是一些乱七八糟的噪音。后来我又嵌入一张图片，发现随后写出来的文件虽然也是图片，可是图案已经扭曲变形，不再是原来的东西了。而且发现写出来的文件总是比原来的要小。
现在，我不懂的是 我用嵌入的时候OPen语句完整地读出来的文件数据，为什么后来再写的时候会少了什么东西呢？其次，写出来的文件也不是说变得完全没用了，如果是中间转换成字符串，这样丢失了二进制数据的某一些特性，那么写出来的文件就应该什么都不是。可是现在写出来的文件音频还是音频，图像还是图像；播放器，图片查看器都不会提示这是一个不符合要求的文件，只是播出来的音乐不对了，显示出来的图片也不对了。这就更不懂了
[解决办法]设计错误：
1) StrConv() 能对纯文本内容在 ANSI 和 Unicode 之间转换，不能用于非文本内容（音频、图像等）。
要么直接打包二进制内容、要么用 Base-64 编码进行转换。
2)你不能保证所用的“结束标志”不出现在文件内容当中，解包时会导致不正确的分割。
采用前缀长度的方案，解包时不需搜索可以直接按长度分割。
