图片的保存问题

Question

大家好，请问大家一个问题，
我用delphi开发环境，数据库oracle请问我要把图片相保存在数据库，我怎么实现啊。。我在线等后，谢谢！！！！！！！

Answer 1

这是vb的参照以下Public Sub ooWriteToDB(ByRef Fd As OraField, ByVal FileName As String)
    Dim PartDesc As OraClob
    Dim buffer As String
    Dim ChunkSize As Long
    Dim amount_written As Long
    
    Set PartDesc = Fd.Value
    ChunkSize = 1000
    buffer = String$(ChunkSize, 32)
    Open FileName For Binary As #1
    PartDesc.offset = 1
    PartDesc.PollingAmount = LOF(1)
    remainder = LOF(1)
    Get #1, , buffer
    amount_written = PartDesc.Write(buffer, ChunkSize, ORALOB_FIRST_PIECE)
    While PartDesc.Status = ORALOB_NEED_DATA
        remainder = remainder - ChunkSize
        If remainder < ChunkSize Then
            piecetype = ORALOB_LAST_PIECE
            ChunkSize = remainder
            buffer = String$(ChunkSize, 32)
        Else
            piecetype = ORALOB_NEXT_PIECE
        End If
        Get #1, , buffer
        amount_written = PartDesc.Write(buffer, ChunkSize, piecetype)
    Wend
    Close #1
End Sub

Answer 2

ORACLE数据库,如何存放图像到BLOB类型字段连接到ORACLE数据库
db.Open "Provider=msdaora;Password=adminpass;Persist Security Info=True;User ID=admin;Data Source=hd.sj"
    Set adoPrimaryRS = New Recordset
  adoPrimaryRS.Open "select 编号,身份号码,图象数据 from TX", db, adOpenStatic, adLockOptimistic因为"图象数据"是BLOB类型,adoPrimaryRS.Open总是报错但以前存图像的字体段是LONG类型就行的.不知应如何对这种ORACLE新推的字段类型操作.