Модераторы: Snowy, Alexeis, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Запись звука 
:(
    Опции темы
Артем1
Дата 31.10.2011, 15:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 35
Регистрация: 27.10.2011

Репутация: нет
Всего: нет
Добрый вечер. Подскажите пожалуйсто почему не сохраняет файл. (кнопка сохранить не работает)

Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, bass, mmSystem;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    SaveDialog1: TSaveDialog;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
    mciSendString('OPEN NEW TYPE WAVEAUDIO ALIAS mysound', nil, 0, Handle);
    mciSendString('SET mysound TIME FORMAT MS ' +     // set time
    'BITSPERSAMPLE 8 ' +                // 8 Bit
    'CHANNELS 1 ' +                     // MONO
    'SAMPLESPERSEC 8000 ' +             // 8 KHz
    'BYTESPERSEC 8000',                // 8000 Bytes/s
    nil, 0, Handle);
  mciSendString('RECORD mysound', nil, 0, Handle)
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 mciSendString('STOP mysound', nil, 0, Handle);
end;

procedure TForm1.Button2Click(Sender: TObject);
var 
 verz: String;
begin
 GetDir(0, verz);
 mciSendString(PChar('SAVE mysound ' + verz + '/test.wav'), nil, 0, Handle);
 mciSendString('CLOSE mysound', nil, 0, Handle)


end;


end.


Всем заранее огромное спасибо.

Это сообщение отредактировал(а) Артем1 - 31.10.2011, 17:34
PM MAIL   Вверх
Артем1
Дата 31.10.2011, 17:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 35
Регистрация: 27.10.2011

Репутация: нет
Всего: нет
 smile Прошу помощи . .
PM MAIL   Вверх
Чучмек
Дата 21.12.2011, 14:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


НЭТ БИЛЭТ
**


Профиль
Группа: Участник
Сообщений: 841
Регистрация: 11.5.2008
Где: СССР

Репутация: 2
Всего: 41
1.
Цитата(Артем1 @  31.10.2011,  15:26 Найти цитируемый пост)
'SAVE mysound ' + verz + '/test.wav'

Код

'SAVE mysound "' + verz + '\test.wav"'

2.
Цитата(Артем1 @  31.10.2011,  15:26 Найти цитируемый пост)
'SAMPLESPERSEC 8000 ' +             // 8 KHz

Лучше используй стандартный формат. Например 11025


Это сообщение отредактировал(а) Чучмек - 21.12.2011, 14:22


--------------------
умную мысль держи при себе, а дурной - поделись с другими 
PM MAIL   Вверх
ZakharAV
Дата 28.4.2012, 17:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 39
Регистрация: 4.10.2009

Репутация: нет
Всего: нет
Ребяты, а что посмотреть про чтение данных с выхода звуковой карты? С самого нуля, для ликбеза?
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Звук, графика и видео"
Girder
Snowy
Alexeis

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • По вопросам разработки игр стоит заглянуть сюда

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Girder, Snowy.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Звук, графика и видео | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0416 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.