function CreateNewWave(NewFileName: string): Boolean;
var
DeviceID: Word;
Return: LongInt;
MciOpen: TMCI_Open_Parms;
MciRecord: TMCI_Record_Parms;
MciPlay: TMCI_Play_Parms;
MciSave: TMCI_SaveParms;
MCIResult: LongInt;
Flags: Word;
TempFileName: array[0..255] of char;
begin
MediaPlayer.Close;
StrPCopy(TempFileName, NewFileName);
MciOpen.lpstrDeviceType := 'waveaudio';
MciOpen.lpstrElementName := '';
Flags := Mci_Open_Element or Mci_Open_Type;
MCIResult := MciSendCommand(0, MCI_OPEN, Flags, LongInt(@MciOpen));
DeviceID := MciOpen.wDeviceId;
MciRecord.dwTo := 1;
Flags := Mci_To or Mci_Wait;
MCIResult := MciSendCommand(DeviceID, Mci_Record, Flags, LongInt(@MciRecord));
mciPlay.dwFrom := 0;
Flags := Mci_From or Mci_Wait;
MciSendCommand(DeviceId, Mci_Play, Flags, LongInt(@MciPlay));
mciSave.lpfileName := TempFilename;
Flags := MCI_Save_File or Mci_Wait;
MCIResult := MciSendCommand(DeviceID, MCI_Save, Flags, LongInt(@MciSave));
Result := MciSendCommand(DeviceID, Mci_Close, 0, LongInt(nil)) = 0;
end;
создание wav файла
Уважаемые участники форума,подскажите пожалуйста как создатъ wav файл.С уважением,Snake
Для конвертации форматов нужно
использовать более низкоуровневый API - ACM (Audio Compression Manager) из msacm32.dll.
Интерфейсный модуль к нему в D5 не входит, но его несложно переписать
с C - он есть в любом сишнике (msacm.h). Описание функций acmXXXXXX
есть в Майкрософтовской справке, идущей вместе с Delphi. Там же -
описание формата WAV файла и функций для работы с ним. Эти функции
есть в Delphi (модуль mmsystem.pas, группа функций mmioXXXX).
Сам я сейчас как раз пишу компоненту для перекодировки аудио, но она
пока еще в самой начальной стадии.
использовать более низкоуровневый API - ACM (Audio Compression Manager) из msacm32.dll.
Интерфейсный модуль к нему в D5 не входит, но его несложно переписать
с C - он есть в любом сишнике (msacm.h). Описание функций acmXXXXXX
есть в Майкрософтовской справке, идущей вместе с Delphi. Там же -
описание формата WAV файла и функций для работы с ним. Эти функции
есть в Delphi (модуль mmsystem.pas, группа функций mmioXXXX).
Сам я сейчас как раз пишу компоненту для перекодировки аудио, но она
пока еще в самой начальной стадии.
Цитата: kastron
Уважаемые участники форума,подскажите пожалуйста как создатъ wav файл.С уважением,Snake
Код: