用ADO对象时如何把OLE连到数据库中的图片字段上？

zhongguocsdn 2001-08-11 08:02:58

各位高手：
请教：用ADO对象时如何把OLE连到数据库中的图片字段上？
能否给出详细代码？
先谢啦！

...全文

107 点赞收藏 7

写回复

7 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

limengchen 2001-08-11

OLE控件只能连到OLE字段中，你的图片字段是OLE字段还是超链接的？

回复赞

qb_zhm 2001-08-11

回复赞

little_hero 2001-08-11

Module模块:
Public bit() As Byte
Public txtdbname As String
Public Enum CBoolean
CFalse = 0
ctrue = 1
End Enum
Declare Function CreateStreamOnHGlobal Lib "ole32" _
(ByVal hGlobal As Long, _
ByVal fDeleteOnRelease As CBoolean, _
ppstm As Any) As Long

Declare Function OleLoadPicture Lib "olepro32" _
(pStream As Any, _
ByVal lSize As Long, _
ByVal fRunmode As CBoolean, _
riid As GUID, _
ppvObj As Any) As Long

Public Type GUID
dwData1 As Long
wData2 As Integer
wData3 As Integer
abData4(7) As Byte
End Type

Declare Function CLSIDFromString Lib "ole32" (ByVal lpsz As Any, pclsid As GUID) As Long
Public Const sIID_IPicture = "{7BF80980-BF32-101A-8BBB-00AA00300CAB}"
Public Const GMEM_MOVEABLE = &H2
Public Const S_OK = 0
Declare Function GlobalAlloc Lib "kernel32" (ByVal uFlags As Long, ByVal dwBytes As Long) As Long
Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Declare Function GlobalFree Lib "kernel32" (ByVal hMem As Long) As Long
Declare Sub MoveMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal dwLength As Long)

Public Function PictureFromBits(abPic() As Byte) As IPicture
Dim nLow As Long
Dim cbMem As Long
Dim hMem As Long
Dim lpMem As Long
Dim IID_IPicture As GUID
Dim istm As stdole.IUnknown
Dim ipic As IPicture

On Error GoTo Out
nLow = LBound(abPic)
On Error GoTo 0
cbMem = (UBound(abPic) - nLow) + 1
hMem = GlobalAlloc(GMEM_MOVEABLE, cbMem)
If hMem Then
lpMem = GlobalLock(hMem)
If lpMem Then
MoveMemory ByVal lpMem, abPic(nLow), cbMem
Call GlobalUnlock(hMem)
If (CreateStreamOnHGlobal(hMem, ctrue, istm) = S_OK) Then
If (CLSIDFromString(StrPtr(sIID_IPicture), IID_IPicture) = S_OK) Then
Call OleLoadPicture(ByVal ObjPtr(istm), cbMem, CFalse, IID_IPicture, PictureFromBits)
End If
End If
End If
End If
Out:
End Function
写：
Open dbfilename For Binary As #1
ReDim bit(LOF(1)) As Byte
Get 1, 1, bit
Close 1
rs("pic").AppendChunk bit
读:
dim bit1 as byte
bit1 = rs("pic").GetChunk(rs("pic").ActualSize)
Picture1.Picture = PictureFromBits(bit1())

回复赞

little_hero 2001-08-11

给出你的Email，我给源代码你!

回复赞

allanli 2001-08-11

呵呵，漏了漏了
还有一个关键
nFieldSize = RS("photo").ActualSize

回复赞

allanli 2001-08-11

你是在哪里应用？如果是ASP中，可以这样
Session("Bytes") =RS("photo").GetChunk(nFieldSize)
response.Clear
response.BinaryWrite Session("Bytes")
如果是一般编程语言，例如VB，应该可以这样(没实践过，呵呵)
dim Mypicture as picture
set mypicture=RS("photo").GetChunk(nFieldSize)
picturebox.picture=mypicture

回复赞

zhongguocsdn 2001-08-11

我的图片字段是OLE字段！
请教：用ADO对象时如何把OLE连到数据库中的图片字段上？
能否给出详细代码？
先谢啦！

回复赞