如何用VFP编写FTP文件传送器

VFP中执行FTP命令的一个简单方法 命令虽然简单，但功能却很强大。可惜都是在ftp环境中，对一般用户来说，让他们使用ftp命令是不现实的。因此，在vfp中，用编程的方法，运行所需的ftp命令，就很管用了。下面是我用了很久的一段代码，很实用，其功能是上传一个文件并利用ftp文件目录来判断是否上传成功。 至于要做其它事情，照着这个方法往下写就可以了。

local cFileName,cDirName,cExpression

local strftpUserID ,strftpPassWord ,cUpFtpFileName ,ftpIp

local owsh

cFileName = fullpath(curdir())+'ftp.txt' &&生成一个包含ftp命令的文件

cDirName = fullpath(curdir())+'dir.txt' &&显示ftp服务器文件目录的文件 if file(cDirName)

dele file (cDirName)

endif

&&strftpUserID 为ftp服务器登录用户

cExpression = strftpUserID+chr(13)+chr(10) &&用户名

STRTOFILE(cExpression, cFileName , .F.)

&&strftpPassWord 为ftp服务器登录密码

cExpression = strftpPassWord+chr(13)+chr(10) &&密码

STRTOFILE(cExpression, cFileName , .T.)

&&cUpFtpFileName 为要上传的文件

cExpression = 'put '+cUpFtpFileName+'

'+JUSTFNAME(cUpFtpFileName)+chr(13)+chr(10) &&上传文件

STRTOFILE(cExpression, cFileName , .T.)

cExpression = 'mdir '+JUSTFNAME(cUpFtpFileName)+'

'+cDirName+chr(13)+chr(10) &&返回器上传的文件目录

STRTOFILE(cExpression, cFileName , .T.)

cExpression = 'y'+chr(13)+chr(10)

STRTOFILE(cExpression, cFileName , .T.)

cExpression = 'bye'+chr(13)+chr(10)

STRTOFILE(cExpression, cFileName , .T.)

&&ftpIp为ftp服务器IP地址

owsh=createobject("wscript.shell")

if left(os(),10) == 'Windows NT' OR os()='Windows 5.00'

owsh.run("cmd /c ftp -s:"+cFileName +" "+ftpIp,0,.T.) &&0 为运行时窗口类型，隐藏,.T.为程序执行完后才会停止

Socket 编程的几个重要步骤

Socket 客户端编程主要步骤如下：

socket() 创建一个 Socket

connect() 与服务器连接

write() 和 read() 进行会话

close() 关闭 Socket

Socket 服务器端编程主要步骤如下：

socket() 创建一个 Socket

bind()

listen() 监听

accept() 接收连接的请求

write() 和 read() 进行会话

close() 关闭 Socket

---