码迷,mamicode.com
首页 > 数据库 > 详细

(转载)VB 查询Oracle中blob类型字段,并且把blob中的图片以流的方式显示在Image上

时间:2014-07-26 14:51:40      阅读:349      评论:0      收藏:0      [点我收藏+]

标签:des   style   blog   http   color   io   cti   代码   

模块代码
Private Declare Function CreateStreamOnHGlobal Lib "ole32" (ByVal hGlobal As Long, ByVal fDeleteOnRelease As Long, ppstm As Any) As Long
Private Declare Function OleLoadPicture Lib "olepro32" (pStream As Any, ByVal lSize As Long, ByVal fRunmode As Long, riid As Any, ppvObj As Any) As Long
Private Declare Function CLSIDFromString Lib "ole32" (ByVal lpsz As Any, pclsid As Any) As Long
Private Declare Function GlobalAlloc Lib "kernel32" (ByVal uFlags As Long, ByVal dwBytes As Long) As Long
Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal dwLength As Long)
Private Declare Function GlobalFree Lib "kernel32" (ByVal hMem As Long) As Long

Public Type GUID  16 bytes (128 bits)dwData1 As Long ‘ 4 byteswData2 As Integer ‘ 2 byteswData3 As Integer ‘ 2 bytes
abData4(7) As Byte  8 bytes, zero based
End Type


Public Function PictureFromByteStream(B() As Byte) As IPicture
    Dim hMem        As Long
    Dim lpMem       As Long
    Dim LowerBound  As Long
    Dim ByteCount   As Long
    Dim IID_IPicture As GUID
    Dim istm        As stdole.IUnknown
    
    LowerBound = LBound(B)
    ByteCount = UBound(B) - LowerBound + 1
    
    hMem = GlobalAlloc(&H2, ByteCount)
    
    If hMem <> 0 Then
        
        lpMem = GlobalLock(hMem)
        
        If lpMem <> 0 Then
            
            MoveMemory ByVal lpMem, B(LowerBound), ByteCount
            
            GlobalUnlock hMem
            
            If CreateStreamOnHGlobal(hMem, 1, istm) = 0 Then
                
                If CLSIDFromString(StrPtr("{7BF80980-BF32-101A-8BBB-00AA00300CAB}"), IID_IPicture) = 0 Then
                    
                    OleLoadPicture ByVal ObjPtr(istm), ByteCount, 0, IID_IPicture, PictureFromByteStream
                    
                End If
                
            End If
            
        End If
        
    End If
    
End Function
Public Sub Combo1_Click()

Dim adoCnn As ADODB.Connection
    Dim rstOra As ADODB.Recordset
    Dim intI   As Integer
     
    Set adoCnn = New ADODB.Connection
    Set rstOra = New ADODB.Recordset
                                     
    adoCnn.ConnectionString = "Provider=OraOLEDB.Oracle;User ID=dzjc;password=zlkj;Data Source=dzjc_2005;" 读blob字段要用Provider=OraOLEDB.Oracle
         
    adoCnn.CursorLocation = adUseClient
    adoCnn.Open
           
    rstOra.CursorLocation = adUseClient
   
    rstOra.ActiveConnection = adoCnn
    rstOra.Open "SELECT zp FROM dzjc.dzjc_wfzp WHERE xh = ‘5‘"
          
    Set Image1.DataSource = rstOra
          
    Set Image1.Picture = PictureFromByteStream(rstOra.Fields("zp").Value)

End Sub

(转载)VB 查询Oracle中blob类型字段,并且把blob中的图片以流的方式显示在Image上,布布扣,bubuko.com

(转载)VB 查询Oracle中blob类型字段,并且把blob中的图片以流的方式显示在Image上

标签:des   style   blog   http   color   io   cti   代码   

原文地址:http://www.cnblogs.com/lichmama/p/3870043.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!