请教VFP程序自动更新升级的问题2
我在论坛里看过红雨老师关于FTP上传和下载的帖子,现想做一个自动检测升级程序。根据红雨老师的代码我在VFP9的环境中运行时,InternetOpen和InternetConnect都能返回非零值,但是FtpGetFile返回就为零,请指导,我是菜鸟。hOpen = InternetOpen (‘VFP’, INTERNET_OPEN_TYPE_DIRECT,chr(0), chr(0), 0)
hFtpSession = InternetConnect(hOpen, '127.0.0.1',0,strUser,strPwd,3, 0, 0)
lnResult = FtpGetFile(hFtpSession, lpszRemoteFile, lpszNewFile,0, 128, 1,0)
lpszRemoteFile = '项目3.exe'
lpszNewFile = 'G:\项目3.exe'