Attribute VB_Name = "ImageFunc"
Const ChunkSize As Long = 100
Const BlockSize As Long = 100
Const TempFile As String = "tempfile.tmp"

Dim byteData() As Byte '定義數(shù)據(jù)塊數(shù)組
Dim DiskFile As String '圖像文件名
Dim NumBlocks As Long '定義數(shù)據(jù)塊個(gè)數(shù)
Dim FileLength As Long '標(biāo)識(shí)文件長(zhǎng)度
Dim LeftOver As Long '定義剩余字節(jié)長(zhǎng)度
Dim SourceFile As Long '定義自由文件號(hào)
Dim byteChunk() As Byte
Dim i As Long '定義循環(huán)變量

Public Sub ShowImage(Image1 As Image, _
                     Adodc1 As Adodc)
    Erase byteChunk()
    FieldSize = Adodc1.Recordset.Fields(2).ActualSize
    If FieldSize <= 0 Then
        Image1.Picture = LoadPicture("")
        Exit Sub
    End If
    '提供一個(gè)尚未使用的文件號(hào)
    SourceFile = FreeFile
    '打開(kāi)文件
    Open TempFile For Binary Access Write As SourceFile
    '計(jì)算數(shù)據(jù)塊
    NumBlocks = FieldSize \ BlockSize
    LeftOver = FieldSize Mod BlockSize '得到剩余字節(jié)數(shù)
    '分塊讀取圖像數(shù)據(jù)，并寫(xiě)入到文件中
    If LeftOver <> 0 Then
        ReDim byteChunk(LeftOver)
        byteChunk() = Adodc1.Recordset.Fields(2).GetChunk(LeftOver)
        Put SourceFile, , byteChunk()
    End If
    For i = 1 To NumBlocks
        ReDim byteChunk(BlockSize)
        byteChunk() = Adodc1.Recordset.Fields(2).GetChunk(BlockSize)
        Put SourceFile, , byteChunk()
    Next i
    Close SourceFile
    '將文件裝入到Image1控件中
    Image1.Picture = LoadPicture(TempFile)
    '刪除臨時(shí)文件
    Kill (TempFile)
End Sub

Public Sub SaveImage(ByVal ImageFile As String, _
                     Adodc1 As Adodc)
    
    If Adodc1.Recordset.BOF = True Or Adodc1.Recordset.EOF = True Then
        Exit Sub
    End If
    If ImageFile = "" Then
        Exit Sub
    End If
    '提供一個(gè)尚未使用的文件號(hào)
    SourceFile = FreeFile
    '打開(kāi)文件
    Open ImageFile For Binary Access Read As SourceFile
    '得到文件長(zhǎng)度
    FileLength = LOF(SourceFile)
    '判斷文件是否存在
    If FileLength = 0 Then
        Close SourceFile
        MsgBox DiskFile & "無(wú)內(nèi)容或不存在!"
    Else
        NumBlocks = FileLength \ BlockSize '得到數(shù)據(jù)塊的個(gè)數(shù)
        LeftOver = FileLength Mod BlockSize '得到剩余字節(jié)數(shù)
        Adodc1.Recordset.Fields(2).Value = Null
        ReDim byteData(BlockSize) '重新定義數(shù)據(jù)塊的大小
        For i = 1 To NumBlocks
            Get SourceFile, , byteData() '讀到內(nèi)存塊中
            Adodc1.Recordset.Fields(2).AppendChunk byteData() '寫(xiě)入FLD
        Next i
        ReDim byteData(LeftOver) '重新定義數(shù)據(jù)塊的大小
        Get SourceFile, , byteData() '讀到內(nèi)存塊中
        Adodc1.Recordset.Fields(2).AppendChunk byteData() '寫(xiě)入FLD
        Close SourceFile '關(guān)閉源文件
        Adodc1.Recordset.Update
    End If
End Sub