点击或拖拽改变大小

CFtp.PutFile 方法

X#
在 FTP 服务器上存储文件。

命名空间：  VO
程序集：  VOInternetClasses (在 VOInternetClasses.dll 中) 版本：2.22 GA
语法
复制
 VIRTUAL METHOD PutFile(
	cLocalFile,
	cRemoteFile,
	lFailIfExists,
	nFlags
) AS USUAL CLIPPER
查看代码

参数

cLocalFile (Optional)
类型：__Usual
要发送到远程 FTP 服务器的本地文件的名称。
cRemoteFile (Optional)
类型：__Usual
包含要在远程 FTP 服务器上创建的文件的名称的字符串。如果未指定，<cLocalFile>将自动成为远程文件的名称。
lFailIfExists (Optional)
类型：__Usual
逻辑值，指示如果指定名称的远程文件已存在，方法是否应继续。 如果 lFailIfExists 为 TRUE，并且远程文件存在，PutFile() 方法失败。
nFlags (Optional)
类型：__Usual
控制函数将如何处理文件上传以及传输发生的条件的标志。应用程序应选择一个传输类型和任何控制文件缓存方式的标志。 传输类型可以是以下任何一个值： 应用程序可以使用以下任何一个或多个值来控制文件缓存：

返回值

类型：__Usual
如果成功则返回 TRUE；否则返回 FALSE。
备注
此方法处理与在本地读取文件并将其存储在FTP服务器上相关的所有必要过程。
示例
以下接收包含在 ftp.cai.com 的 X# 下载部分的所有文件的全面列表(00index.txt)：
X#
复制
 1FUNC TestGetFile()
 2    LOCAL oFTP AS CFtp
 3    LOCAL cFile AS STRING
 4
 5    oFTP := CFtp{"VO Sample FTP Agent"}
 6
 7    IF oFTP:ConnectRemote("ftp.cai.com", "anonymous", "Darth.Vader@starwars.com")
 8        cFile := "00index.txt"
 9        IF oFTP:SetCurDir("/pub/vo")
10            IF oFTP:GetFile(cFile)
11                IF File(cFile)
12                ? "File received: " + FPathName()
13                ENDIF
14            ELSE
15                __RaiseFTPError(oFTP)
16            ENDIF
17        ELSE
18            __RaiseFTPError(oFTP)
19        ENDIF
20    ENDIF
21
22    oFTP:CloseRemote()
23
24    RETURN
25
26STATIC FUNC __RaiseFTPError (oFTP AS CFtp) AS INT PASCAL
27    LOCAL cError AS STRING
28    LOCAL nRet AS INT
29
30    nRet := oFTP:Error
31
32    IF nRet > 0
33        cError := oFTP:ErrorMsg
34
35        IF SLen(cError) > 0
36            MessageBox(0, cError, "FTP Error", MB_OK)
37        ENDIF
38    ENDIF
39
40    RETURN nRet
参见