Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.04.2015, 13:21   #1
любо
 
Регистрация: 26.03.2015
Сообщений: 6
По умолчанию Как сохранить созданную звуковую запись?

Доброго времени суток!
Программа записывает голос с микрофона...(использовал bass)... далее мне надо сохранить полученный файл в папку, имя которой состоит из значений введенных в Editы (так вот создаю нужную папку:
Код:
ForceDirectories(ExtractFilePath(ParamStr(0))+ 'Resultat' + '\' + Form1.edit1.Text + ' ' + Form1.edit2.Text + '_' + Form1.edit3.Text + ' ' + Form1.edit4.Text);)
Вот так сохраняется в папке с программой:
Код:
WaveStream.SaveToFile('new.wav');
А как сохранить в папке, созданной выше??? не используя SaveDialog

Последний раз редактировалось любо; 01.04.2015 в 13:43.
любо вне форума Ответить с цитированием
Старый 01.04.2015, 14:25   #2
Toxa
Форумчанин Подтвердите свой е-майл
 
Аватар для Toxa
 
Регистрация: 01.12.2006
Сообщений: 516
По умолчанию

Код:
var
path, filename : string;
begin
path := ExtractFilePath(ParamStr(0))+ 'Resultat' + '\' + Form1.edit1.Text + ' ' + Form1.edit2.Text + '_' + Form1.edit3.Text + ' ' + Form1.edit4.Text);
ForceDirectories(path);
filename := 'new.wav';
WaveStream.SaveToFile(path+filename);
end;
Пишу на Delphi за еду
Toxa вне форума Ответить с цитированием
Старый 01.04.2015, 15:32   #3
любо
 
Регистрация: 26.03.2015
Сообщений: 6
По умолчанию

Цитата:
Сообщение от Toxa Посмотреть сообщение
Код:
var
path, filename : string;
begin
path := ExtractFilePath(ParamStr(0))+ 'Resultat' + '\' + Form1.edit1.Text + ' ' + Form1.edit2.Text + '_' + Form1.edit3.Text + ' ' + Form1.edit4.Text);
ForceDirectories(path);
filename := 'new.wav';
WaveStream.SaveToFile(path+filename);
end;
Так сохраняется запись в папке Resultat, а имя файла: Значения из Edit' ов+new.wav
любо вне форума Ответить с цитированием
Старый 01.04.2015, 15:39   #4
любо
 
Регистрация: 26.03.2015
Сообщений: 6
По умолчанию

Вот так сохраняется
Изображения
Тип файла: png Безымянный.png (2.4 Кб, 59 просмотров)

Последний раз редактировалось любо; 01.04.2015 в 15:42.
любо вне форума Ответить с цитированием
Старый 01.04.2015, 15:48   #5
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

WaveStream.SaveToFile(path+'\'+file name);
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 01.04.2015, 17:01   #6
любо
 
Регистрация: 26.03.2015
Сообщений: 6
По умолчанию

Спасибо огромное, все получилось!!!
любо вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как создать круглую кнопку, созданную на WinAPI? BLACK_RAIN Win Api 4 14.02.2012 12:48
Как добавить в созданную динамически форму,компонент hackgirl Общие вопросы Delphi 2 21.01.2012 15:43
Как настроить звуковую карту? Hardander Компьютерное железо 3 30.04.2010 20:50
Как подключить другую звуковую дорожку в KMPlayer? ArtInt Софт 5 26.12.2009 19:37
Как удалить созданную тему? ruavia3 О форуме и сайтах клуба 1 06.04.2009 11:21