一波未平一波又起，中国程序员的技术绝不仅此！

[aihuiwu]

各位高手：

前几天我在这多次发问"关于用ADO将图像写入数据库" 的问题时没人来回答?

后来我翻了很多书总算把问题给结了,可是一波未平一波又起:

"找到仙丹不知仙丹是怎炼的"

我获得如下代码——将某VB支持的图像文件中的图像写入到ADO的记录集的IMAGE字段（没有问题）：

----------------------------------------------------------------
Sub SavePictureToAdodc(rs As ADODB.Recordset, ByVal FileName As String)
Dim Length As Long, f As Integer
Length = FileLen(FileName)

ReDim bArray(Length + 12) As Byte, bArray2(Length) As Byte
'此处barray的下标为何加12?
bArray(0) = &H6C: bArray(1) = &H74 '此两句目的何在?
RtlMoveMemory bArray(4), Length, 4 '此句何用

f = FreeFile
Open FileName For Binary As #f
Get #f, , bArray2
Close #1

RtlMoveMemory bArray(8), bArray2(0), Length
'为何从barray的第8个元素开始写

rs("pic").AppendChunk bArray
End Sub

------------------------------------------------
对以上的问题我百思不得其解.
最后,我将其改为如下,结果功能仍能实现，我想请问诸高手，原作者将数组BARRAY加大12及将barray2写到barray时从第8个元素开始写到底是何目的？

Sub SavePictureToAdodc(rs As ADODB.Recordset, ByVal FileName As String)
Dim Length As Long, f As Integer
Length = FileLen(FileName)

ReDim bArray(Length) As Byte, bArray2(Length) As Byte
f = FreeFile
Open FileName For Binary As #f
Get #f, , bArray2
Close #1

RtlMoveMemory bArray(0), bArray2(0), Length

rs("pic").AppendChunk bArray
End Sub

[subzero]

bArray()为存入数据库的带一个12字节长的头的数据
bArray2()为从图形文件中取得的数据
多12个字节是加上一个头，好像是ole的头吧
bArray()的头两个字节赋特定的值大概是这个头的标识
RltMoveMemory bArray(4),Length,4
从bArray()的第四个字节开始拷贝4个字节，是一个long型的数值，为图形文件的长度
RtlMoveMemory bArray(8), bArray2(0),Length
从第八个字节拷贝图形文件的数据，长度为Length
这个ole的头确实是有点奇怪，呵呵

[aihuiwu]

Subzero:
我想请问你，原作者为何如此增加。我改后的程序也能同样使用又是为何？

[subzero]

这个我也实在是不知道了
你找找白皮书之类的东西看看吧
我以前也碰到过类似的情况
不过你的图形文件存进数据库的时候最好按照它的OLE格式来存
取的时候也要去掉那个头，否则恐怕只有好像acdsee这么强大的工具才能看了