一波未平一波又起,中国程序员的技术绝不仅此!
各位高手:
前几天我在这多次发问"关于用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