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

注意微软活动数据对象ADO1.5(现在为2.0)被用来连接SQL数据库。也可以使用其它数据访问方法，比如远程数据对象RDO。在这个项目里，必须使用ADO。操作方法是，单击项目（Project）菜单，然后选择引用（References）菜单 项。在引用对话框里，选中微软ActiveX Data Objects 1.5 库，然后单击确定（OK）。 :t1:+>>ha  
z1WC&Y  
在列表 B里，列出了类ImageLoader 完整源代码。类里使用的变量定义都在代码内部给出，还有其它注释，帮助理解上下文。 8kZgU59  
Spw}Av^-  
列表 B:类 ImageLoader 的完整源代码 ,a,[tyw3  
V*CWjK1~  
Private mAdoConn As New ADODB.Connection vw&_M  
Private mAdoRst As New ADODB.Recordset +Tj6%HV  
Private mstrDbName As String GZ`TC+  
Private mstrTableName As String 62 UyC7+  
Private mstrImageColumnName As String '图片字的名称。 s|'c2z8-v  
Private mstrImageTypeColumnName As String '图片类型字段的名称。 @)@\|`  
Private mstrImageIdColumnName As String '图片ID字段的名称。 FLee)i  
Private mstrFileName() As String '数组，里面包含文件名和路径。 o1Z]M  
Private mlngImageId() As Long '数组，里面包含图片ID .:fezG  
Private mlngNumberOfFiles As Long &V:9IUo  
Const BLOCKSIZE = 102400 .X!y:U  
u{2'#kF/ ,  
RtRY+~T;x  
Public Property Let DbName(ByVal strVal As String) _X\vJru]  
mstrDbName = strVal R)y~Bm38  
End Property x
stwPv  
Rl1#[Ra$  
Public Property Let TableName(ByVal strVal As String) `OS6tu9"I@  
mstrTableName = strVal E oFc Y$,;  
End Property ,EzD{*%FXU  
sKt%@$dBJ  
Public Property Let NameOfImageColumn(ByVal strVal As String) 8@_{]7R  
mstrImageColumnName = strVal 1h8KwAkV  
End Property `lW  
Mnq%T'  
Public Property Let NameOfImageTypeColumn(ByVal strVal As String) "H*>Wb}  
mstrImageTypeColumnName = strVal ts U8_1  
End Property iP)Q"R(Nn  
:QI%krre  
Public Property Let NameOfImageIdColumn(ByVal strVal As String) BJ,:fD^[  
mstrImageIdColumnName = strVal 6O0;(;   
End Property 9$ad#$&(  
74aVp#;y  
Public Property Get ImageFile(ByVal ImageId As Integer) As String )jSP]'))  
Dim intPos As Integer \*f*.7  
Dim blnFindId As Boolean _OcR5-,i  
Dim i As Integer Xcs;,s_ y  
CSdAa~RQ  
blnFindId = False _uwJJ@~^  
For i = 0 To mlngNumberOfFiles - 1 @l.UOPs  
  If mlngImageId(i) = ImageId Then xE[`*Z  
    intPos = 5 + Len(ImageId) + 3 .~*q  
    ImageFile = Right(mstrFileName(i), intPos) 'reformat the location of file. 5Qr'3M8  
    blnFindId = True tW9~T8=@  
  End If }{[xd$I  
Next i 7gzwd3#  
$
"&X/:yL  
If blnFindId = False Then TGh(:9E  
  Err.Clear 1LoOXn$lZ  
  Err.Raise vbObjectError + 23, "Get ImageFile", "Can't find image file!" R;}-8tQ X  
End If s.0LUw~Si  
E VYQ>bd  
End Property Y(3]@1vtk  
|SFSHkf9  
" Z0:<B3&  
Public Sub OpenConnection() LH??U$_{  
'********************************************************** p85[X6W|  
'作用：打开数据库连接。 q"ay.m  
'********************************************************** &u^m^B Br  
FoQ+swRJ  
On Error GoTo Error_handler ^ ->WAy0+  
If mstrDbName = "" Then GoTo Error_handler aT]Atd8  
If mAdoConn.State = adStateOpen Then mAdoConn.Close 9T]27}P  
mAdoConn.ConnectionString = "DRIVER={SQL Server};SERVER=(local);UID=sa;PWD=;WSID=JIA;DATABASE=" & mstrDbName @:4U\ Pc,  
mAdoConn.ConnectionTimeout = 15 .XO:6,{G  
mAdoConn.Open
ti{NgEH"  
Exit Sub w,x b<  
(28O#  
Error_handler: \ [mUx0
  
Call HandleError mg8yB\$  
End Sub ,X#v  
1#(: vz  
Public Sub CreateTempImageFile(ByVal ImageId As Integer) V"jZe(NZ  
Dim strImageType As String 3@8pSA2  
Dim i As Integer %7M70no`C  
'********************************************************** 1PH15g@  
'作用：打开记录集，提取二进制数据，并把数据存入文件。注意文件名使用图片ID生成。 I=I&$T*0/  
'输入：图片ID。 vY> &|1L  
'********************************************************** E(bt*YU>M  
If mAdoConn.State = adStateClosed Then Exit Sub _WIq$*/_L  
+/zxfV  
Call OpenRecordset(ImageId) 7O :]X1o  
['~77gE~  
If mAdoRst.State = adStateClosed Then Exit Sub ew
xUq*  
tK^o K]  
On Error GoTo Error_handler o %{ 6z  
^9'v~  
For i = 0 To mlngNumberOfFiles - 1 hgpFE1LD/  
  '检测图片文件是否已经存在。 3B vCnbU_  
  If mlngImageId(i) = ImageId Then Exit Sub s>L{&]0m|  
Next i V|V;tf5.E  
v[#/l?%9"  
mlngNumberOfFiles = mlngNumberOfFiles + 1 5$b< L"/  
ReDim Preserve mstrFileName(mlngNumberOfFiles) '改变数组大小。 ukOs]5rfb  
ReDim Preserve mlngImageId(mlngNumberOfFiles) '改变数组大小。 Nx(Zm4Tt  
mlngImageId(mlngNumberOfFiles - 1) = ImageId <p\-P4
 
strImageType = mAdoRst.Fields(mstrImageTypeColumnName) ' 取得图片类型。   ~QIBwG
+ ,  
mstrFileName(mlngNumberOfFiles - 1) = App.Path & "\images" & _ Z)`if0  
  "\image" & LTrim(Str(ImageId)) & "." & strImageType '取得图片文件名称和位置。 @QU ch:?  
Call ReadFromDB(mAdoRst.Fields(mstrImageColumnName), _ H (w]#  
  mstrFileName(mlngNumberOfFiles - 1), AdoRst.Fields(mstrImageColumnName).ActualSize) a&cO0 i Y  
Exit Sub rloo#>xF%  
X:[w6m(_J  
Error_handler: FAicz'  
Call HandleError UmG/@HCwp  
'8sgCO_  
End Sub S.vh,f:  
@&5UJ  
Private Sub OpenRecordset(ByVal ImageId As Integer) Gt2#h)[ ?  
Dim SqlText As String 4}v9%ZC  
'********************************************************** s  %'  
'作用：打开记录集。 %<z3X_rD  
'输入：图片ID。 ;!/x.!'-+  
'********************************************************** YyUSLD!Up  
]@Fw-XK  
On Error GoTo Error_handler l4)R50[O  
If mAdoRst.State = adStateOpen Then mAdoRst.Close oV:0Z~yc3  
SqlText = "SELECT " & mstrImageColumnName & "," & _ o0j%0qP  
  mstrImageTypeColumnName & " FROM " & mstrTableName & _ ,WT<V-t-c  
  " WHERE " & mstrImageIdColumnName & "=" & ImageId -nny$^]  
VIobAd`  
Set mAdoRst.ActiveConnection = mAdoConn xLse^Gik  
mAdoRst.Open SqlText, , adOpenStatic, adLockReadOnly 'Open recordset. RQ&%

hr{  
/a >-`L  
Exit Sub ."r!/~6bF  
I$,
"h#  
jZ|pn0]5M  
Error_handler: (J>4`hzN  
Call HandleError Ky%BU(`  
End Sub > \73@C  
flnn2V?%  
Private Sub ReadFromDB(fld As ADODB.Field, ByVal DiskFile As String, _ u/x/i+,K[z  
            FldSize As Long) V9Tiv  
Dim NumBlocks As Integer b !=F.|Q  
Dim LeftOver As Long B
ijEi9a&  
Dim byteData() As Byte   '字节数组，用于长的可变二进制数据LongVarBinary。 io1RR>HE
  
Dim strData As String   '字符串，用于长的可变二进制数据LongVarChar。 ysxtdU.c  
Dim DestFileNum As Integer +
fR1 F}  
Dim pic As Variant 9YmNV/%+@t  
Dim i As Integer OE)iBZ3  
'********************************************************** ZNpBu?[]O  
'作用：提取二进制数据并把数据放入文件。 Ij z `  
'输入：图片字段，文件名/位置和数据尺寸。 -;W7~ r[K  
'********************************************************** 1q1x &  
z&-;Nh]"@m