用VB6做一个简单的文件上传组件(二)
敬业的IT人
互联网
佚名
2008-4-14 17:31:44
接着上回，新建一个ActiveX DLLs类型的工程，并将缺省的工程名由“Project1”改为“Songbird”（当然你也有权不这样改，呵呵），将缺省的类名由“Class1”改为“FileUp”，至于为什么要这样改，以后你便知道了。
要想实现读取上传文件字节数据的功能，势必要涉及到Request对象，可是在VB中该怎么做呢？简单，只需要在工程中加入适当的类型库的参考即可。点击Project菜单选择References，在随之出现的对话框中选中Microsoft Active Server Pages Object项以及Microsoft Transaction Server Type Library项，单击OK，便可以在VB环境中象写ASP代码一样操纵Request、Response等对象了，你会感到非常亲切的。
以下便是具体的程序代码：
Public Function SaveFile(Pathname As String) As String
OnError Goto ErrorCode
Dim objContext As ObjectContext
Dim objRequest As Request
'ObjectContext的使用类似于ASP中的Application和Session对象，
'可以用关键值对其内部的一些特定的对象实例进行访问，
'如ObjectContext("Response")
Set objContext=GetObjectContext()
Set objRequest=objContext("Request")
'以下的一段代码与前文的脚本程序类似，
'只不过对变量的定义要严格些
Dim FormData() As Byte,CLStr,DivStr
Dim DataStart As Long,DataSize As Long
DataSize=objRequest.TotalBytes
Redim FormData(DataSize-1)
FormData=objRequest.BinaryRead(DataSize)
CLStr=ChrB(13) & ChrB(10)
DataStart=InStrB(FormData,CLStr & CLStr)+4
DivStr=LeftB(FormData,InStrB(FormData,CLStr)-1)
DataSize=InStrB(DataStart+1,FormData,DivStr)-DataStart-2
FormData=MidB(FormData,DataStart,DataSize)
'创建一个二进制文件并将FormData写入其中
Open Pathname For Binary As 1
Put #1,,FormData
Close #1
SaveFile="OK!"
Exit Function
ErrorCode: SaveFile=Err.Description
End Function
大功告成！剩下的便是怎样使用这段程序了。
点击File菜单，选择Make Songbird.dll，系统便会将这段程序编译成DLL文件并自动在本机进行注册。除非你直接在服务器上开发，否则应将此文件拷贝到NT服务器的System32目录下并运行“regsvr32 Songbird.dll”命令进行注册。注册成功之后，在负责接受上传文件的那个ASP文件中这样使用该组件：
要想实现读取上传文件字节数据的功能，势必要涉及到Request对象，可是在VB中该怎么做呢？简单，只需要在工程中加入适当的类型库的参考即可。点击Project菜单选择References，在随之出现的对话框中选中Microsoft Active Server Pages Object项以及Microsoft Transaction Server Type Library项，单击OK，便可以在VB环境中象写ASP代码一样操纵Request、Response等对象了，你会感到非常亲切的。
以下便是具体的程序代码：
Public Function SaveFile(Pathname As String) As String
OnError Goto ErrorCode
Dim objContext As ObjectContext
Dim objRequest As Request
'ObjectContext的使用类似于ASP中的Application和Session对象，
'可以用关键值对其内部的一些特定的对象实例进行访问，
'如ObjectContext("Response")
Set objContext=GetObjectContext()
Set objRequest=objContext("Request")
'以下的一段代码与前文的脚本程序类似，
'只不过对变量的定义要严格些
Dim FormData() As Byte,CLStr,DivStr
Dim DataStart As Long,DataSize As Long
DataSize=objRequest.TotalBytes
Redim FormData(DataSize-1)
FormData=objRequest.BinaryRead(DataSize)
CLStr=ChrB(13) & ChrB(10)
DataStart=InStrB(FormData,CLStr & CLStr)+4
DivStr=LeftB(FormData,InStrB(FormData,CLStr)-1)
DataSize=InStrB(DataStart+1,FormData,DivStr)-DataStart-2
FormData=MidB(FormData,DataStart,DataSize)
'创建一个二进制文件并将FormData写入其中
Open Pathname For Binary As 1
Put #1,,FormData
Close #1
SaveFile="OK!"
Exit Function
ErrorCode: SaveFile=Err.Description
End Function
大功告成！剩下的便是怎样使用这段程序了。
点击File菜单，选择Make Songbird.dll，系统便会将这段程序编译成DLL文件并自动在本机进行注册。除非你直接在服务器上开发，否则应将此文件拷贝到NT服务器的System32目录下并运行“regsvr32 Songbird.dll”命令进行注册。注册成功之后，在负责接受上传文件的那个ASP文件中这样使用该组件：
- 最新文章
- 使用ASP方便的建立自己网站的每日更新[04-14]
- 中文虚拟域名实现(1) (环境：中文NT)[04-14]
- 中文虚拟域名实现(2) (环境：中文NT)[04-14]
- 中文虚拟域名实现(3) (环境：中文NT)[04-14]
- 最简单的ASP聊天室（附源码）[04-14]
- 如何用ASP编写网站统计系统（四）[04-14]
- 相关文章
