Имеется файл sample.wav в папке с программой. Как при помощи saveDialog сохранить/скопировать его

[ArcaN0id]

Имеется файл sample.wav в папке с программой. Как при помощи saveDialog сохранить/скопировать его в указанное место?

[profi]

Компонент SaveDialog применяется для сохранения данных обработанных программой. Он не копирует данные, а просто сохраняет.

CopyFile(’Откуда\Имя файла’,'Куда\Новое имя файла’,true);

Кстати это нашел на форуме . Пользуйся поиском.

А что бы сохранить данные в wav файл нужно

if SaveDialog1.Execute then
AssignFile(f, SaveDialog1.FileName);
{тут делаеш все, что нужно тебе}
closefile(f);

[ArcaN0id]

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

[profi]

Сообщение от ArcaN0id

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

Я же уже написал CopyFile(’Откуда\Имя файла’,'Куда\Новое имя файла’,true);

[ArcaN0id]

так а как прописать 'Куда\Новое имя файла’ из SaveDialog?

[Вавел из ГМТУ]

Обычно SaveDialog1.FileName

[profi]

Та никак, забудь про SaveDialog, только так можно

var
  Form1: TForm1;
  Dir:AnsiString;

implementation
uses FileCtrl;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if SelectDirectory('Выберите каталог','',Dir) then
        Label1.Caption:= Dir;
end;

[MaTBeu]

SaveDialog1.FileName

[profi]

Через SelectDirectory('Выбираем папку','',Dir);
CopyFile(’Откуда\Имя файла’,Dir,true);

Подробно поищи в инете.

[ArcaN0id]

если просто savedialog то [Error] Unit1.pas(661): Incompatible types: 'TStrings' and 'PAnsiChar'