以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  ftp可以放在全局代码吗  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=183880)

--  作者:lxhmax
--  发布时间:2022/11/17 11:01:00
--  ftp可以放在全局代码吗
老师,这个FTP的定义可以放在全局代码吗?
Dim ftp1 As New FtpClient
ftp1
.Host="196.128.143.28"
ftp1
.Account = "foxuser"
ftp1
.Password = "138238110"

定义完之后我想在任意位置都能直接使用?

ftp1.DeleteEnabled =
False \'禁用删除文件按钮
ftp1.RenameEnabled =
False \'禁用重命名文件按钮
ftp1.RootDir =
"\\photo" \'设置根目录
ftp1.OpenManager()

--  作者:有点蓝
--  发布时间:2022/11/17 11:12:00
--  
可以的。不过个人不建议这样用
--  作者:lxhmax
--  发布时间:2022/11/17 11:14:00
--  
这个有什么坏处吗?


老师我放了之后有下面这个提示,要怎么修改?
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2022/11/17 11:21:00
--  
全局代码只能定义变量

Dim ftp1 As FtpClient

然后到AfterOpenProject事件设置属性

ftp1 = New FtpClient
ftp1.Host="196.128.143.28"
ftp1
.Account = "foxuser"
ftp1
.Password = "138238110"

在需要的地方比如按钮
ftp1.OpenManager()

--  作者:lxhmax
--  发布时间:2022/11/17 11:26:00
--  
好的,谢谢老师,为啥不建议这样做?有什么坏处吗?
--  作者:有点蓝
--  发布时间:2022/11/17 11:32:00
--  
1、容易产生冲突
2、会保持一个长连接,占用一个端口和连接数

--  作者:lxhmax
--  发布时间:2022/11/17 16:25:00
--  
好嘞,谢谢老师