Отправлено: 22.04.13 20:27. Заголовок: Непонятка с приемом файлов с FTP

Есть следующая задача, получение энного кол-ва файлов с FTP, которые попадают на FTP с рабочих машин скажем так сотрудников, необходимо этот процесс автоматизировать, дабы ручками не собирать их в архив. Для этого была написана программа для рекурсивного получения файлов с источника (то есть с ФТП). На фтп есть папки с видом код рабочего места -> дата за которую передана информация (где то так gerc\67701\22.04.2012\*.)
Само получение информации с одного рабочего места проблем не возникает, но если в листинге программы далее идет получение информации с другого рабочего места, то в результате команда ЛИСТ получается пустая и соответственно файл(ы) не получены.
вот часть листинга, с подробным описанием, где по вашему мнению может быть ошибка? Используется МиниГуи только для получения результатов на экран.

Скрытый текст

procedure datagerc() LOCAL lRetorno := .T., aGauge, nPos := 1, olddir, cFile:= "", cStr2, tt, dt2 Local dt:=SUBSTR(DTOC(DATE()),1,2)+"."+SUBSTR(DTOC(DATE()),4,2)+"."+SUBSTR(DTOC(DATE()),7,4) cUrl := "ftp://" + cUser + ":" + cPassword + "@" + cServer cFile := "*.PSB" //файлы на ФТП olddir:= DIRCHANGE() DIRCHANGE(FoldDssIn) tt:=InputBoxDate("Введите дату формирования данных ГЕРЦ","Дата", DATE()) //задаем дату для получения информации dt2:=SUBSTR(DTOC(tt),1,2)+"."+SUBSTR(DTOC(tt),4,2)+"."+SUBSTR(DTOC(tt),7,4) // формат папки на сервере 02.01.2013 IF Len( cFile ) > 0 oUrl := tUrl():New( cUrl ) oFTP := tIPClientFtp():New( oUrl, .t. ) oFTP:nConnTimeout := 10000 oFTP:bUsePasv := .T. IF At( "@", cUser ) > 0 oFTP:oUrl:cServer := cServer oFTP:oUrl:cUserID := cUser oFTP:oUrl:cPassword := cPassword ENDIF addtextList1("Ждите, идет получение данных по отделению связи Б-Днестровский-1, 67701") IF oFTP:Open( cUrl ) oFtp:CWD( cPathFTP ) //переходим в каталог oFtp:CWD( "67701" ) // -/- oFTP:CWD(dt2) -//- FOR EACH cFile IN oFTP:listfiles(cFile) //даем команду ЛИСТ, проверяем есть ли такие файлы на ФТП oFtp:exGauge := { | done, size| ShowGaugePriem( done, size ) } IF !oFtp:DownloadFile( cFile[F_NAME] ) AddTextList1("На сервере отсутствуют данные за дату "+tt) MsgStop("На сервере отсутствуют данные за дату "+tt) lRetorno := .F. ELSE AddTextList1("данные по ОС 67701 за дату " + dt2 + " "+cFile[F_NAME] + " успешно получены ") lRetorno :=.T. ENDIF NEXT oFTP:CDUP() // новая команда, добавлена в ftpcli.prg, так как там нет такого метода //перемещается на предыдущий каталог oFTP:CDUP() /- oFTP:CDUP() // корневой каталог addtextList1("Ждите, идет получение данных по отделению связи Б-Днестровский-3, 67703") // пытаетмя получить данные по 2-й точке oFtp:CWD( cPathFTP ) //сменили каталог oFtp:CWD( "67703" ) //-- oFTP:CWD(dt2) // -/- FOR EACH cFile IN oFTP:listfiles(cFile) //даем команду ЛИСТ - И ВОТ ТУТ ТИПА ОШИБКИ, ВОЗВРАЩАЕТ ПУСТОЙ КАТАЛОГ, СООТВЕСТВЕННО ФАЙЛОВ НЕТ!!! oFtp:exGauge := { | done, size| ShowGaugePriem( done, size ) } IF !oFtp:DownloadFile( cFile[F_NAME] ) AddTextList1("На сервере отсутствуют данные за дату "+tt) MsgStop("На сервере отсутствуют данные за дату "+tt) lRetorno := .F. ELSE AddTextList1("данные по ОС 67703 за дату " + dt2 + " "+cFile[F_NAME] + " успешно получены ") lRetorno :=.T. ENDIF NEXT oFTP:CDUP() oFTP:CDUP() oFTP:CDUP() oFTP:Close()

смотрел логи, в логе команда лист по 2-й точке (67703) показывает что нет файлов в данном каталоге, а точнее вообще ничего не показывает...
Скрытый текст

20130421-22:22:56 :INETRECVLINE( <pointer>, , 128 ) >> 250 CWD command successful. "/GERC/67703/20.04.2013" is current directory. << 20130421-22:22:56 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:56 :INETSENDALL( <pointer>, 6, PASV<cr><lf> ) >> 6 << 20130421-22:22:56 :INETRECVLINE( <pointer>, , 128 ) >> 227 Entering Passive Mode (10,215,16,100,153,245). << 20130421-22:22:56 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:56 :INETSENDALL( <pointer>, 12, LIST *.PSB<cr><lf> ) >> 12 << 20130421-22:22:56 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:56 :INETRECVLINE( <pointer>, , 128 ) >> 150 Data connection accepted from 10.215.1.92:57052; transfer starting. << 20130421-22:22:56 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:56 :INETRECVLINE( <pointer>, , 128 ) >> 226 Transfer ok <<

 Отправлено: 22.04.13 20:45. Заголовок: Eduard пишет: oFTP:..

Eduard пишет:

цитата:

oFTP:CDUP() // новая команда, добавлена в ftpcli.prg, так как там нет такого метода //перемещается на предыдущий каталог oFTP:CDUP() /- oFTP:CDUP() // корневой каталог

Вероятно перед этим нужно проверить а был ли осуществлен прием файлов из предыдущего каталога и только после этого если он был
и давать ряд команд oFTP:CDUP()
Я хочу сказать что ты не оказываешься в нужном каталоге вот LIST ни чего и не находит.

 Отправлено: 22.04.13 21:04. Заголовок: Dima пишет: Вероятн..

Dima пишет:

цитата:

Вероятно перед этим нужно проверить а был ли осуществлен прием файлов из предыдущего каталога и только после этого если он был и давать ряд команд oFTP:CDUP() Я хочу сказать что ты не оказываешься в нужном каталоге вот LIST ни чего и не находит.

согласно лога, файлы были успешно получены, после перешли командой oFTP:CDUP()
Может еще какую ту команду надо добавить?
в приложении лог

Скрытый текст

20130421-22:22:53 :INETCONNECT( 10.215.16.100, 21 ) >> <pointer> << 20130421-22:22:53 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:53 :INETRECVLINE( <pointer>, , 128 ) >> 220 FTP Server GERC << 20130421-22:22:53 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:53 :INETSENDALL( <pointer>, 9, USER 11<cr><lf> ) >> 9 << 20130421-22:22:53 :INETRECVLINE( <pointer>, , 128 ) >> 331 Password required for 11. << 20130421-22:22:53 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:53 :INETSENDALL( <pointer>, 9, PASS 11<cr><lf> ) >> 9 << 20130421-22:22:53 :INETRECVLINE( <pointer>, , 128 ) >> 230 User OS logged in. << 20130421-22:22:53 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:53 :INETSENDALL( <pointer>, 8, TYPE I<cr><lf> ) >> 8 << 20130421-22:22:53 :INETRECVLINE( <pointer>, , 128 ) >> 200 Type set to I. << 20130421-22:22:53 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:53 :INETSENDALL( <pointer>, 11, CWD /GERC<cr><lf> ) >> 11 << 20130421-22:22:53 :INETRECVLINE( <pointer>, , 128 ) >> 250 CWD command successful. "/GERC" is current directory. << 20130421-22:22:53 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:53 :INETSENDALL( <pointer>, 11, CWD 67701<cr><lf> ) >> 11 << 20130421-22:22:53 :INETRECVLINE( <pointer>, , 128 ) >> 250 CWD command successful. "/GERC/67701" is current directory. << 20130421-22:22:53 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:53 :INETSENDALL( <pointer>, 16, CWD 20.04.2013<cr><lf> ) >> 16 << 20130421-22:22:54 :INETRECVLINE( <pointer>, , 128 ) >> 250 CWD command successful. "/GERC/67701/20.04.2013" is current directory. << 20130421-22:22:54 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:54 :INETSENDALL( <pointer>, 6, PASV<cr><lf> ) >> 6 << 20130421-22:22:54 :INETRECVLINE( <pointer>, , 128 ) >> 227 Entering Passive Mode (10,215,16,100,45,47). << 20130421-22:22:54 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:54 :INETSENDALL( <pointer>, 12, LIST *.PSB<cr><lf> ) >> 12 << 20130421-22:22:54 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:54 :INETRECVLINE( <pointer>, , 128 ) >> 150 Data connection accepted from 10.215.1.92:57046; transfer starting. << 20130421-22:22:54 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:54 :INETRECVALL( <pointer>, , 512 ) >> -rw-r--r-- 1 ftp ftp 9984 Apr 20 08:09 r10101ed.PSB -rw-r--r-- 1 ftp ftp 10038 Apr 20 17:05 r10101ee.PSB << 20130421-22:22:54 :INETCOUNT( <pointer> ) >> 138 << 20130421-22:22:54 :INETRECVALL( <pointer>, , 512 ) >> << 20130421-22:22:54 :INETCOUNT( <pointer> ) >> 0 << 20130421-22:22:54 :INETRECVLINE( <pointer>, , 128 ) >> 226 Transfer ok << 20130421-22:22:54 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:54 :INETSENDALL( <pointer>, 6, PASV<cr><lf> ) >> 6 << 20130421-22:22:54 :INETRECVLINE( <pointer>, , 128 ) >> 227 Entering Passive Mode (10,215,16,100,199,28). << 20130421-22:22:54 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:54 :INETSENDALL( <pointer>, 19, RETR r10101ed.PSB<cr><lf> ) >> 19 << 20130421-22:22:54 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:54 :INETRECVLINE( <pointer>, , 128 ) >> 150 Data connection accepted from 10.215.1.92:57047; transfer starting for r10101ed.PSB (9984 bytes). << 20130421-22:22:54 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:54 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:54 :INETRECVALL( <pointer>, , 9984 ) >> Rar! o—s@ 20130421-22:22:54 :INETCOUNT( <pointer> ) >> 9984 << 20130421-22:22:54 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:54 :INETRECVLINE( <pointer>, , 128 ) >> 226 Transfer ok << 20130421-22:22:54 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:54 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:54 :INETSENDALL( <pointer>, 6, PASV<cr><lf> ) >> 6 << 20130421-22:22:54 :INETRECVLINE( <pointer>, , 128 ) >> 227 Entering Passive Mode (10,215,16,100,128,46). << 20130421-22:22:54 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:54 :INETSENDALL( <pointer>, 19, RETR r10101ee.PSB<cr><lf> ) >> 19 << 20130421-22:22:54 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:55 :INETRECVLINE( <pointer>, , 128 ) >> 150 Data connection accepted from 10.215.1.92:57048; transfer starting for r10101ee.PSB (10038 bytes). << 20130421-22:22:55 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:55 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:55 :INETRECVALL( <pointer>, , 10038 ) >> Rar! o—s@ 20130421-22:22:55 :INETCOUNT( <pointer> ) >> 10038 << 20130421-22:22:55 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:55 :INETRECVLINE( <pointer>, , 128 ) >> 226 Transfer ok << 20130421-22:22:55 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:55 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:55 :INETSENDALL( <pointer>, 6, PASV<cr><lf> ) >> 6 << 20130421-22:22:55 :INETRECVLINE( <pointer>, , 128 ) >> 227 Entering Passive Mode (10,215,16,100,39,208). << 20130421-22:22:55 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:55 :INETSENDALL( <pointer>, 7, LIST <cr><lf> ) >> 7 << 20130421-22:22:55 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:55 :INETRECVLINE( <pointer>, , 128 ) >> 150 Data connection accepted from 10.215.1.92:57049; transfer starting. << 20130421-22:22:55 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:55 :INETRECVLINE( <pointer>, , 128 ) >> 226 Transfer ok << 20130421-22:22:55 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:55 :INETSENDALL( <pointer>, 6, CDUP<cr><lf> ) >> 6 << 20130421-22:22:55 :INETRECVLINE( <pointer>, , 128 ) >> 250 CWD command successful. "/GERC/67701" is current directory. << 20130421-22:22:55 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:55 :INETSENDALL( <pointer>, 6, CDUP<cr><lf> ) >> 6 << 20130421-22:22:55 :INETRECVLINE( <pointer>, , 128 ) >> 250 CWD command successful. "/GERC" is current directory. << 20130421-22:22:55 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:55 :INETSENDALL( <pointer>, 6, CDUP<cr><lf> ) >> 6 << 20130421-22:22:55 :INETRECVLINE( <pointer>, , 128 ) >> 250 CWD command successful. "/" is current directory. << 20130421-22:22:55 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:55 :INETSENDALL( <pointer>, 11, CWD /GERC<cr><lf> ) >> 11 << 20130421-22:22:55 :INETRECVLINE( <pointer>, , 128 ) >> 250 CWD command successful. "/GERC" is current directory. << 20130421-22:22:55 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:55 :INETSENDALL( <pointer>, 11, CWD 67703<cr><lf> ) >> 11 << 20130421-22:22:55 :INETRECVLINE( <pointer>, , 128 ) >> 250 CWD command successful. "/GERC/67703" is current directory. << 20130421-22:22:55 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:55 :INETSENDALL( <pointer>, 16, CWD 20.04.2013<cr><lf> ) >> 16 << 20130421-22:22:56 :INETRECVLINE( <pointer>, , 128 ) >> 250 CWD command successful. "/GERC/67703/20.04.2013" is current directory. << 20130421-22:22:56 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:56 :INETSENDALL( <pointer>, 6, PASV<cr><lf> ) >> 6 << 20130421-22:22:56 :INETRECVLINE( <pointer>, , 128 ) >> 227 Entering Passive Mode (10,215,16,100,153,245). << 20130421-22:22:56 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:56 :INETSENDALL( <pointer>, 12, LIST *.PSB<cr><lf> ) >> 12 << 20130421-22:22:56 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:56 :INETRECVLINE( <pointer>, , 128 ) >> 150 Data connection accepted from 10.215.1.92:57052; transfer starting. << 20130421-22:22:56 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:56 :INETRECVLINE( <pointer>, , 128 ) >> 226 Transfer ok << 20130421-22:22:56 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:56 :INETSENDALL( <pointer>, 6, CDUP<cr><lf> ) >> 6 << 20130421-22:22:56 :INETRECVLINE( <pointer>, , 128 ) >> 250 CWD command successful. "/GERC/67703" is current directory. << 20130421-22:22:56 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:56 :INETSENDALL( <pointer>, 6, CDUP<cr><lf> ) >> 6 << 20130421-22:22:56 :INETRECVLINE( <pointer>, , 128 ) >> 250 CWD command successful. "/GERC" is current directory. << 20130421-22:22:56 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:56 :INETSENDALL( <pointer>, 6, CDUP<cr><lf> ) >> 6 << 20130421-22:22:56 :INETRECVLINE( <pointer>, , 128 ) >> 250 CWD command successful. "/" is current directory. << 20130421-22:22:56 :INETERRORCODE( <pointer> ) >> 0 << 20130421-22:22:56 :INETSENDALL( <pointer>, 6, QUIT<cr><lf> ) >> 6 << 20130421-22:22:56 :INETRECVLINE( <pointer>, , 128 ) >> 221 Bye bye ... << 20130421-22:22:56 :INETERRORCODE( <pointer> ) >> 0 <<

 Отправлено: 22.04.13 21:10. Заголовок: Eduard пишет: FOR E..

Eduard пишет:

цитата:

FOR EACH cFile IN oFTP:listfiles(cFile)

А если немного переделать
FOR EACH XFile IN oFTP:listfiles(cFile)

После первого FOR EACH интересно чему будет равняться cFile ?
Вероятно уже не *.PSB а что то типа blabla.PSB

 Отправлено: 22.04.13 22:18. Заголовок: Другие варианты есть?

Текст то я подправил, еще варианты есть почему не хочет закачивать вторую дальше по тексту ...

 Отправлено: 22.04.13 22:21. Заголовок: Eduard Eduard пише..

Eduard

Eduard пишет:

цитата:

FOR EACH cFile IN oFTP:listfiles(cFile)

Чему равна переменная cFile перед вторым FOR EACH если учесть что первый FOR EACH тоже отработал ?

 Отправлено: 22.04.13 22:34. Заголовок: Тоже самое, все файл..

Тоже самое, все файлы имеют расширение одно и тоже, только первая часть меняется (типа того r10101ef.PSB, r101028u.PSB) и в заданой папке их может лежать от одного до несколько шт.
меняется только имя папки на сервере (типа 67703\...\)

 Отправлено: 22.04.13 22:36. Заголовок: Dima пишет: Чему ра..

Dima пишет:

цитата:

Чему равна переменная cFile

Похоже не в этом дело.

 Отправлено: 22.04.13 22:37. Заголовок: пробовал во второй ч..

пробовал во второй части менять переменную (cFile) на другую, там же менял переменную в конце команды FOR EACH, закачивает только первую часть

 Отправлено: 22.04.13 22:40. Заголовок: я полагал что после ..

я полагал что после первого FOR EACH переменная cFile примет значение что то типа r10101ef.PSB и тогда
второй oftp:Listfiles будет уже срабатывать не по *.PSB а по r10101ef.PSB
Но накидал примерчик и понял что cFile остается прежним *.PSB

oFTP:CDUP() точно правильно работает ?

Да и проверки перехода в папку тоже не помешают
if oFtp:CWD( cPathFTP ) //переходим в каталог
if oFtp:CWD( "67701" ) // -/-
if oFTP:CWD(dt2) -//-

endif
endif
endif

Пробни вместо CDUP() -> CWD() в корень

 Отправлено: 22.04.13 22:50. Заголовок: вот оригинал команды..

вот оригинал команды, вставленый в листинг модуля ftpcli.prg, так как сама команда отсутствует в hbtip
по логам фтп вроде нормально отрабатывает...

METHOD Cdup() CLASS tIPClientFTP
::InetSendall( ::SocketCon, "CDUP" + ::cCRLF )
RETURN ::GetReply()

 Отправлено: 22.04.13 22:54. Заголовок: как указать корень в..

как указать корень в команде CWD?
CWD("/") ?

 Отправлено: 22.04.13 23:10. Заголовок: Dima пишет: if oFt..

Dima пишет:

цитата:

if oFtp:CWD( cPathFTP ) //переходим в каталог if oFtp:CWD( "67701" ) // -/- if oFTP:CWD(dt2) -//- endif endif endif Пробни вместо CDUP() -> CWD() в корень

поставил CWD() в корень, добавил условие проверки перед каталогом... получил тот же самый вариант. ничего не понимаю

 Отправлено: 22.04.13 23:13. Заголовок: CDUP это cwd ../ ?..

CDUP это cwd ../ ?

 Отправлено: 22.04.13 23:26. Заголовок: Eduard пишет: как у..

Eduard пишет:

цитата:

как указать корень в команде CWD?

как то так cwd ../../ , смотря как глубоко ты залез ранее в папки
в твоем случае cwd ../../../

ЗЫ
А может в папке "67703" и далее нет файлов ?

 Отправлено: 23.04.13 06:20. Заголовок: Можно проверить допустимость CDUP

Можно проверить - допустима ли команда CDUP на этом экземпляре FTP сервера.
из командной строки интерактивно

ftp.exe имя_узла
Пользователь: имя_пользователя
Пароль: xxxxxx
ftp > help
Допускается сокращение команд при вводе. Набор команд:

! delete literal prompt send
? debug ls put status
append dir mdelete pwd trace
ascii disconnect mdir quit type
bell get mget quote user
binary glob mkdir recv verbose
bye hash mls remotehelp
cd help mput rename
close lcd open rmdir
ftp>by

 Отправлено: 23.04.13 08:50. Заголовок: CDUP как показала пр..

CDUP как показала проверка моего ftp-сервера не поддерживается. В корень хожу с помощью команды cwd... и тем не менее обработка заканчивается на первом условии FOR EACH cFile IN oFTP:listfiles(cFile) и дальше не идет...

 Отправлено: 23.04.13 08:52. Заголовок: Eduard пишет: CDUP ..

Eduard пишет:

цитата:

CDUP как показала проверка моего ftp-сервера

Тогда вместо одного CDUP , делай один CWD(../)

 Отправлено: 23.04.13 08:55. Заголовок: А что за FTP сервер ..

А что за FTP сервер ? Не Golden FTP PRO случайно ?

 Отправлено: 23.04.13 09:06. Заголовок: petr707 пишет: Можн..

petr707 пишет:

цитата:

Можно проверить - допустима ли команда CDUP на этом экземпляре FTP сервера. из командной строки интерактивно

Кстати да эффективно и просто (или можно юзануть FlashFXP)
Проделай все тоже самое что делаешь из программы.
Сменил каталог и тд , получил лист .....пошел в корень ,cменил каталог и тд , получил лист.
Идея ясна ?

 Отправлено: 23.04.13 09:24. Заголовок: BulletProof FTP Serv..

BulletProof FTP Server используется, попробую еще обновить серверную часть FTP на более новую версию