Отправлено: 12.05.21 09:23. Заголовок: FTP как получить полную дату и время файла ?

::list()

 
 -rw-r--r--   1 login_1 hosting     17408 Dec  4 09:34 reestr.xls 
 -rw-r--r--   1 login_1 hosting     24064 Dec 12  2018 rko.xls 
 -rw-r--r--   1 login_1 hosting     18432 Apr 12  2019 sale.xls 
 -rw-r--r--   1 login_1 hosting     17408 Apr 19 15:38 schet.xls 
 -rw-r--r--   1 login_1 hosting     16384 May 11 16:40 sms.xls

::listFiles()

 
 reestr.xls  17408    /  /    09:34  -rw-r--r--  1  login_1  hosting 
 rko.xls     24064  12/12/18    -rw-r--r--  1  login_1  hosting 
 sale.xls    18432  12/04/19    -rw-r--r--  1  login_1  hosting 
 schet.xls   17408  19/04/21  15:38  -rw-r--r--  1  login_1  hosting 
 sms.xls     16384  11/05/21  16:40  -rw-r--r--  1  login_1  hosting 
 

TotalCommander

 
 reestr.xls	17 408	04.12.2020 09:34	-644 
 rko.xls	24 064	12.12.2018 17:42	-644 
 sale.xls	18 432	12.04.2019 21:40	-644 
 schet.xls	17 408	19.04.2021 15:38	-644 
 sms.xls	16 384	11.05.2021 16:40	-644

ftp

 
 -rw-r--r--   1 login_10 hosting     17408 Dec  4 09:34 reestr.xls 
 -rw-r--r--   1 login_10 hosting     24064 Dec 12  2018 rko.xls 
 -rw-r--r--   1 login_10 hosting     18432 Apr 12  2019 sale.xls 
 -rw-r--r--   1 login_10 hosting     17408 Apr 19 15:38 schet.xls 
 -rw-r--r--   1 login_10 hosting     16384 May 11 16:40 sms.xls 
 

Как это делает TotalCommander ?

 Отправлено: 14.05.21 07:06. Заголовок: Петр пишет: и так н..

Петр пишет:

цитата:

и так не работает ?

Нет. Сервер выдал 500 Unknown command
Программа "долго" висела на UserCommand и после получил
ftp:UserCommand( "MLSD", lPasv, @lReadPort, @lGetReply ) // .T.
lReadPort // NIL
lGetReply // .F.
Под HBCURL все работает нормально

 Отправлено: 14.05.21 07:21. Заголовок: Петр пишет: curl_ea..

Петр пишет:

цитата:

curl_easy_setopt( curl, HB_CURLOPT_FTP_FILEMETHOD, 3 )

я что то разницы не заметил между CURLFTPMETHOD_SINGLECWD и CURLFTPMETHOD_MULTICWD (по умолчанию)
в плане скорости

Петр пишет:

цитата:

curl_easy_setopt( curl, HB_CURLOPT_USERAGENT, "curl/7.75.0" )

для FTP не работает и не должно

Петр пишет:

цитата:

curl_easy_setopt( curl, HB_CURLOPT_FTP_SKIP_PASV_IP, .T. )

с этой штукой на мобильном киевстаре , глюков еще больше , кроме 28 ошибки , еще
и ошибка передачи , при PASV естественно

 Отправлено: 14.05.21 07:41. Заголовок: Dima пишет: Нет. Се..

Dima пишет:

цитата:

Нет. Сервер выдал 500 Unknown command Программа "долго" висела на UserCommand и после получил ftp:UserCommand( "MLSD", lPasv, @lReadPort, @lGetReply ) // .T.

Вот так заработало
oftp:UserCommand("MLSD"+CRLF ................
Но думает очень долго (пробовал и с другими командами)

 Отправлено: 14.05.21 12:00. Заголовок: Dima пишет: oftp:Us..

Dima пишет:

цитата:

oftp:UserCommand("MLSD"+CRLF

в UserCommand забыли добавить
::inetSendAll( ::SocketCon, hb_defaultValue( cCommand, "" ) + ::cCRLF )

А может и специально так.

 Отправлено: 14.05.21 12:13. Заголовок: Петр Петр пишет: М..

Петр
Петр пишет:

цитата:

Метод UserCommand автоматом не добавляет перевод строки ( + ::cCRLF ).

Оказывается это мы еще поняли в 2016 году в теме
http://clipper.borda.ru/?1-4-0-00001145-000-0-0-1471685166

 Отправлено: 14.05.21 20:41. Заголовок: MIKHAIL Разобрался ..

MIKHAIL
Разобрался с HBCURL и MLSD ?

 Отправлено: 15.05.21 19:12. Заголовок: Dima пишет: ftp:Use..

Dima пишет:

цитата:

ftp:UserCommand( "MLSD", lPasv, @lReadPort, @lGetReply )

Вот так надо что бы не "висела" команда и тогда всё работает шустро
lGetReply :=.F.
oftp:UserCommand( "MLSD"+CRLF, lPasv, @lReadPort, @lGetReply )

 Отправлено: 15.05.21 20:00. Заголовок: Dima пишет: Разобра..

Dima пишет:

цитата:

Разобрался с HBCURL и MLSD ?

нет пока
HBCURL пока не брался, не понял как импортировать библиотеку, да и переделывать много не хочется, только timestamp файла и нужно получать...
пробовал по разному usercommand, начала работать, но в переменные по ссылке всегда возвращает либо ничего либо логическое значение, но как то странно что в ::cReply иногда выскакивает timestamp иногда что то другое, нет стабильности и долго обрабатывает MDTM, в общем еще разбираюсь...

 Отправлено: 15.05.21 20:20. Заголовок: MIKHAIL пишет: нача..

MIKHAIL пишет:

цитата:

начала работать, но в переменные по ссылке всегда возвращает либо ничего либо логическое значение

Какой FTP сервер ?

PS
Могу проверить от себя если надо под HBTIP и HBCURL
Если что данные для входа в личку кидай
Обещаю ни чего не ломать и не строить

 Отправлено: 17.05.21 21:27. Заголовок: Dima пишет: Какой F..

Dima пишет:

цитата:

Какой FTP сервер ?

в логах Server (Sun Solaris 9i), написал в их техподдержку , что то у них там случилось, целый день ковыряют, как сделают проверю, если не получиться скину учетку на тест в личку

 Отправлено: 17.05.21 23:24. Заголовок: MIKHAIL ok..

MIKHAIL
ok

 Отправлено: 18.05.21 18:32. Заголовок: Dima MDTM заработал..

Dima
MDTM заработало все норм, я не знал что смотреть ответ в ::cReply нужно ...
MLSD так и не заработала через ::usercommand(), что то там не то, скопировал класс, написал свой метод, тогда заработал.
Но как я понял, он работает по входящему порту в активном режиме, а за NAT работать скорее всего не будет, так что только MDTM можно использовать
А как можно добавить метод к существующему классу что бы не копировать его полностью ? __objAddMethod можно добавить функцию, но в ней не доступны переменные класса

 Отправлено: 18.05.21 19:16. Заголовок: MIKHAIL Попробуй по..

MIKHAIL
Попробуй посмотреть
https://www.kresin.ru/hrbfaq_3.html
На странице ищи __objAddMethod

 Отправлено: 18.05.21 19:57. Заголовок: Dima пишет: На стра..

Dima пишет:

цитата:

На странице ищи __objAddMethod

так я об этом и писал, там можно добавить функцию, но в самой функции переменных класса не видно, либо я что то не так делаю....

 Отправлено: 18.05.21 20:00. Заголовок: а пробни через CURL...

а пробни через CURL.EXE
curl.exe -u LOGIN:PASS -s ftp://твойFTP -X MLSD

PS
Curl тут https://curl.se/download.html

 Отправлено: 18.05.21 20:07. Заголовок: MIKHAIL Local o := ..

MIKHAIL
Local o := QSelf()
должно помочь
или просто сделайте свой класс наследуя от TIPClientFTP, т.е.
CLASS myFTP TIPClientFTP INHERIT TIPClientFTP
DATA ...
METHOD New( oUrl, xTrace, oCredentials ) INLINE ( ::Super:New( oUrl, xTrace, oCredentials ), Self )
METHOD myMethod() CLASS myFTP
END CLASS
METHOD myMethod() CLASS myFTP
...
RETURN Self

 Отправлено: 18.05.21 20:10. Заголовок: CLASS myFTP TIPClien..

CLASS myFTP TIPClientFTP INHERIT TIPClientFTP
это лишнее, не убрал
Дима, что то у меня опять пропала возможность править пост

 Отправлено: 18.05.21 20:13. Заголовок: SergKis пишет: Дима..

SergKis пишет:

цитата:

Дима, что то у меня опять пропала возможность править пост

я ни чего не трогал в твоей учётке.
Могу модераторские полномочия предложить только :)

 Отправлено: 18.05.21 20:30. Заголовок: Dima пишет Могу моде..

Dima пишет

цитата:

Могу модераторские полномочия предложить только :)

Может и не надо, со временем стало туговато, захожу не так часто.
Как говориться "и так сойдет"

 Отправлено: 18.05.21 20:56. Заголовок: SergKis пишет: Как ..

SergKis пишет:

цитата:

Как говориться "и так сойдет"

Глянул учетку , у тебя пол не определён , выбрано нет , может в этом дело ?