| 网站首页 | 业界新闻 | 群组 | 人才 | 技术文章 | 下载频道 | 博客 | 代码贴 | 编程论坛
绝地游戏外挂辅助教学千里之行 始于足下
共有 293 人关注过本帖
标题:求从ftp下载文件源代码?
只看楼主 收藏
su0527
Rank: 2
等 级:论坛游民
帖 子:212
专家分:45
注 册:2015-1-10
结帖率:96.55%
  已结贴   问题点数:50  回复次数:7   
求从ftp下载文件源代码?


********说明:下面的代码能正常连接ftp,但总是下载失败,敬请帮忙分析一下*********

Clea
* lAccessType - some values
#Define INTERNET_INVALID_PORT_NUMBER  0
#Define INTERNET_OPEN_TYPE_DIRECT     1
#Define INTERNET_OPEN_TYPE_PROXY      3
#Define INTERNET_DEFAULT_FTP_PORT     21

* lFlags: only a few
#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

* registry access settings
#Define INTERNET_OPEN_TYPE_PRECONFIG  0
#Define FTP_TRANSFER_TYPE_ASCII       1
#Define FTP_TRANSFER_TYPE_BINARY      2

* type of service to access
#Define INTERNET_SERVICE_FTP     1
#Define INTERNET_SERVICE_GOPHER  2
#Define INTERNET_SERVICE_HTTP    3

* file attributes
#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
* you are free to choose any name, say "John Dow"
* server-side variable $AGENT is the target
sAgent = "hongyu"

sProxyName = Chr(0)        && I have no proxy
sProxyBypass = Chr(0)    && so there is nothing to bypass
lFlags = 0                && no flags used

* initialize access to Inet functions
hOpen = InternetOpen (sAgent, INTERNET_OPEN_TYPE_DIRECT,;
    sProxyName, sProxyBypass, lFlags)

If hOpen = 0
    ? "找不到库 WinInet.Dll 的入口"
    Return
Else
    ? "Wininet 句柄: " + LTRIM(STR(hOpen))
Endif

* connection parameters - you better put your data
strHost = "121.42.122.244"
strUser = "qxu1649560463"
strPwd  = "su6683111"

* connecting to the FTP
hFtpSession = InternetConnect (hOpen, strHost,;
    INTERNET_INVALID_PORT_NUMBER,;
    strUser, strPwd,;
    INTERNET_SERVICE_FTP, 0, 0)

If hFtpSession = 0
    * close access to Inet functions and exit
    = InternetCloseHandle (hOpen)
    ? "FTP " + strHost + " 无效"
    Return
Else
    ? "连接到 " + strHost + " as: [" + strUser + ", *****]"
    ? "FTP 连接句柄: " + LTRIM(STR(hFtpSession))
Endif


* downloading a file from the FTP
* no check whether the target file exists
lpszRemoteFile = "myfolder/test"        && if it still exists
lpszNewFile    = "d:"    && check the destination folder
fFailIfExists  = 0        && do not stop if the target already exists
dwContext      = 0
lnResult = FtpGetFile (hFtpSession, lpszRemoteFile, lpszNewFile,;
    fFailIfExists, FILE_ATTRIBUTE_NORMAL, FTP_TRANSFER_TYPE_ASCII,;
    dwContext)

If lnResult # 1
    ? "下载文件失败!"
Endif

* close handles
= InternetCloseHandle (hFtpSession)
= InternetCloseHandle (hOpen)
Return        && main
附件: 您没有浏览附件的权限,请 登录注册
2017-09-24 17:57
吹水佬
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:117
帖 子:4834
专家分:19862
注 册:2014-5-20
  得分:18 
lpszNewFile = "d:" 只得个盘符,这个是下载到本地的文件名。
试试改为:
lpszNewFile = "d:\test.txt"
2017-09-24 20:05
吹水佬
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:117
帖 子:4834
专家分:19862
注 册:2014-5-20
  得分:0 
附件: 您没有浏览附件的权限,请 登录注册
2017-09-24 20:09
su0527
Rank: 2
等 级:论坛游民
帖 子:212
专家分:45
注 册:2015-1-10
  得分:0 
回复 3楼 吹水佬
更改后测试也不行,老问题了。
2017-09-24 21:45
吹水佬
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:117
帖 子:4834
专家分:19862
注 册:2014-5-20
  得分:0 
以下是引用su0527在2017-9-24 21:45:31的发言:

更改后测试也不行,老问题了。

又被拒绝了吧
在其他机上(或不同操作系统环境)试过没有?
最好在裸机系统上试,先排除第三方引起的问题。
2017-09-25 06:26
su0527
Rank: 2
等 级:论坛游民
帖 子:212
专家分:45
注 册:2015-1-10
  得分:0 
回复 5楼 吹水佬
需要从ftp下载文件,做软件升级,遇到这个困难了。过不去,很久了!
2017-09-25 09:35
厨师王德榜
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:54
帖 子:380
专家分:1302
注 册:2013-2-16
  得分:18 
前一段时间你不是说用了木瓜的库吗?就用那个也很好。
2017-09-25 16:29
su0527
Rank: 2
等 级:论坛游民
帖 子:212
专家分:45
注 册:2015-1-10
  得分:0 
回复 7楼 厨师王德榜
Set Library To myfll

    hFtp=FtpConnect("121.42.122.244","qxu1649560463","su6683111",21)
    If hFtp==""
        ?"无法连接ftp服务器"
    Else
        ?"成功连接ftp服务器"
    EndIf

    lnResult=FtpDownFile("121.42.122.244","myfolder/test.txt","d:\test.txt")
    If lnResult=.t.
        ? "下载文件成功!"
    Else
        ? "下载文件失败!"
    EndIf
   
    FtpDisconnect(hFtp)
   
Set Library To

*****运行显示:成功连接ftp服务器;下载文件失败!*****

2017-09-26 07:31







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.071329 second(s), 8 queries.
Copyright©2004-2017, BCCN.NET, All Rights Reserved