Показать сообщение отдельно
  #1  
Старый 24.05.2016, 06:09
rbwkz rbwkz вне форума
Прохожий
 
Регистрация: 24.05.2016
Сообщения: 1
Версия Delphi: Delphi 10
Репутация: 10
По умолчанию Диалог сохранения и скачивание файла

Здравствуйте! Скачиваю файл с 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;

При нажатии на кнопку скачать, происходит открытие диалога. в имени файла стоит нужное название файла, которое и скачиваю(оно и понятно), а вот расширение файла не добавляется.
Ответить с цитированием