VPF::как разобрать Wav файл - Форум программистов

leon2009

Дата 16.3.2023, 07:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: 1

Здравствуйте! примеров много как вытащить заголовки из wav, НО я сомневаюсь те ли данные я вытаскиваю:
пр: 1

Код


procedure TForm1.OpenMedia(WaveFile: string);
var
 MyOpenParms: TMCI_Open_Parms;
begin
 with MyOpenParms do
 begin
  dwCallback := Handle; // TForm1.Handle
  lpstrDeviceType := PChar('WaveAudio');
  lpstrElementName := PChar(WaveFile);
 end; {with MyOpenParms}
 dwFlags := MCI_WAIT or MCI_OPEN_ELEMENT or MCI_OPEN_TYPE;
 MyError := mciSendCommand(0, MCI_OPEN, dwFlags, Longint(@MyOpenParms));
 // one could use mciSendCommand(DevId, here to specify a particular device
 if MyError = 0 then
  FDeviceID := MyOpenParms.wDeviceID
 else
  raise Exception.Create('Open Failed');
end;

function TForm1.GetStatus(StatusRequested: DWORD): Longint;
var
 MyStatusParms: TMCI_Status_Parms;
begin
 dwFlags := MCI_WAIT or MCI_STATUS_ITEM;
 with MyStatusParms do
 begin
  dwCallback := Handle;
  dwItem := StatusRequested;
 end;
 MyError := mciSendCommand(FDeviceID, MCI_STATUS, MCI_WAIT or MCI_STATUS_ITEM, Longint(@MyStatusParms));
 if MyError = 0 then
  Result := MyStatusParms.dwReturn
 else
  raise Exception.Create('Status call to get status of ' +  IntToStr(StatusRequested) + ' Failed');
end;

procedure TForm1.CloseMedia;
var
 MyGenParms: TMCI_Generic_Parms;
begin
 if FDeviceID > 0 then
 begin
  dwFlags := 0;
  MyGenParms.dwCallback := Handle; // TForm1.Handle
  MyError := mciSendCommand(FDeviceID, MCI_CLOSE, dwFlags, Longint(@MyGenParms));
  if MyError = 0 then
  FDeviceID := 0
  else
  begin
  raise Exception.Create('Close Failed');
  end;
 end;
end;

результат:

Цитата

176400
16
44100
2

или этот сразу в графику рисует:

Код


const
  data_chunk_position= smallint(2);
  buffersize = 256;
var
  memstr:TMemoryStream;
  //buf:array [1..56] of byte;
  buf:array [1..buffersize] of byte;
  Volume:array [1..buffersize] of byte;
  i,ch:integer;
  readed:integer; Buffer:integer;  buf16: ^smallint;
begin
  memstr:=TMemoryStream.Create;
  memstr.LoadFromFile('sound08.wav');
  memstr.Seek(data_chunk_position, soFromBeginning);
 Chart1.Series[0].Clear;
 readed:=memstr.Read(buf,sizeof(buf));
  i:=1;
  repeat
    Chart1.Series[0].Add(buf[i]);
   // memo1.Lines.Add(inttostr(buf[i]));
    if buf[i]<=70 then  edit1.Text:='baraban' else edit1.Text:='violin';
    inc(i);
  until i>readed;

новички не за путайтесь в варе много лишнего....
я хотел получить такой результат:
Project1
Видео = если страшно открывать EXE
САМ ЗВУК
НО как это сделать пока играет звук, а не сразу выводить результаты???
а то получается результаты вывел.
как узнать если играет скрипка (частота), то вывести в мемо скрипка??? как в примере.... smile

Seenkao

Дата 22.3.2023, 09:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: 1

Непонятно, что ты хочешь сделать. Заголовки файла вытащить?

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »