[Delphi] FTP - Форум Cheat-Master.ru
  • Страница 1 из 1
  • 1
Модератор форума: Alowir, Sanoxxx  
[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/');//переходим в корень

  • Страница 1 из 1
  • 1
Поиск: