关于调用自己写的组件,总有问题,请高手指点,给50分!

zuxian 2001-07-31 08:16:28
这是我用VB写的DLL:(工程名是unzip ,工程文件名是:工程1.vbp,模块名class1)

Dim xceedzip1 As XceedZip '这是调用OCX控件

Function unzip(filename As String, path As String)
xceedzip1.ZipFileName = filename
xceedzip1.ExtractDirectory = path
unzip = xceedzip1.Extract(0)
End Function

我在ASP中这样写:

<%

dim faint
set faint=server.createobject("unzip.class1")
index= faint.unzip("d:\xceedzip\test.zip","d:\xceedzip\123")
set faint=nothing
%>


错误如下:
unzip error '800a005b'

未设置对象变量或 With block 变量

/site/test.asp, line 5



请指点!急等用
...全文
47 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
ExitWindows 2001-08-01
up
回复
zuxian 2001-08-01
1。注册了 ,这个我肯定
2。用dim xceedzip1 as new 时VB里面给出的可选项没有那个OCX控件

该怎么办?

我把他改成:

Dim xceedzip1 As XceedZip '这是调用OCX控件

Function unzip(filename,path)
set xceedzip1.ZipFileName = filename
set xceedzip1.ExtractDirectory = path
unzip = xceedzip1.Extract(0)
End Function

这样后,又有错误:
“未设置对象名”


回复
karma 2001-07-31
1.make sure you have registered your component using "regsvr32 unzip.dll"

2.Dim xceedzip1 As New XceedZip
回复
ExitWindows 2001-07-31
up
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2001-07-31 08:16
社区公告
暂无公告