[rbwkz]

Здравствуйте! Скачиваю файл с FTP сервера через IdFTP. +к этому надо реализовать диалог сохранения файла, вот тут как раз таки проблемы, как всё это скомпоновать вместе.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

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;

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

[M.A.D.M.A.N.]

У SaveDialog поставь свойство «PromptOverwrite» и свой кусман кода смело выкидывай.