Лидеры рейтинга

ID: 259041

Алексеев Владимир Николаевич

Мастер-Эксперт

1058

Россия, пос. Теплоозёрск, ЕАО


ID: 226425

Konstantin Shvetski

Модератор

314

Россия, Северодвинск


ID: 401284

Михаил Александров

Советник

278

Россия, Санкт-Петербург


ID: 137394

Megaloman

Мастер-Эксперт

177

Беларусь, Гомель


ID: 400669

epimkin

Профессионал

105


ID: 404002

sglisitsyn

6-й класс

42


ID: 242862

Hunter7007

Мастер-Эксперт

31

Россия, Омск


8.10.3

30.10.2021

JS: 2.10.3
CSS: 4.6.0
jQuery: 3.6.0
DataForLocalStorage: 2021-12-04 22:46:17-standard


Создание программ на языках Pascal, Delphi и Lazarus.

Администратор раздела: Зенченко Константин Николаевич (Старший модератор)

Консультация онлайн # 109207

Раздел:  Pascal / Delphi / Lazarus
Автор вопроса: Кисель Вадим
Дата: 13.11.2007, 13:19 Консультация закрыта
Поступило ответов: 1

Добрый день уважаемые эксперты! У меня возникла необходимость написать прогу которая должна дозваниваться по определённому номеру телефона, или по созданому в системе соединению (подключение к сети на рабочем месте), подключаться к FTP-серверу и из одной папки загружать на мой комп имеющиеся там файлы, после загрузки удалять файлы с FTP, а в другую папку отправлять файлы с моего компа. Подскажите как все это можно реализовать (желательно с примерами), или дайте ссылки на ресурсы в сети по данной проблеме. Желательно подробные ответы, потому что я в основном пишу проги для роботы с базами.

Ответ # 193620 от Проходящий Мимо
Здравствуйте, Кисель Вадим!
Наведу пример работы с FTP-серверами. Можно создать клиент на базе компонента IdFTP с закладки Indy Clients.

IdFTP.UserName := 'Пользователь';
IdFTP.Password := 'Пароль';
IdFTP.Host := '127.0.0.1';
try
IdFTP.Connect();
except
Application.MessageBox(PChar('Ошибка подключения', 'Вот!', MB_ICONSTOP);
exit;
end;

try
//переходим в нужн. каталог на сервере
IdFTP.ChangeDir('Dir');
except
Application.MessageBox(PChar('Не могу перейти', 'Вот!', MB_ICONSTOP);
exit;

//а вот и сама передача файла
IdFTP.Put(Исходящий_файл, 'Файл_на_сервере');
end;

Для удаления файла служит метод .Delete(FileName:Tstring). Ну и не забыть отключится методом .Disconnect. В приложении работающая консольная программа для передачи файлов по FTP-протоколу на сервер, параметры подключения читаются с ini-файла.
Удачи.

Приложение:


Проходящий Мимо

Посетитель
13.11.2007, 13:54
Мини-форум консультации # 109207
Нет сообщений в мини-форуме
Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Лучшие эксперты раздела

Зенченко Константин Николаевич

Старший модератор

Рейтинг: 244

Лысков Игорь Витальевич

Мастер-Эксперт

Рейтинг: 43

Gluck

9-й класс

Рейтинг: 42

Вадим Исаев ака sir Henry

Мастер-Эксперт

Рейтинг: 2

Асмик Гаряка

Советник

Рейтинг: 0

Орловский Дмитрий

Мастер-Эксперт

Рейтинг: 0