[Delphi] FTP - Форум Cheat-Master.ru
  • Страница 1 из 1
  • 1
Модератор форума: Alowir, Sanoxxx  
Форум » Программирование » Delphi Программирование » [Delphi] FTP
[Delphi] FTP
KunAmori Дата: Суббота, 16.12.2017, 13:36 | Сообщение # 1
Знаток
Сообщений: 164
Статус: Offline
В delphi есть такой прекрасный компонент IdFTP, при помощи которого можно написать себе клиент FTP, ну или-же как-то использовать в своих софтах.

Пример как использую его я:


Это админ панель, через которую можно управлять лицензией в своём софте.

Начнем.

Первое что нам нужно, это добавить на форму IdFTP1 (во вкладке indy).

Дальше 3 Edit'a и 2 кнопки


Код
1 Edit - Username
2 Edit - Password
3 Edit - Host (IP)

Button1 - Connect
Button2 - Disconnect


Теперь код на кнопку 1:

Код
try
IdFTP1:=TIdFTP.Create(nil); //Создаём объект в памяти
If IdFTP1.Connected then
Begin
IdFTP1.Abort;
IdFTP1.Quit;
End;
IdFTP1.Username := edit1.text; //здесь логин
IdFTP1.Password := edit2.text; //здесь пароль
IdFTP1.Host := edit3.text; //здесь адрес сервера
try
IdFTP1.Connect; //Соединяемся
If IdFTP1.Connected then
Begin
IdFTP1.ChangeDir('/public_html/'); //переходим на FTP в нужную папку (заменить на свою)
End;
Caption:='Connected';
except
IdFTP1.Quit;
end;
finally
IdFTP1.Quit;
end;


Button2:

Код
If IdFTP1.Connected then
Begin
IdFTP1.Abort;
IdFTP1.Quit;
End;

С соединением закончили.

Теперь немного того, что может понадобится:

Как получить файл с FTP?

Код
IdFTP1.ChangeDir('/public_html/'); //Изменить на директорию c файлом на сервере
idftp1.Get('name_on_server', 'Куда_сохранить_и_под_каким_именем', true);
IdFTP1.ChangeDir('/public_html/');//переходим в корень


Как закинуть файл на FTP?

Код
IdFTP1.ChangeDir('/public_html/); //Изменить на директорию c файлом на сервере
IdFTP1.Put('Куда_сохранить_и_под_каким_именем', 'name_on_server', false);
IdFTP1.ChangeDir('/public_html/');//переходим в корень

Форум » Программирование » Delphi Программирование » [Delphi] FTP
  • Страница 1 из 1
  • 1
Поиск:
Статистика Форума
Лучшие пользователи
Admin [39113]

GеNius [7209]

[CM]Russel [5557]

kenlo763 [4952]

[CM]AGRESSOR [4639]

Snake_Firm [4452]

Сэс [4416]

Artem_Buero [4223]

[CM]Durman [3204]

[CM]Рафаэль [3080]

iMaddy [2855]

sky_Woker [2854]

getrekt [2745]

Новые пользователи
stephensh5 [12:00]

calliesv7 [06:11]

louqm16 [22:14]

artushak [16:32]

Kingpolker [15:42]

leeyv11 [15:12]

Trappa17 [01:00]

Djamalchik [16:40]

ajeense [14:24]

654470559 [08:55]

Newtone [03:01]

godspeed [21:31]

herminiadb10 [13:43]