VFP编程上传，下载阿里云服务器文件速度慢

Question

从阿里云服务器（CPU:2核，内存:4GB，带宽：1-5M）下载文件速度太慢，请看看我的下载程序有什么问题，并修改，另请给出上传文件到阿里云的程序代码，非常感谢！下面是我上传文件的程序。

**——————阿里云服务器，CPU:2核，内存:4GB，带宽：1-5M——————**

WAIT "正在链接网络，请等待......" WINDOW NOWAIT
#Define INTERNET_INVALID_PORT_NUMBER  0
#Define INTERNET_OPEN_TYPE_DIRECT     1
#Define INTERNET_OPEN_TYPE_PROXY      3
#Define INTERNET_DEFAULT_FTP_PORT     21
#Define INTERNET_FLAG_ASYNC             268435456   
#Define INTERNET_FLAG_FROM_CACHE        16777216  
#Define INTERNET_FLAG_OFFLINE           16777216
#Define INTERNET_FLAG_CACHE_IF_NET_FAIL 65536   
#Define INTERNET_OPEN_TYPE_PRECONFIG  0
#Define FTP_TRANSFER_TYPE_ASCII       1
#Define FTP_TRANSFER_TYPE_BINARY      2
#Define INTERNET_SERVICE_FTP     1
#Define INTERNET_SERVICE_GOPHER  2
#Define INTERNET_SERVICE_HTTP    3
#Define FILE_ATTRIBUTE_NORMAL    128  
    Declare INTEGER InternetOpen IN wininet;
        STRING sAgent, INTEGER lAccessType, STRING sProxyName,;
        STRING sProxyBypass, STRING  lFlags
    Declare INTEGER InternetCloseHandle IN wininet INTEGER hInet
    Declare INTEGER InternetConnect IN wininet;
        INTEGER hInternetSession, STRING  sServerName,;
        INTEGER nServerPort, STRING  sUsername,;
        STRING  sPassword, INTEGER lService,;
        INTEGER lFlags, INTEGER lContext
    Declare INTEGER FtpGetFile IN wininet;
        INTEGER hFtpSession, STRING  lpszRemoteFile,;
        STRING  lpszNewFile, INTEGER fFailIfExists,;
        INTEGER dwFlagsAndAttributes,;
        INTEGER dwFlags, INTEGER dwContext
sAgent = "hongyu"
sProxyName = Chr(0)        && I have no proxy
sProxyBypass = Chr(0)    && so there is nothing to bypass
lFlags = 0                && no flags used
hOpen = InternetOpen (sAgent, INTERNET_OPEN_TYPE_DIRECT,;
    sProxyName, sProxyBypass, lFlags)
If hOpen = 0
       Wait CLEAR 
       =messagebox("找不到库 WinInet.Dll 的入口，请联系客服人员 ！",64,"警告")
    Return
Else
ENDIF

*--------------------
strHost = "IP地址"
strUser = "用户名"
strPwd  = "登录密码"
*--------------------

hFtpSession = InternetConnect (hOpen, strHost,;
    INTERNET_INVALID_PORT_NUMBER,;
    strUser, strPwd,;
    INTERNET_SERVICE_FTP, 0, 0)

If hFtpSession = 0
    = InternetCloseHandle (hOpen)
       Wait CLEAR   
       =messagebox("FTP 远程服务器 无效，请联系客服人员 ！",64,"警告")
    Return
Else
Endif
fFailIfExists  = 0        && do not stop if the target already exists
dwContext      = 0
lnResult = FtpGetFile (hFtpSession, "/zxsj/11.xls", "d:\dmkjg.dbf",fFailIfExists, FILE_ATTRIBUTE_NORMAL, FTP_TRANSFER_TYPE_ASCII,dwContext) 
If lnResult # 1
    Wait CLEAR  
    =messagebox("下载文件失败,请联系客服人员 ！",64,"警告")
    ELSE
    Wait CLEAR   
    =messagebox("下载文件成功，最新数据已经下载！",64,'成功提示')
Endif
= InternetCloseHandle (hFtpSession)
= InternetCloseHandle (hOpen)
CLEAR DLLS

Answer 1

先不管程序，首先你这个才5m的宽带就不够，实际使用宽带更是达不到，程序优化的幅度有效，这个宽带才是瓶颈