Отправлено: 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 на более новую версию

 Отправлено: 23.04.13 09:31. Заголовок: Eduard Начни с ручн..

Eduard
Начни с ручной проверки о которой я выше написал.
Нужно убедится что работает (или не работает)

 Отправлено: 23.04.13 10:56. Заголовок: Eduard пишет: Bulle..

Eduard пишет:

цитата:

BulletProof FTP Server

Старенький и видимо глючненький. Я юзаю последнюю версию Gene6 (он же бывший BulletProof)
CDUP понимает.

 Отправлено: 23.04.13 12:53. Заголовок: 100% глючит BulletPr..

100% глючит BulletProof FTP Server, поставил ради эксперимента на тестовую машину FileZilla server, создал там же идентичную структуру папок как на основном сервере, после в проге проверил получение файлов, результат на 100% рабочий.

 Отправлено: 23.04.13 13:15. Заголовок: Eduard пишет: 100% ..

Eduard пишет:

цитата:

100% глючит BulletProof FTP Server, поставил ради эксперимента на тестовую машину FileZilla server,

G6FTP Server не пробовал ? Юзаю его давно и в "бою" он проверен. Глюков нет.

 Отправлено: 23.04.13 14:35. Заголовок: Где подправить текст..

Где подправить текст, для показа строки выполнения, перестало показывать прогресс-бар % получения после замены сервера

oFtp:exGauge := { | done, size| ShowGaugePriem( done, size ) }

PROCEDURE ShowGaugePriem( nSent, nSize )
Local nValue
nValue := 100 * nSent/nSize
IF nSent > 0
ft_gerc.Text_1.Value := Str(nValue,3)+" %"
ft_gerc.ProgressBar_1.value := nValue
DO EVENTS
ENDIF
RETURN

 Отправлено: 23.04.13 14:38. Заголовок: Dima пишет: G6FTP S..

Dima пишет:

цитата:

G6FTP Server не пробовал ?

к сожалению на работе нет возможности скачать, инет на нашем предприятии заблокирован, придется дома скачивать...

 Отправлено: 23.04.13 15:14. Заголовок: Eduard пишет: инет ..

Eduard пишет:

цитата:

инет на нашем предприятии заблокирован, придется дома скачивать...

Вот, как в стишке:
откуда вирусишки,
дома качаю, и на работу несу ...

 Отправлено: 23.04.13 22:37. Заголовок: AlexMyr пишет: дома..

AlexMyr пишет:

цитата:

дома качаю, и на работу несу

Ну не факт

 Отправлено: 23.04.13 22:48. Заголовок: Dima пишет: G6FTP S..

Dima пишет:

цитата:

G6FTP Server не пробовал ?

попробовал G6FTP Server последнию версию, также пробовал BPFTP тоже из последних версий, результат - только первый проход... дальше не идет, благо у меня есть доступ через ВПН, к своим серверам на работе, немножко поигрался с фтп-серверами. Только в FileZille был получен отличный вариант - все файлы из папок скачались. Единственное что не работает в программе, отображение результатов работы в граф. виде (прогресс-бар), может что-то надо подправить в тексте программы?

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

PROCEDURE ShowGaugePriem( nSent, nSize ) Local nValue nValue := 100 * nSent/nSize IF nSent > 0 ft_gerc.Text_1.Value := Str(nValue,3)+" %" ft_gerc.ProgressBar_1.value := nValue DO EVENTS ENDIF RETURN

 Отправлено: 29.04.13 17:40. Заголовок: Теперь у меня полтер..

Теперь у меня полтергейст с приемом файлов с FTP
На 15 точках стоит абсолютно одинаковая мой программа.
На 14 точках все в шоколаде а на 15 не идет прием файлов.
Затык на команде oFtp:downloadFile , судя по логам все красиво , но реально
она возвращает .F.
Судя по логам самого FTP тоже все красиво.
Не пойму куда копать. Файер выключен. Антивируса нет , впрочем как и вирусов (проверяли не давно)
Прием-передача идет в пассивном режиме , пробовали актив - не помогает.
LIST директории показывает нормально.

PS
Harbour 3.2 + библа HBtip

 Отправлено: 29.04.13 18:04. Заголовок: Свойства обозревателя, вкладка "Дополнительно"

IE, Свойства обозревателя, вкладка "Дополнительно"
все параметры со словом FTP

 Отправлено: 29.04.13 18:07. Заголовок: petr707 Упс. Спасиб..

petr707
Упс. Спасибо , даже не знал что это может повлиять. Завтра проверим , отпишу.

 Отправлено: 29.04.13 19:39. Заголовок: да забыл добавить , ..

да забыл добавить , если с этой проблемной машины попробовать скачать этот же файл с заходом на FTP
через браузер или FAR Manager или Total Commander, то проблем нет.
проблема с закачкой файла именно в hbtip методом downloadFile , при чем только на этом компе.

Что еще работает в Harbour с FTP кроме HBTIP и HBCURL ?

 Отправлено: 29.04.13 20:57. Заголовок: Навряд ли параметры ..

Навряд ли параметры обозревателя будут влиять, надо что-то другое копать... да и там все то 2 параметра, которые по умолчанию включены (смотрел под 7-кой, думаю в ХР такие-же стоят):
1. Использовать пассивный FTP-протокол (для совместимости с браузерами и ДСЛ-модемами)
2. Разрешить просмотр FTP-папок (За пределами Internet Exp.)

 Отправлено: 29.04.13 21:26. Заголовок: внешний вызов ftp.exe

hb_run("ftp.exe -n -s:get_ftp.txt")
...
---get_ftp.txt---
open cUrl
user xxx passw
cd /zzz
binary
get filename
by

2)у HBTIP - только если параметр oFTP:nConnTimeout увеличить

3) права на локальный ресурс у процесса oFtp:DownloadFile( cLocalFile ,cRemoteFile) есть?

4) есть еще наколка - нельзя использовать в Passw символы типа % (нужно экранировать таким же), но если авторизация проходит, то дело не в этом

 Отправлено: 29.04.13 21:30. Заголовок: petr707 пишет: 2)у ..

petr707 пишет:

цитата:

2)у HBTIP - только если параметр oFTP:nConnTimeout увеличить

20000

petr707 пишет:

цитата:

3) права на локальный ресурс у процесса oFtp:DownloadFile( cLocalFile ,cRemoteFile) есть?

да

petr707 пишет:

цитата:

4) есть еще наколка - нельзя использовать в Passw символы типа % (нужно экранировать таким же), но если авторизация проходит, то дело не в этом

проходит

 Отправлено: 30.04.13 08:36. Заголовок: Dima пишет: Что еще..

Dima пишет:

цитата:

Что еще работает в Harbour с FTP кроме HBTIP и HBCURL ?

Дима, а глянь вот эту тему.Может "натолкнет" на какую мысль... Во всяком случае FW у тебя есть - можешь глянуть на FTP с этой стороны...
http://forums.fivetechsupport.com/viewtopic.php?f=3&t=23075&sid=b4fdf17131ab3cbe4c86aa7bf72d4115

 Отправлено: 30.04.13 12:21. Заголовок: Нашли причину ;) Ран..

Нашли причину ;)
Ранее программа лежала в папке d:\minisklad_shumen4 и прием не работал.
Переименовали папку в d:\minisklad и все заработало. При чем только в активном режиме
(пассив на прием так и не работает).
Не нравится проге символ _ в папке или длинное имя ?
Попробовал у себя , работает с любой папкой нормально.
ХЗ что было. Может юзер накосячил с выбором в программе active/passive.........

PS
Рядом находится другая торговая точка и тот же провайдер но инет у них по WIFI и прием
работает и в пассивном и активном режимах.

 Отправлено: 17.12.13 16:51. Заголовок: Косяки вылезают не п..

Косяки вылезают не понятные , может кто сталкивался (LIB : Hbtip)
В папке на FTP лежит 3 ZIP файла с размерами 1.5 метра , 8 метров , 5 килобайт.
ListFiles срабатывает нормально. Далее если массив не пустой в цикле
сливаю 3- файла. Первый заходит нормально (размер 1.5 метра).
На втором downloadFile выдает .F. и на 3-м тоже.

Код примерно таков

 
 function Main() 
 local cUrl      := "ftp://" + "dima" + ":" + "pass" + "@" + "182.107.231.162"  // адрес фтп я тут слегка исказил 
 local aftp 
 local i 
 local ret:=.f. 
  
 REQUEST HB_LANG_RUWIN 
 REQUEST HB_CODEPAGE_RU866 
 hb_SetCodepage( "RU866" ) 
 HB_LANGSELECT( 'RUWIN' ) 
 cls 
  
       oUrl              := tUrl():New( cUrl ) 
       oFTP              := tIPClientFtp():New( oUrl, .f. ) // .t. если трассировка 
       oFTP:nConnTimeout := 20000 
       oFTP:nDefaultPort:=21 
       oFTP:bUsePasv     := .t. 
  
  
 oFtp:exGauge := {| done, size | fShowGauge( done, size ) }  
       IF oFTP:Open( cUrl ) 
 ? "Open" 
            if oFtp:Cwd("/minisklad/UPDATEMINI") 
 ? "CWD" 
 aftp:=oFtp:ListFiles("*.zip") 
 ? len(aftp) 
 aftp:=asort(aftp) 
      if len(aftp)#0 
         for i=1 to len(aftp) 
  
 ? aftp[ i ][1] 
 ? aftp[ i ][2] 
 ret:=oFtp:downloadFile(CurDrive()+":\"+CurDir()+"\"+aftp[1],aftp[ i ][1] ) 
 ? ret 
         next 
      endif 
                       
  
                   endif         
            endif 
 oFTP:Close() 
 wait "Нажмите любую клавишу" 
 return nil 
  
  
 Func fShowGauge( nSent, nSize ) 
 static lisik:=.t. 
           if lisik             
    @ 24,0 SAY "Получаю обновление: " + Replicate( "▒", 60 ) 
    lisik:=.f. 
           endif  
    IF nSent > 0 
       @ 24, 20 SAY Replicate( "█", 60 * nSent / nSize ) 
    ENDIF 
  
 RETURN .t. 
  
 

файл на 8 метров ни при каких условиях сливаться не хочет

 Отправлено: 17.12.13 17:52. Заголовок: Пока можно включить трассировку в New( ...)

После каждого Download ставлю oFTP:reset()

 Отправлено: 17.12.13 18:04. Заголовок: petr707 пишет: Посл..

petr707 пишет:

цитата:

После каждого Download ставлю oFTP:reset()

Спасибо , не помогло

Точнее:
Dima пишет:

цитата:

Первый заходит нормально (размер 1.5 метра). На втором downloadFile выдает .F. и на 3-м тоже.

После этого рецепта 3 файл зашел нормально.
А вот большой файл (8 метров) не хочет скачивать зараза.

 Отправлено: 17.12.13 19:00. Заголовок: Время стягивания 1 МБ ?

Что пишет в логе ftp-?.log
Может по таймауту скидывает соединение при низкой скорости ?

 Отправлено: 17.12.13 19:14. Заголовок: petr707 Да нет скор..

petr707
Да нет скорость нормальная я уже у себя на своем FTP тестю
В логе вот что

 
 20131217-18:12:14  :INETRECVLINE( <pointer>, , 128 ) 
 >> 150 Data connection accepted from xx.xx.xxx.xx:2778; transfer starting. << 
  
 20131217-18:12:14  :INETERRORCODE( <pointer> ) 
 >>          0 << 
  
 20131217-18:12:14  :INETRECVALL( <pointer>, , 512 ) 
 >> -rw-rw-rw-   1 user     group    16177831 Dec 01 16:08 core-master.zip 
                                                                                                                                                                                                                                                                                                                                                                                                                                                          << 
  
 20131217-18:12:14  :INETCOUNT( <pointer> ) 
 >>         72 << 
  
 20131217-18:12:14  :INETRECVALL( <pointer>, , 512 ) 
 >>                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  << 
  
 20131217-18:12:14  :INETCOUNT( <pointer> ) 
 >>          0 << 
  
 20131217-18:12:14  :INETRECVLINE( <pointer>, , 128 ) 
 >> 226 Transfer ok. << 
  
 20131217-18:12:14  :INETERRORCODE( <pointer> ) 
 >>          0 << 
  
 20131217-18:12:14  :INETSENDALL( <pointer>, 6, PASV<cr><lf> ) 
 >>          6 << 
  
 20131217-18:12:14  :INETRECVLINE( <pointer>, , 128 ) 
 >> 227 Entering Passive Mode (xx,xx,xxx,xxx,83,122) << 
  
 20131217-18:12:14  :INETERRORCODE( <pointer> ) 
 >>          0 << 
  
 20131217-18:12:14  :INETSENDALL( <pointer>, 22, RETR core-master.zip<cr><lf> ) 
 >>         22 << 
  
 20131217-18:12:14  :INETERRORCODE( <pointer> ) 
 >>          0 << 
  
 20131217-18:12:14  :INETRECVLINE( <pointer>, , 128 ) 
 >>  << 
  
 20131217-18:12:14  :INETERRORCODE( <pointer> ) 
 >>         -3 << 
  
 20131217-18:12:14  :INETRECVLINE( <pointer>, , 128 ) 
 >>  << 
  
 20131217-18:12:14  :INETERRORCODE( <pointer> ) 
 >>         -4 << 
  
 20131217-18:12:14  :INETSENDALL( <pointer>, 6, QUIT<cr><lf> ) 
 >>         -1 << 
  
 20131217-18:12:14  :INETRECVLINE( <pointer>, , 128 ) 
 >>  << 
  
 20131217-18:12:14  :INETERRORCODE( <pointer> ) 
 >>         -4 << 
  
  
 

 Отправлено: 18.12.13 09:23. Заголовок: А если начать с длин..

А если начать с длинного файла?

 Отправлено: 18.12.13 17:13. Заголовок: nick_mi Да что толь..

nick_mi
Да что только не делал. Вот такой размер уже не тянет 1 670 338 байт не пойму куда копать
В самом фтп в логе вот такая штука 426 Retrieve aborted; Transfer ok
Тот же файл с того же фтп легко тянется с помощью FlashFXP , значит дело
не в фтп и какие то косяки в исходном коде Hbtip

 Отправлено: 18.12.13 17:40. Заголовок: взять другой ftp-сервер

Может , экземпляр Ftp-сервера неудачный ?

 Отправлено: 18.12.13 17:49. Заголовок: petr707 Выше ответи..

petr707
Выше ответил ;)

 Отправлено: 18.12.13 18:15. Заголовок: petr707 А у вас тян..

petr707
А у вас тянутся файлы с фтп размером от 2 метров с помощью downloadFile (Hbtip) ?
Если тянутся то какая версия Harbour у вас ?
У меня Harbour 3.2.0dev (Rev. 18920)

 Отправлено: 18.12.13 18:35. Заголовок: Да, вполне - как-то не было проблем..

Download - до 3 Mb, у меня больше Upload действий - до 50 Mb
Harbour 2.0
Сделал тест загрузки - 18 Mb , все ок
кусок кода - Download - ниже, все - как в примерах
Скрытый текст

FUNCTION tipFTPdnl(cPath, arrf, ltrace ,cStr,lmess,cmask,aList; //7 ,cServer,cUser,cPassword,lset; // 8,9,10 11 ,lPassive;//12 ) LOCAL aFiles LOCAL cUrl LOCAL lRetorno := .T. LOCAL oUrl LOCAL oFTP LOCAL cFile := "" ,iFile Local cRemoteFile :="" Local scrwait,c_sag:="",ctxt:="",ldown Local CRLF := Chr( 13 ) + Chr( 10 ) Local jj,arr_remote:={} if ltrace=NIL ltrace := .f. // ftp-n.log endif cStr := "" lmess :=IIF(lmess=NIL,.f.,lmess) aList:={} Ftp_serv(@cServer,@cUser,@cPassword,lset) cUrl := "ftp://" + cUser + ":" + cPassword + "@" + cServer cUrl := "ftp://" + cServer if cPath =NIL cPath := "__test" endif lPassive:=IIF(lPassive=NIL.or.valtype(lPassive)#"L",.t.,lPassive) IF Len( arrf ) > 0 .or. !(cmask=NIL) oUrl := tUrl():New( cUrl ) oUrl:cUserID := cUser oUrl:cPassword := cPassword oFTP := tIPClientFtp():New( oUrl, ltrace ) oFTP:nConnTimeout := 20000 oFTP:bUsePasv := lPassive //.T. oFTP:oUrl:cUserID := cUser oFTP:oUrl:cPassword := cPassword // Comprobamos si el usuario contiene una @ para forzar el userid IF At( "@", cUser ) > 0 oFTP:oUrl:cServer := cServer oFTP:oUrl:cUserID := cUser oFTP:oUrl:cPassword := cPassword ENDIF IF oFTP:Open()// cUrl ) oFTP:CWD( cPath ) if !(cmask=NIL) aList := oFTP:ListFiles(cmask) //"*.txt" endif FOR each iFile IN arrf cFile := iFile[1] arr_remote := { iFile[2] } if !(lower(iFile[2])==iFile[2]) aadd(arr_remote,lower(iFile[2])) endif if !(UPPER(iFile[2])==iFile[2]) aadd(arr_remote,UPPER(iFile[2])) endif for jj=1 to len(arr_remote) cRemoteFile := arr_remote[jj] c_sag:= " Download : "+cFile+" <- "+cRemoteFile+" " + oURL:cServer +" "+cPath tolog(c_sag) scrwait := op_wait(c_sag,10,10,,c_pict2,," DownLoad: "+cPath) BEG_Gauge(15,5," Download "+cPath+" "+cRemoteFile ,ci_db) oFtp:exGauge := { | done, size| ShowGauge(done, size ) } ldown:= oFtp:DownloadFile( cFile ,cRemoteFile) END_Gauge(15,5) cl_wait(scrwait,10,10) if ldown EXIT endif next jj if !ldown ctxt :=" Нет загрузки Файла : " + cFile ctxt += CRLF+" " + oURL:cServer +" "+cPath if lmess mess( ctxt) endif cStr += ctxt+CRLF lRetorno := .F. LOOP ELSE ctxt :=" Загружен Файл : " + cFile ctxt += CRLF+" " + oURL:cServer +" "+cPath if lmess mess( ctxt) endif cStr += ctxt+CRLF lRetorno := .t. ENDIF oFTP:reset() if !file(cFile) ctxt :=" Нет Файла : " + cFile if lmess mess( ctxt) endif cStr += ctxt+CRLF LOOP endif NEXT oFTP:Close() ELSE cStr := "Нет соединения с сервером FTP" +CRLF; + " " + oURL:cServer+CRLF IF oFTP:SocketCon == NIL cStr += " " + oURL:cServer+CRLF cStr += "Соединение не инициализировано"+CRLF ELSEIF hb_InetErrorCode( oFTP:SocketCon ) == 0 cStr += " " + oURL:cServer+CRLF cStr += "Ответ сервера:" + " " + oFTP:cReply+CRLF ELSE cStr += " " + oURL:cServer+CRLF cStr += "Ошибка сокета:" + " " + hb_InetErrorDesc( oFTP:SocketCon )+CRLF ENDIF if lmess mess(cStr) endif lRetorno := .F. ENDIF ENDIF RETURN lRetorno

 Отправлено: 18.12.13 19:18. Заголовок: petr707 Спасибо , в..

petr707
Спасибо , вроде ни чего не обычного в коде нет.
Попробовал свой пример собрать с Harbour 2.0 и скачать файлик на 2 метра , результат
такой же , хотя более мелкие файлы скачивает легко.
Собираю сейчас Harbour DEV поcледний и попробую с ним.

PS
Юзаю oFTP:bUsePasv :=.T.

 Отправлено: 18.12.13 22:08. Заголовок: Вот и все непонятки ..

Вот и все непонятки закончились после того как убил кучу времени.
У DownloadFile проблема с длинными именами файлов , при чем в UploadFile этой проблемы нет.
Не важно каков размер файла , важна для него длина имени файла.
Вот такой файл скачает 12345678.zip а вот такой уже нет 123456789.zip и размер тут не причем.
Протестил и в легкую слил файл на 200 метров.
Тестил начиная с Harbour 2.0 до последнего DEV.
Прошу опровергнуть или подтвердить описанное поведение DownloadFile.
Думается мне что это баг который нужно исправлять.

ЗЫ
Давайте вместе сделаем Harbour лучше

 Отправлено: 18.12.13 22:37. Заголовок: Пока не подтверждается...

с моего FTP сервера:
одинаково загружаются - файлы с короткими и с длинными именами,
с дефисом в имени файла и без.

 Отправлено: 19.12.13 14:04. Заголовок: petr707 пишет: с мо..

petr707 пишет:

цитата:

с моего FTP сервера:

А что за FTP сервер ?

 Отправлено: 19.12.13 16:56. Заголовок: Корпоративный Proftp

В ftp-n.log сервер сообщает, что он
ProFTPD 1.3.1 Server (ProFTPD)

В общем контексте исполнения (Harb 2.0)
использую установку SetFileApisToOEM()

Доступ по FTP на один и тот же ресурс
- сильно зависит от настроек Windows,брандмауэра, антивируса и прочее.
Иногда получается с одного компа - только ActiveMode,
иногда - только Passive.
Проблемы проверяю обычно Far'ом

Не пробовали бесплатные ресурсы ?
типа http://net2ftp.ru/

 Отправлено: 19.12.13 17:36. Заголовок: Да насчет active/pas..

Да насчет active/passive знаю и это еще может зависить и от прова.
Как тут бороться я знаю. Но вот не понятки с downloadfile меня напрягают.
Беру файлик и ложу на свой FTP , назвал его 12345678.zip сливается
нормально моей тестовой прогой.
Переименовываю его в 1234567890.zip не сливается , проверял многократно.
Переименовываю его еще раз от балды в 12345klsjdklfjsklf.zip сливается при чем уверенно ,проверял
многократно.
Файлы с короткими именами 8.3 сливаются всегда иначе тут связь какая то прослеживается
не понятная между размером файла и его его именем. Может сливаться а может и нет.
C Upload нет таких проблем.

PS
Те же файлы всегда сливаются норм любым FTP клиентом. Отсюда
напрашивается вывод что FTP сервер не при чем (юзаю G6FTP Server уже давно
и работает как часы)

 Отправлено: 19.12.13 18:04. Заголовок: Здесь есть "третья сила"

Между FTP-сервером(с его настройками) и простым HBTIP-ftp клиентом - есть еще его Величество Интернет(канал),
который дышит, проседает и т.д.
Специализированные FTP-клиенты - умнее.
В моем случае сложности :
большие-маленькие буквы в именах файлов,
конкуренция за соединение с сервером( ограничено число соединений - настройки сервера),
конкуренция за доступ к файлам между клиентами.

Возможно, настройки среды не соответствуют каналу, который слишком быстрый(иногда это проблема ) или слишком медленный.
По идее, Upload по скорости - меньше или равен Download

 Отправлено: 19.12.13 21:56. Заголовок: petr707 пишет: ProF..

petr707 пишет:

цитата:

ProFTPD 1.3.1 Server (ProFTPD)

Это под UNIX ?

 Отправлено: 19.12.13 22:04. Заголовок: да, unix-подобный

да, специально заточенный(собран из модифицированных исходников )

 Отправлено: 20.12.13 11:29. Заголовок: Eduard пишет: Единс..

Eduard пишет:

цитата:

Единственное что не работает в программе, отображение результатов работы в граф. виде (прогресс-бар), может что-то надо подправить в тексте программы?

Тестю FileZilla , и тоже перестал работать индикатор , хотя на Gene6FTP работал

Eduard пишет:

цитата:

Где подправить текст, для показа строки выполнения, перестало показывать прогресс-бар % получения после замены сервера oFtp:exGauge := { | done, size| ShowGaugePriem( done, size ) }

Ни где так как в случае с Filezilla Server первый параметр всегда заходит -1 как ни странно

 Отправлено: 20.12.13 14:43. Заголовок: Кстати с Filezilla S..

Кстати с Filezilla Server при UploadFile индикатор работает нормально а вот с DownloadFile не работает

 Отправлено: 20.12.13 17:57. Заголовок: Возможно и работает..

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

 Отправлено: 20.12.13 18:11. Заголовок: petr707 да нет не в..

petr707
да нет не в этом дело , я же выше писал.
С сервером Gene6 прогресс бар работает нормально но с тем же
файлом и сервером Filezilla он не работает потому что функция
прописанная для exGauge в качестве принятых байт получает -1 (это я проверил)

 Отправлено: 20.12.13 21:43. Заголовок: -1 это еще неплохо

-1 это еще неплохо, по крайней мере - это число
В некоторых случаях valtype(..)#"N"
Или разбираться в исходниках , или - забить...на градусник..