第三方组件导入报错，WHY？急用！！在线等待

gpo2002

我封装了Indy9的IdFTP组件，做成了ActiveX Dll
在VB里面测试通过。
但是在导入X3平台执行bat文件的时候，报错。
Runtime error 217 at 0049433A

我是按照图片版导入第三方控件一步步操作的。

另外：
直接写成Delphi组件，在Delphi能成功调用，
但是导入X3平台执行test.bat时也同样报错。
错误同上。

gpo2002

VB测试代码
On Error Resume Next

Dim FTP As New MyFTP
Dim lsUpFile As String

Text1 = Trim(Text1)
lsUpFile = Text1
If ("" = Dir(lsUpFile)) Or (Err.Number <> 0) Then
   MsgBox "测试用的上传文件不存在！"
   Exit Sub
End If

FTP.IniEvrp
FTP.Host = "10.112.49.151"
FTP.User = "User"
FTP.Password = "pwd"
FTP.Port = 22
FTP.OpenFTP
MsgBox "当前目录：" + FTP.GetCurDir
FTP.PutFile "/", "up.rar", lsUpFile, True
MsgBox "Up OK"
FTP.GetFile "/", "up.rar", "C:down.rar", True
MsgBox "Down OK"
FTP.CloseFTP
FTP.UnIniEvrp

--------------------
test.bat
--------------------
delphiimporter "MyFTPCOM_TLB.pas" MyFTPdll.dll -pl -pb -DMSWINDOWS;VER140;D3;D4;D5;D6;WIN32 -u%cd%;%cd%ImpSrc;%cd%lib -cMyFTP.ipr -o%cd%lib
pause

MyFTPCOM_TLB.pas由D6根据dll自动生成

--------------------
MyFTP.ipr
--------------------

zfang

楼主，你的delphi是什么版本？是不是delphi有问题呀

gpo2002

delphi6.0(Build 6.240) Update Pack 2

zfang

我用你1楼的dll导入到平台后，没什么问题。
看图

jiahaiming

可能是你的delphi有问题了。你看下导入第三方控件的手册，faq部分有说明。
重装下delphi或者换台电脑试试吧。

gpo2002

我直接从http://www.justep.com/ftp/Busine ... r下载导入工具
又换了个计算机测试，还是一样报错，怪了。

zfang  ： 能不能把你生成的文件直接发给我？QQ：254221768

zfang

已经qq传给你。请楼主记得反馈。