用SQL Server为Web浏览器提供图像2
日期：2011-01-17 浏览次数：20939 次
建立ActiveX 动态链接库
使用 VB 5.0，我们要开发一个ActiveX 动态链接库。这个动态链接库让我们能够连接到SQL数据库，提取图片数据，
并把它们保存成文件，放在目录里。要建立动态链接库，请在打开VB程序之后执行下列步骤：首先：在文件（File）菜单
里，选择新建项目（New Project）。接着，在新建立项目对话框里，双击ActiveX DLL 图标。VB自动地向项目里增加一个
类，叫做Class1。然后，在属性容器里，双击名称（Name）属性，把它改成clsImageLoader，保持instancing 属性为缺省
值MultiUse不动。最后，在项目（Project）菜单里，选择Project1 属性，打开项目属性对话框。选择通用（General）选
项卡，把项目名称改为ImageLoader。其它字段可以不管，保持原样。单击确定（OK）完成对ImageLoader 这个工程的设
置。
在类里，写入了5个Let属性，1个Get属性（只读）和两个方法。Let属性传递动态链接库需要的信息，Get属性提供动
态链接库生成的图片文件的位置。两个方法用来打开到数据库的连接，以生成图片文件。表 A 总结了这些属性和方法的作
用。当然，根据项目的需要，可以在类里加入更复杂的功能。
表A: 在ActiveX动态链接库里的属性和方法
属性/方法 作用
DbName 打开数据库连接所需的数据库名称。
TableName,
NameOfImageColumn, 打开记录集所需要的信息。
NameOfImageTypeColumn,
NameOfImageIdColumn
ImageFile (只读) 把图片文件的名称和位置返回给容器。
OpenConnection (方法) 打开数据库连接。
CreateTemplateImageFile (方法) 从数据库提取图片数据，并把它保存到目录里。
在类里还有其它的私有子程序，用来初始化类、终止类、打开记录集、建立图片文件，以及处理可能的错误。
注意微软活动数据对象ADO1.5(现在为2.0)被用来连接SQL数据库。也可以使用其它数据访问方法，比如远程数据对象RDO。
在这个项目里，必须使用ADO。操作方法是，单击项目（Project）菜单，然后选择引用（References）菜单 项。在引用对
话框里，选中微软ActiveX Data Objects 1.5 库，然后单击确定（OK）。
在列表 B里，列出了类ImageLoader 完整源代码。类里使用的变量定义都在代码内部给出，还有其它注释，帮助理解上下
文。
列表 B:类 ImageLoader 的完整源代码
Private mAdoConn As New ADODB.Connection
Private mAdoRst As New ADODB.Recordset
Private mstrDbName As String
Private mstrTableName As String
Private mstrImageColumnName As String '图片字的名称。
Private mstrImageTypeColumnName As String '图片类型字段的名称。
Private mstrImageIdColumnName As String '图片ID字段的名称。
Private mstrFileName() As String '数组，里面包含文件名和路径。
Private mlngImageId() As Long '数组，里面包含图片ID
Private mlngNumberOfFiles As Long
Const BLOCKSIZE = 102400
Public Property Let DbName(ByVal strVal As String)
mstrDbName = strVal
End Property
Public Property Let TableName(ByVal strVal As String)
mstrTableName = strVal
End Property
Public Property Let NameOfImageColumn(ByVal strVal As String)
mstrImageColumnName = strVal
End Property
Public Property Let NameOfImageTypeColumn(ByVal strVal As String)
mstrImageTypeColumnName = strVal
End Property
Public Property Let NameOfImageIdColumn(ByVal strVal As String)
mstrImageIdColumnName = strVal
End Property
Public Property Get ImageFile(ByVal ImageId As Integer) As String
Dim intPos As Integer
Dim blnFindId As Boolean
Dim i As Integer
blnFindId = False
For i = 0 To mlngNumberOfFiles - 1
If mlngImageId(i) = ImageId Then
intPos = 5 + Len(ImageId) + 3
Ima
使用 VB 5.0，我们要开发一个ActiveX 动态链接库。这个动态链接库让我们能够连接到SQL数据库，提取图片数据，
并把它们保存成文件，放在目录里。要建立动态链接库，请在打开VB程序之后执行下列步骤：首先：在文件（File）菜单
里，选择新建项目（New Project）。接着，在新建立项目对话框里，双击ActiveX DLL 图标。VB自动地向项目里增加一个
类，叫做Class1。然后，在属性容器里，双击名称（Name）属性，把它改成clsImageLoader，保持instancing 属性为缺省
值MultiUse不动。最后，在项目（Project）菜单里，选择Project1 属性，打开项目属性对话框。选择通用（General）选
项卡，把项目名称改为ImageLoader。其它字段可以不管，保持原样。单击确定（OK）完成对ImageLoader 这个工程的设
置。
在类里，写入了5个Let属性，1个Get属性（只读）和两个方法。Let属性传递动态链接库需要的信息，Get属性提供动
态链接库生成的图片文件的位置。两个方法用来打开到数据库的连接，以生成图片文件。表 A 总结了这些属性和方法的作
用。当然，根据项目的需要，可以在类里加入更复杂的功能。
表A: 在ActiveX动态链接库里的属性和方法
属性/方法 作用
DbName 打开数据库连接所需的数据库名称。
TableName,
NameOfImageColumn, 打开记录集所需要的信息。
NameOfImageTypeColumn,
NameOfImageIdColumn
ImageFile (只读) 把图片文件的名称和位置返回给容器。
OpenConnection (方法) 打开数据库连接。
CreateTemplateImageFile (方法) 从数据库提取图片数据，并把它保存到目录里。
在类里还有其它的私有子程序，用来初始化类、终止类、打开记录集、建立图片文件，以及处理可能的错误。
注意微软活动数据对象ADO1.5(现在为2.0)被用来连接SQL数据库。也可以使用其它数据访问方法，比如远程数据对象RDO。
在这个项目里，必须使用ADO。操作方法是，单击项目（Project）菜单，然后选择引用（References）菜单 项。在引用对
话框里，选中微软ActiveX Data Objects 1.5 库，然后单击确定（OK）。
在列表 B里，列出了类ImageLoader 完整源代码。类里使用的变量定义都在代码内部给出，还有其它注释，帮助理解上下
文。
列表 B:类 ImageLoader 的完整源代码
Private mAdoConn As New ADODB.Connection
Private mAdoRst As New ADODB.Recordset
Private mstrDbName As String
Private mstrTableName As String
Private mstrImageColumnName As String '图片字的名称。
Private mstrImageTypeColumnName As String '图片类型字段的名称。
Private mstrImageIdColumnName As String '图片ID字段的名称。
Private mstrFileName() As String '数组，里面包含文件名和路径。
Private mlngImageId() As Long '数组，里面包含图片ID
Private mlngNumberOfFiles As Long
Const BLOCKSIZE = 102400
Public Property Let DbName(ByVal strVal As String)
mstrDbName = strVal
End Property
Public Property Let TableName(ByVal strVal As String)
mstrTableName = strVal
End Property
Public Property Let NameOfImageColumn(ByVal strVal As String)
mstrImageColumnName = strVal
End Property
Public Property Let NameOfImageTypeColumn(ByVal strVal As String)
mstrImageTypeColumnName = strVal
End Property
Public Property Let NameOfImageIdColumn(ByVal strVal As String)
mstrImageIdColumnName = strVal
End Property
Public Property Get ImageFile(ByVal ImageId As Integer) As String
Dim intPos As Integer
Dim blnFindId As Boolean
Dim i As Integer
blnFindId = False
For i = 0 To mlngNumberOfFiles - 1
If mlngImageId(i) = ImageId Then
intPos = 5 + Len(ImageId) + 3
Ima
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
