Форум » FiveWin » Передать файл » Ответить
Передать файл
ММК: Надо мне каждые три часа через интернет с машины пользователя на сервер в определенную дирректорию сбрасывать файлик. Как это вообще и лучше организавать?
Ответов - 2
ММК: ММК пишет: Как это вообще организавать? Вот так можно :) #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
Dima: В тему наверное. я как то давно игрался с qFTPClient() на разных FTP серваках. Обнаружил такую штуку , что содержимое директории не на всех серверах выдается верно. В то время ,если открывать такой FTP средствами скажем FTP клиента виндового то все номано. Возможно это как то зависит от версии FTP сервера и операционки на нем.........
полная версия страницы