В данном посте загрузим файл по FTP на хостинг…
Вот как будет выглядеть форма…
IDAntiFreeze1 добавлен для стабильности по совету из книги глубины Delphi.
Коды кнопок
Коды демонстрационные, без обработки ошибок, для демонстрации…
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 |
procedure TForm1.Button1Click(Sender: TObject); begin IdFTP1.Host:='Hostname'; IdFTP1.Username:='yourusername'; IdFTP1.Password:='yourpassword'; try IdFTP1.Connect; if idFTP1.Connected then begin Form1.Caption:=Form1.Caption+' Connected to Hostname'; end; except showmessage('Не получилось соединиться'); end; end; |
Кнопка Upload
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
procedure TForm1.UploadClick(Sender: TObject); begin if idFTP1.Connected then begin opendialog1.Execute; IdFTP1.ChangeDir('Digital-flame.ru/public_html'); IdFTP1.Put(opendialog1.FileName); end else showmessage('Disconnected'); end; |
Кнопка “Список файлов в директории”
|
1 2 3 4 5 6 7 8 9 10 11 12 |
procedure TForm1.Button2Click(Sender: TObject); var sl:tstringlist; i:integer; begin sl:=tstringlist.Create; IdFTP1.ChangeDir('Digital-flame.ru/public_html'); idftp1.List(sl,'*.*',false); memo1.Clear; memo1.Lines.Assign(sl); end; |