Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.10;
Скачать: CL | DM;

Вниз

Как создать пустой wav-файл   Найти похожие ветки 

 
Виктор_2   (2002-10-21 17:39) [0]

Формат 16 bit mono 44100
Help me please:)


 
apay ©   (2002-10-23 00:48) [1]

заполни RIFF заголовок, если не ошибаюсь, 44 байта и сохрани.
усли влом чинать про RIFF, используй SoundRecorder.


 
SCHMaster ©   (2002-10-27 02:22) [2]

The TMediaPlayer может открыть звуковой файл, если он содержит, по крайней мере, один байт данных.
Нижеприведенный код создаст звуковой файл размером 1 байт. Конечно это криво, но это работает. Вам необходимо лишь добавить MMSYSTEM ко всем модулям, использующим данную функцию.

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;



Страницы: 1 вся ветка

Текущий архив: 2003.02.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.02 c
14-28992
Zhenka
2003-01-26 15:08
2003.02.10
RxLib for Delphi7


1-28918
SergeN
2003-01-31 09:21
2003.02.10
try...except


9-28580
Dmitriy Polskoy
2002-08-29 18:10
2003.02.10
DelphiX для D6


1-28861
Скиф
2003-01-30 14:08
2003.02.10
Поиск строки в ini-файле


14-28987
vopros
2003-01-23 10:25
2003.02.10
Кто видел , чтоб DBImage хранил jpg?