Цитата:
|
Сообщение от Alegun
Попробуйте ещё тогда позицию мемпотока перед записью на ноль выставить, может во время воспроизведения она сбивается, а назад не возвращается, в смысле PrSpeak.Position:= 0
|
Вы хотели сказать перед проверкой (потому что до записи он и так не доходит),
Код:
PrSpeak.Position:= 0;
MP3In1.FileName := OpenDialog1.FileName;
if not MP3In1.Valid then
begin
showmessage(C_audio_not_valid);
Exit;
end;
всеравно "собака" ругается.
Нее... это в компоненте, что-то не освобождается :-(
Есть еще вариант, использовать два компонента "MP3In" (один для записи, другой для воспроизведения), но это как-то не правильно
И вообще, после каждого воспроизведения:
Код:
procedure TFMain.DXAudioOut1Done(Sender: TComponent);
begin
PrSpeak.Free;
sbSpeak.Down := false;
end;