ММК пишет:
цитата: |
Как это вообще организавать? |
|
Вот так можно :)
#include "FiveWin.ch"
Function Main()
local oWin
SET PROCEDURE TO qftp
//SET PROCEDURE TO tsocket
//SET PROCEDURE TO tproxy
DEFINE WINDOW oWin ;
TITLE "Testic"
ACTIVATE WINDOW oWin ;
ON INIT FTPTest()
return nil
******************************
Static Function FTPTest()
******************************
local oFTP
Ferase("logftp.txt")
oFTP:=qFTPClient():New("85.30.228.77", 21, {|cMessage| Logfile("logftp.txt", {cMessage})},,, )
oFTP:lPassive := .T.
if oFTP:Connect()
MsgInfo("Успешное моединение с сервером " + oFTP:cServer + CRLF + oFTP:cServerIP + CRLF + oFTP:oSocket:ClientIP())
if oFTP:Cd("/Upload/(=SOFT=)/m/mmk/")
MSginfo("Поменяли дирректорию...")
if oFTP:Dir()
Msginfo("Посмотрим , что в ней есть")
Aeval(oFTP:acDir, {| cDir, nCount | Msginfo(Str(nCount) + " " + cDir)})
oFTP:Retr("/Upload/(=SOFT=)/m/mmk/bn.w", "bn.w")
// oFTP:Del("bn.backup")
oFTP:Stor("Print.ch", "Print.ch") // записали туда файлик
// oFTP:Rename("bn.w", "bn.backup")
oFTP:Quit()
oFTP:End()
Msginfo("Пока все")
else
Msginfo("Не удалось просмотреть дирректорию!")
oFTP:Quit()
oFTP:End()
endif
else
Msginfo("Не удалось поменять дирректорию!")
oFTP:Quit()
oFTP:End()
endif
else
Msginfo("Соединение не состоялось!")
endif
return nil