Здравствуйте! Скачиваю файл с 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;
При нажатии на кнопку скачать, происходит открытие диалога. в имени файла стоит нужное название файла, которое и скачиваю(оно и понятно), а вот расширение файла не добавляется.