关于myFll中的FTP下载问题?
我用下面的方法测试FTP下载,我发现个问题,就是我运行下面的程序1次成功后,我把FTP服务器中的文件删除掉,再次运行,竟然还能下载成功?我把FTP服务器重新关闭后再启动,也是能?但是,只要我把VFP退出了,再进VFP后再运行程序,就能提示找不到文件了。怪了,怎么会这样?CLEAR
cFilePath=LEFT(SYS(16),RAT("\",SYS(16)))
cFileName=SYS(16)
SET DEFA TO (cFilePath)
Set Library To myFll
*方法1
hFtp=FtpConnect("192.168.1.212","ftp","123456",21)
If hFtp==""
MessageBox("无法连接ftp服务器")
Return
EndIf
If not FtpFOpen(hFtp,"ddd.jpg") &&打开文件
MessageBox("无法打开指定文件!")
Else
Try
cStr=""
Do while .t.
cTmp=FtpFRead(hFtp,1024) &&以1024为单位读取
If cTmp ==""
?"Ok"
Exit
EndIf
cStr = cStr + cTmp
EndDo
StrToFile(cStr,"ddd.jpg")
Catch
MessageBox("读取过程发生错误!")
EndTry
FtpFClose(hFtp) &&关闭文件
EndIf
FtpDisconnect(hFtp)
*方法2
?FtpDownFile("192.168.1.212","ddd.jpg","ddd.jpg")
Set Library To