如何在VFP中编程实现从UNIX主机上自动下载文件?

99168161

在同一局域网中有一台WINXP机器,装有VFP6.0,而别一台机器是UNIX系统.
现想在VFP中编程,实现从UNIX主机上自动下载文件,找了许多资料都没解决.
请大侠帮助为谢!

[ 本帖最后由 CNL 于 2005-11-18 09:35 编辑 ]

snow888

应该可以,具体的实现不记得了,好象还要做通讯组件,通讯组件 用 vc++ 比较好一些。

99168161

虽然没解决,但要谢谢你!

柳随风

用API,FTP.

hude

我用的一个
local cFileName,cDirName,cExpression
       local strftpUserID ,strftpPassWord ,cUpFtpFileName ,ftpIp
       local owsh
       cFileName = fullpath(curdir())+'ftp.txt'    && 生成一个包含ftp命令的文件
       && strftpUserID 为ftp服务器登录用户
       strftpUserID="root"
       cExpression = strftpUserID+chr(13)+chr(10)                  && 用户名
       STRTOFILE(cExpression,cFileName,.F.)
       && strftpPassWord 为ftp服务器登录密码
       strftpPassWord="root"
       cExpression = strftpPassWord+chr(13)+chr(10)                && 密码
       STRTOFILE(cExpression, cFileName , .T.)
       cExpression='cd /tmp'+chr(13)+chr(10)             && 进入目标目录
       STRTOFILE(cExpression, cFileName , .T.)
       && cUpFtpFileName 为要下载或上传的文件
       cUpFtpFileName=abc.sh
       cExpression = 'get'+" "+cUpFtpFileName+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地址
      ftpip="192.168.0.2"
      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.为程序执行完后才会停止
        else
            owsh.run("command.com /c ftp -s:"+cFileName +" "+ftpIp,0,.t.)  &&0 为运行时窗口类型，隐藏,.T.为程序执行完后才会停止
     endif
     release owsh
     !del ftp.txt

99168161

高手呀!多谢!太热心了.
我去试试,

xiechq

好像有个什么powertcp

林三少

高手，这帖子我找了很长时间了，还有更详细的吗

hude

而不是写到代码里面

wolfhanyong

甲午耻，犹未雪。国人恨，何时灭。驾长车，踏破富士山缺。壮志饥餐日虏肉，
笑谈渴饮倭奴血。待从头，收拾旧山河，朝天阙。
把日本人干掉!!!!