用SQL Server为Web浏览器提供图像2

建立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