|
#2
xzlxzlxzl2015-01-09 19:30
|
我需要写一个小程序，需要用到向ftp服务器上传图片文件的功能，我选择了使用inet控件，当图片比较小的时候，运行程序可以成功上传，可是一旦图片大一点，比如说有1m，则程序出现假死现象，最后退出，我看ftp服务器上的图片没有接受完，所以打开图片只能看到半截图片，这是为什么啊，请师兄帮我解决一下，我的代码是这样的：Private Sub Command1_Click()
Dim filename, putfile As String
'设置FTP的地址、协议类型、用户名、密码
Inet1.URL = "ftp://123.56.85.249" 'FTP的地址
Inet1.Protocol = icFTP
Inet1.RemotePort = 21
Inet1.UserName = "mmm"
Inet1.Password = "811118"
Inet1.Execute , "put E:\图片\穴位图\腹部穴位.jpg \腹部穴位.jpg"
Do While Inet1.StillExecuting
DoEvents
Loop
Inet1.Execute , "close"
Inet1.Execute , "quit"
End Sub
请大家不要用自己的机器做服务器测试，用我代码中的这个远程服务器测试，小文件可以成功上传，但1m的图片就不能了，这是为什么啊？