PowerBuilder FTP示例代码

PB 里的 FTP 操作真不是难事，用起来还挺顺手的。pFTP 库的接口比较简单，连接、上传、下载都一条命令，逻辑清晰、代码也不啰嗦。如果你写 PB 项目，得时不时和服务器打交道，这段代码可以直接抄走用，省得你自己一点点摸索，效率高多了。

PB 的 FTP 用法其实跟别的语言差不多，无非就是连接服务器、设置传输模式、传文件，断个连接。你要注意的是，传文件前记得切换到Binary()模式，不然图片、压缩包什么的容易传坏。

下面这个例子比较实用，代码也够干净：

//导入 FTP 库
import lib "pFTP.dll"

//创建对象
pFTP ftp = Create pFTP()
ftp.Server = "ftp.example.com"
ftp.Username = "username"
ftp.Password = "password"
if ftp.Connect() then
  ftp.Binary()
if ftp.Put("本地路径", "远程路径") then
    MessageBox("上传成功!")
  else
    MessageBox("上传失败!")
  end if
if ftp.Get("远程路径", "本地路径") then
    MessageBox("下载成功!")
  else
    MessageBox("下载失败!")
  end if
ftp.Disconnect()
else
  MessageBox("连接失败!")
end if
Destroy ftp

这个写法适合做个小工具上传日志、同步文件之类的。权限、连接超时这些异常你最好也加点，别真上线了才发现出问题。

如果你打算搞自动化部署，或者公司有 FTP 服务器，这段代码可以帮你省不少事。想更强一点，也可以再封装下，加个进度条什么的，体验更好。