|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Диалог сохранения и скачивание файла
Здравствуйте! Скачиваю файл с FTP сервера через IdFTP. +к этому надо реализовать диалог сохранения файла, вот тут как раз таки проблемы, как всё это скомпоновать вместе.
Код:
SaveDialog2.FileName:=name_f; //в name_f хранится имя+расширение if SaveDialog2.Execute then begin datamodule3.FTP.Connect; saveDialog2.DefaultExt :='docx'; datamodule3.FTP.Get(SaveDialog2.FileName,'',true);// Скачиваю с сервера filezilla if FileExists(SaveDialog2.FileName) then begin //Здесь все работает как положено Res := MessageDlg( 'Файл с именем:' + #10 + '"' + SaveDialog2.FileName + '"' + #10 + 'Уже существует. Перезаписать?' ,mtConfirmation ,[mbYes, mbNo] ,0 ); if Res = mrNo then Exit; end; end; datamodule3.FTP.disonnect; При нажатии на кнопку скачать, происходит открытие диалога. в имени файла стоит нужное название файла, которое и скачиваю(оно и понятно), а вот расширение файла не добавляется. |
#2
|
||||
|
||||
У SaveDialog поставь свойство «PromptOverwrite» и свой кусман кода смело выкидывай.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
Этот пользователь сказал Спасибо M.A.D.M.A.N. за это полезное сообщение: | ||
Gareth (31.05.2016)
|