access采用OLE对象数据类型时图片显示动态

access采用OLE对象数据类型时图片显示动态

如何从ACCESS数据库中读取Images ？

1、ACCESS数据库中的图形格式
当浏览器遇到一个标志时，它会根据你设定的src属性来下载文件。这可能是一个图形文件或则是一个ASP页面。如果是一个返回gif二进制的ASP页面，浏览器需要知道返回的是什么格式的图形文件。因为这个原因，就需要指定content type，为image/gif，image/bmp ，image/jpeg或则其他什么的。
Response.contentType = "image/gif"
但这会导致另外一个问题，那就是我们只能够显示gif格式的图象，或则说保存在数据库中的东西只能够是gif格式的了。但是一些数据库是使用gif格式保存的，但是另外一些则是使用jpeg格式保存的，甚至其他是采用OLE方式来保存图形的。所以我们必须根据图形的格式来设置response的content type.

注意的是你也可以从一个文件中新建一个位图对象，但使用这样的方式保存在数据库中的图形格式是浏览器不能够识别的。当你往数据库中保存图象时，你应该知道你需要使用什么格式来保存你可以把文件中的每一个字节保存下来，或则通过ACCESS的把图形保存为一个OLE格式。
你使用什么格式保存图象决定了你在ASP中用什么格式来读出图形来。具体来说，如果你在ACCESS中将图形保存为bmp,gif,jpeg(这个必须要使用到ACCESS的OLE对象，即使用ACCESS的插入对象对话框来完成)，这是当你使用Image/bmp时浏览器是不能够解释的。

现在假设在数据库中保存的是你所想要的图形格式(GIF, JPEG, BMP, TIFF, 等)现在来看看要怎么把它们从数据库中读出来。在ACCESS中使用了两个关键的技术来保存图形 :
1、使用了bmp格式
2、78个字节的文件头

<%
response.Expires = 0
response.Buffer = True
response.Clear
response.contentType = "image/bmp"
%>

接着你要干的就是去掉那78个字节的OLE对象的文件头。
<%
Const OLEHEADERSIZE = 78
nFieldSize = rs("photo").ActualSize
oleHeader = rs("photo").GetChunk(OLEHEADERSIZE)
imageBytes = rs("photo").GetChunk(nFieldSize - OLEHEADERSIZE)
Response.BinaryWrite imageBytes
%>

现在举一个例子：
如果你要得到一个职工的信息，这段信息包括一个介绍和他的图象。并且要同时显示文字和图形。代码如下：（其中的theImg是一个代理页面）
theImg.asp
<%
response.Expires = 0
response.Buffer = True
response.Clear
response.contentType = Session("ImageType")
response.BinaryWrite Session("ImageBytes")
Session("ImageType") = ""
Session("ImageBytes") = ""
response.End
%>

Function SetImageForDisplay(field, contentType)
OLEHEADERSIZE = 78
contentType = LCase(contentType)
select case contentType
case "gif", "jpeg", "bmp"
contentType = "image/" & contentType
bytes = field.value
case "ole"
contentType = "image/bmp"
nFieldSize = field.ActualSize
oleHeader = field.GetChunk(OLEHEADERSIZE)
bytes = field.GetChunk(nFieldSize - OLEHEADERSIZE)
end select
Session("imageBytes") = bytes
Session("imageType") = contentType
End Function
'注意的是，程序中只使用了4中格式：gif, jpeg, bmp , ole .

<%
sql = "select * from Employees"
Set oRS = Server.CreateObject("ADODB.Recordset")
oRS.CursorLocation = 3
oRS.Open sql, "DSN=NW"
SetImageForDisplay oRS("photo"), "ole"
Set oRS.ActiveConnection = Nothing
%>

要显示图象的话，只需要在另外一个asp中，假设为getEmpInfo.asp中
"

最后再说一点，如何显示多幅图象呢？也就是说如果数据库中有多个字段都保存了图形，怎么办？其实解决办法很简单，只要给SetImageForDisplay多加一个参数，就是用来保存图形的一个session变量。例如：

SetImageForDisplay oRS1("photo"), "ole", "empPhoto"
SetImageForDisplay oRS2("logo"), "gif", "compLogo"

">
">

使用这个方法能够完成下面的功能：
1、能够从数据库中取出图形字段。（你唯一需要知道的是数据库中的图形是什么格式 bmp?gif?jpeg?ole?）
2、采用session变量来保存图形的字节数和content type asp需要这些信息来联结到中的属性
3、只要把theImg放到你想显示图形的地方，就能够显示图象了

">，OLE参数必须是完整的路径