Отправлено: 05.06.07 16:10. Заголовок: Передать файл

Надо мне каждые три часа через интернет с машины пользователя на
сервер в определенную дирректорию сбрасывать файлик.
Как это вообще и лучше организавать?

 Отправлено: 19.06.07 11:42. Заголовок: Re:

ММК пишет:

цитата:

Как это вообще организавать?

Вот так можно :)
#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

 Отправлено: 19.06.07 17:50. Заголовок: Re:

В тему наверное.
я как то давно игрался с qFTPClient() на разных FTP серваках. Обнаружил такую штуку , что содержимое
директории не на всех серверах выдается верно. В то время ,если открывать такой FTP средствами скажем
FTP клиента виндового то все номано. Возможно это как то зависит от версии FTP сервера и операционки
на нем.........