读取OLE字段

前一阵由于工作中需要,从ORACLE数据库中读取包含ole信息的字段。

access中我们存储图片信息所用到的类型是OLE.要显示图片我们需要使用stream,这就需要知道唯一标识图像的文件头.
所有的图片文件(格式)都有用来唯一的标识图像的文件头。JPG图片文件以所谓的SOI标记开始,该标记的十六进制值是$FFD8
MS Access
把连接的OLE对象的路径作为对象定义的一部分存储在OLE对象字段中。因为OLE对象的存储定义没有被文档化(!?这直接来自于MS),所以没有办法知道真正的图像数据被写之前能得到什么。

分两个部分考虑这个问题。第一:我们需要找到'FFD8'并从那儿开始读取图像。第二:'FFD8'不可能总在文件的同一个位置。结论:我们需要一个函数,返回Access数据库中存储为OLE对象的JPG文件的SOI标记的位置。<o:p></o:p>

<o:p> </o:p>

Private Sub Command2_Click()

    Dim conn As New ADODB.Connection

    Dim rs As New ADODB.Recordset

    conn.ConnectionString = "DSN=photo;uid=sa;pwd=;"

    conn.ConnectionTimeout = 30

    conn.Open

    rs.Open "select * from t_Photo order by pid", conn, adOpenStatic, adLockReadOnly, adCmdText

    Dim index As String

    For t = 0 To Val(rs.RecordCount) - 1

    If (t > 2) Then

    index = Trim(rs.Fields("pid").Value)

   

    Dim size, i, j

    '要输出字段的总字节数

    size = rs("Picture1").ActualSize

    '循环找到 SOI marker 的位置

    For i = 1 To size

    If AscB(MidB(rs("Picture1"), i, 1)) = &HFF And AscB(MidB(rs("Picture1"), i + 1, 1)) = &HD8 Then

    Exit For

    End If

    Next

 

    Debug.Print "i==========" & i

   

   

    Dim picsize As Long

        picsize = rs("Picture1").ActualSize

        Dim iStm As New ADODB.Stream

       

    Set iStm = New ADODB.Stream

       With iStm

               .Mode = adModeReadWrite

               .Type = adTypeBinary

               .Open

               rs("Picture1").GetChunk (i - 1)

               .Write rs("Picture1").GetChunk(picsize - i + 1)

       End With

       iStm.SaveToFile App.Path & "/cc" & t & ".jpg"

       Picture1.Picture = LoadPicture(App.Path & "/cc" & t & ".jpg")

       

    End If

    rs.MoveNext

   

    Combo1.AddItem index

    Next t

    rs.Close

   

<o:p> </o:p>

End Sub

<o:p> 上面是段vb程序,我已经使用过是正确的。可以获取图片ole标记位的地址。然后在java里直接指定到该处进行获取就可以取出图片了。</o:p>

try{

        Class.forName("sun.jdbc.odbc.JdbcOdbcDriver");

        Connection con = DriverManager.getConnection("jdbc:odbc:photo","sa","");

        Statement sql = con.createStatement(); //创建Statement对象

        ResultSet rs = sql.executeQuery("select * from t_photo");

        while (rs.next()) //输出被查询的情况

        {

            String pid = rs.getString("pid");

            byte[] pic = rs.getBytes("picture1");

            FileOutputStream fo = new FileOutputStream("c:\\2.bmp");

            //FileInputStream fi = rs.getCharacterStream("picture1");

            int start = 166;

            for(int i=start; i

                fo.write(pic[i]);

            }

            fo.close();

            System.out.println(pid);

        }

        }catch(Exception e){

            System.out.println(e);

        }

你可能感兴趣的:(oracle,sql,jdbc,Access,vb)