![]() |
Модераторы: Snowy, Poseidon, MetalFan |
![]() ![]() ![]() |
|
Gvo3D |
|
|||
Новичок Профиль Группа: Участник Сообщений: 7 Регистрация: 13.2.2006 Репутация: нет Всего: нет |
Есть ФТП сервер. Есть пример закачки 1 указанного файла. НО как закачать все файлы указанной папки? помогите плз.
![]() |
|||
|
||||
_hunter |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 8564 Регистрация: 24.6.2003 Где: Europe::Ukraine:: Kiev Репутация: 5 Всего: 98 |
получить список файлов ( метод List ) и использовать пример для каждого файла из списка
-------------------- Tempora mutantur, et nos mutamur in illis... |
|||
|
||||
Gvo3D |
|
|||
Новичок Профиль Группа: Участник Сообщений: 7 Регистрация: 13.2.2006 Репутация: нет Всего: нет |
function FtpDownloadFile(strHost, strUser, strPwd: string;
Port: Integer; ftpDir, ftpFile, TargetFile: string; ProgressBar: TProgressBar): Boolean; Вот функция из фака. Что такое TargetFile ? |
|||
|
||||
_hunter |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 8564 Регистрация: 24.6.2003 Где: Europe::Ukraine:: Kiev Репутация: 5 Всего: 98 |
в том же факе смотри описание параметров
-------------------- Tempora mutantur, et nos mutamur in illis... |
|||
|
||||
Gvo3D |
|
|||
Новичок Профиль Группа: Участник Сообщений: 7 Регистрация: 13.2.2006 Репутация: нет Всего: нет |
почему при вызове этой процедуры программа зависает???
помогите разобраться ,плз! |
|||
|
||||
Snowy |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Модератор Сообщений: 11363 Регистрация: 13.10.2004 Где: Питер Репутация: 53 Всего: 484 |
Потому что поток занят ожиданием ответа от сервера.
|
|||
|
||||
_hunter |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 8564 Регистрация: 24.6.2003 Где: Europe::Ukraine:: Kiev Репутация: 5 Всего: 98 |
потому как занята программа копированием. в отдельный поток вынеси
-------------------- Tempora mutantur, et nos mutamur in illis... |
|||
|
||||
Gvo3D |
|
|||
Новичок Профиль Группа: Участник Сообщений: 7 Регистрация: 13.2.2006 Репутация: нет Всего: нет |
Спасибо. Ща попробу....
|
|||
|
||||
Gvo3D |
|
||||||
Новичок Профиль Группа: Участник Сообщений: 7 Регистрация: 13.2.2006 Репутация: нет Всего: нет |
Я зделал так, но всё равно не работает:
и в процедурку Form1.DownloadFile я поместил функцию из примера:
Form1.paint2 - выводит на экран графику. box1: boolean; в описании класса TMyThead в public T1,T2: TMyThead; Можно ли так делать? простите за дурацкие вопросы, я тоько начинаю... |
||||||
|
|||||||
Fiyanov |
|
|||
Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 255 Регистрация: 19.4.2007 Где: Kazakhstan->Te mirtau Репутация: нет Всего: 2 |
И где этот метод взять? Чей это метод? |
|||
|
||||
Matematik |
|
|||
![]() Эксперт ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 1027 Регистрация: 11.3.2006 Репутация: 24 Всего: 50 |
Gvo3D, ОЙ, какой жуть.
Так нельзя. Доп поток создается для какой-то работы, главный должен заниматься интерфейсом. Синхронизация происходит в главном потоке, т.ч. твой код бессмысленен. В соседней ветке накатал небольшой примерчик подключения к ftp в доп потоке http://forum.vingrad.ru/index.php?showtopi...t&p=1132904 Так вот там операции с ftp происходят в доп потоке, а вывод в лог в синхронизации. Получить список файлов в этой директори и в цикле по списку качать отдельно каждый. Если бы поискал по форуму, нашел бы несколько примеров. |
|||
|
||||
Fiyanov |
|
|||
Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 255 Регистрация: 19.4.2007 Где: Kazakhstan->Te mirtau Репутация: нет Всего: 2 |
И как блин получить этот список? FindNext? Нет такого. Метод List непонятно где искать. |
|||
|
||||
Fiyanov |
|
|||
Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 255 Регистрация: 19.4.2007 Где: Kazakhstan->Te mirtau Репутация: нет Всего: 2 |
Может всё таки кто нибудь ответит в этой ветке нормально? Чтоб не возникало больше никаких вопросов. Только обстоятельно и с примером.
![]() |
|||
|
||||
Fiyanov |
|
|||
Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 255 Регистрация: 19.4.2007 Где: Kazakhstan->Te mirtau Репутация: нет Всего: 2 |
![]() Разобрался сам. Для тех кто как и я не понял откуда взялся метод List. Оказываеться реч идёт о компоненте TidFTP. Который расположен на закладке Indy Clients. Вот у него как раз то и есть этот метод. Который возвращает в TStringList список найденых файлов. Если последним параметром поставить значение TRUE то будет выводиться так же информация о файлах. И при помощи этого же компонента можно получать/посылать файлы. Так что процедурка из ФАКа при использовании этого компонента теряет свою актуальность. Вот. |
|||
|
||||
![]() ![]() ![]() |
Правила форума "Delphi: Сети" | |
|
Запрещено: 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делится вскрытыми компонентами
Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan. |
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Delphi: Сети | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |