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 файл
Помогите с записю звука, как лучше записать голос с микрофона !?
Можно вот так:
-------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
with mediaplayer1 do
begin
FileName := form1.Edit1.Text;
Open;
Wait := False;
StartRecording;
end;
-------------------------------------------------------------------------
-------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
with mediaplayer1 do
begin
FileName := form1.Edit1.Text;
Open;
Wait := False;
StartRecording;
end;
-------------------------------------------------------------------------
Цитата: kastron
Можно вот так:
-------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
with mediaplayer1 do
begin
FileName := form1.Edit1.Text;
Open;
Wait := False;
StartRecording;
end;
-------------------------------------------------------------------------
-------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
with mediaplayer1 do
begin
FileName := form1.Edit1.Text;
Open;
Wait := False;
StartRecording;
end;
-------------------------------------------------------------------------
думаю основная проблема не в эттом, а куда записывать. необходим файл, пустой, точнее без аудио-данных...
Код:
а потом уже
Код:
////start
with Media do
begin
FileName := path;
Open;
Wait := False;
StartRecording;
end;
///stop
with Media do
begin
stop;
FileName := path;
Save;
Close;
end;
with Media do
begin
FileName := path;
Open;
Wait := False;
StartRecording;
end;
///stop
with Media do
begin
stop;
FileName := path;
Save;
Close;
end;
большое спасибо!
есть вопросик, а именно, можно подробней про эти структуры:
TMCI_Open_Parms;
TMCI_Record_Parms;
TMCI_Play_Parms;
TMCI_SaveParms;
есть вопросик, а именно, можно подробней про эти структуры:
TMCI_Open_Parms;
TMCI_Record_Parms;
TMCI_Play_Parms;
TMCI_SaveParms;
Цитата: Goth
Помогите с записю звука, как лучше записать голос с микрофона !?
Могу поделиться примером записи/воспроизведения+запись на диск как в формате ВАВ так и чистых звуковых данных. Реализация Д7. Стучи в Аську или мыло, если надо. :)