[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Nionov  
Форум » Программирование » Pascal/Delphi » [Delphi] FTP
[Delphi] FTP
TwingerДата: Понедельник, 17.06.2019, 23:51 | Сообщение # 1

Сообщений: 76
Награды: 0
Репутация: 455
Статус:
В 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/');//переходим в корень
 
Форум » Программирование » Pascal/Delphi » [Delphi] FTP
  • Страница 1 из 1
  • 1
Поиск: