在VFP中实现FTP远程通信

目前，VFP仍然受到许多程序员的喜爱，尤其是在中小型单机和局域网的前端应用软件开发方面。下面介绍如何在VFP中使用三个函数FCREATE()、FWRITE()和FCLOSE()实现FTP远程文件传输。

fcreate (cFileName [，nfileattribute])的作用是创建并打开一个底层文件，其中参数cFileName指定要创建的文件的名称，文件名前可以添加一个驱动器指示符和路径。如果没有包含驱动器指示符或路径，将在默认目录下创建文件。NFileAttribute指定文件的属性。可选值为0…7，0为读写模式(默认值)。参见VFP对他人的随意帮助。返回值是数值，成功创建返回文件句柄号，可以赋给一个内存变量，这样其他低级文件函数就可以使用这个内存变量来访问文件，如果不能创建文件就返回-1。

FWRITE (cfilehandle，cExpression [，ncharacterswritten])的作用是将一个字符串写入一个由低级文件函数打开的文件或通信端口，其中参数nfilehandle是文件句柄号或写入字符串的通信端口，cExpression指定FWRITE()函数写入一个字符表达式。NCharatersWritten是文件或通信端口的cExpression中写入的字符数，返回值为0，表示操作失败。

FCLOSE(，nFileHandle)的作用是刷新和关闭低级文件函数打开的文件或通信端口。

下面列出了名为MYftp()的用户定义函数的源代码。这个函数首先调用现有的拨号连接，在用户确定线路连接后，它创建一个ftp连接用于文件传输。完成后，它关闭FTP通信端口，并提示用户断开拨号连接。

函数myftp

* * *呼叫拨号网络中名为“我的连接”的拨号连接。如果用户是专线或局域网连接，删除这一段。

运行/n rundll32.exe rnaui.dll拨我的连接

如果messagebox('通信线路是否已连接，文件传输是否已开始？',1)=2

等待风【取消文件传输，请断开连接线路！[英语泛读材料

返回-1

结束条件

* * *创建FTP连接

fp=fcreate("ftpcp "，0)

如果fp=-1

wait wind[无法创建FTP连接，请检查网络配置] nowait

返回-1

结束条件

*** FTP用户登录，192.168.0.1是远程FTP服务器的IP。

ss =[open 10 . 168 . 0 . 1]+chr(13)+chr(10)+[ftpusrname]+chr(13)+chr(10)+[usrpasswd]+chr(13)+chr(10)

if fwrite(fp，ss)=0