在VFP中实现程序自动升级

在VFP中实现程序自动升级

来自：http://huanqiu.51.net/VFP/26.htm

在开发和使用C/S工作方式的程序时，经常会遇到程序升级的问题，以前经常是用人工方式拷贝升级，这在网络变得日益庞大时显得十分烦琐。能不能像许多网络程序一样，在程序更新时自动更新本地程序呢？笔者经过两天时间，参考了一些资料，在VFP下实现了程序的自动升级功能。基本思路是通过升级程序自动从指定的FTP服务器中下载升级文件来更新程序。程序的基本运行环境：VFP7+Win98(Win2000)，服务端：FTP服务器，程序运行正常。对于VFP5以上程序应该可以运行，但没有测试。在其他语言下实现方法应该是相同的。

第一步

    判断程序是否需要升级。最简单的方法是在程序中设定一个版本常量，在程序启动时和远端库中设定的程序最新版本号进行比较。如果比远端库中的版本号旧，则执行升级程序。由于正在运行的程序是不能覆盖的，因此需要一个单独的升级程序来进行升级工作。假定此程序的名字是update.exe，也用VFP编译，则在主程序中须通过以下方法运行此升级程序：

    DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER , STRING , STRING , STRING , STRING ,INTEGER

    = SHELLEXECUTE(0,0,'update.exe',0,0,1)

    同时用quit命令来退出主程序。

第二步

    利用升级程序进行更新。主要升级的程序如下(在使用中需要根据实际情况修改以下程序中用中文说明的地方。为了美观和实际使用的方便，可以建立一个表单，来实现升级服务器的选择、用户名和密码的输入)。

    #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     && &H10000000

    #Define INTERNET_FLAG_FROM_CACHE 16777216 && &H1000000

    #Define INTERNET_FLAG_OFFLINE 16777216

    #Define INTERNET_FLAG_CACHE_IF_NET_FAIL 65536 　  && &H10000

    #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    && 0x00000080

    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 = ""var1""

    sProxyName = Chr(0)

    sProxyBypass = Chr(0)

    lFlags = 0

    hOpen = InternetOpen (sAgent, INTERNET_OPEN_TYPE_DIRECT,;

    sProxyName, sProxyBypass, lFlags)

    If hOpen = 0

    =MESSAGEBOX(""找不到库 WinInet.Dll 的入口""，16，""  警告"")

    Return

    Endif

    *在此修改自己的FTP服务器数据

    strHost = ""ftp.abc.com""  &&存放升级文件的FTP服务器地址

    strUser = ""user""  &&升级的FTP用户名

    strPwd  = ""1111""  &&FTP用户密码

    hFtpSession = InternetConnect (hOpen, strHost,;

    INTERNET_INVALID_PORT_NUMBER,;

    strUser, strPwd,;

    INTERNET_SERVICE_FTP, 0, 0)

    If hFtpSession = 0

    = InternetCloseHandle (hOpen)

    =MESSAGEBOX(""找不到指定的服务器""，16，""  警告"")

    Return

    Endif

    *以下设置FTP的路径和文件名

    lpszRemoteFile = ""/aaa.exe""           && FTP上的路径和文件名

    lpszNewFile = ""./aaa.exe""          && 下载到本地的路径和文件名，默认在同一目录中

    fFailIfExists = 0        && 如果此文件已经存在，直接进行覆盖，不提问

    dwContext = 0

    lnResult = FtpGetFile (hFtpSession, lpszRemoteFile, lpszNewFile,;

    fFailIfExists, FILE_ATTRIBUTE_NORMAL, FTP_TRANSFER_TYPE_ASCII,;

    dwContext)

    = InternetCloseHandle (hFtpSession)

    = InternetCloseHandle (hOpen)

    If lnResult # 1

    =MESSAGEBOX(""升级失败！请检查用户名和密码是否正确。""，16，""  警告"")

    ELSE

    =MESSAGEBOX(""升级成功！请退出升级程序。""，64，""  提示"")

    thisform.Release      &&升级成功可自动离开表单

    Endif

    Return

第三步

使用和调用升级程序相同的方法，运行主程序退出升级程序，完成程序的升级过程。