[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
Поиск:
Статистика Форума
Лучшие пользователи
Admin [39113]

GеNius [7210]

[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]

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

Lum1x [15:50]

NightMusicant [12:32]

douoling652 [10:40]

billienq1 [01:47]

staciah1 [01:15]

maksmovictimofej [00:18]

jamiedv6 [21:25]

billieds7 [20:51]

aprilez9 [15:57]

am9350450 [14:36]

dcvfre [11:04]

Sheroz [10:38]