Можно еще один вопрос,
вот, когда я воспроизвожу звук из базы:
Код:
begin
PrSpeak := TMemoryStream.Create;
TBlobField(ibqEmpty.FieldByName('SPEAK')).SaveToStream(PrSpeak);
PrSpeak.Seek(0, soFromBeginning);
MP3In1.Stream := PrSpeak;
DXAudioOut1.Run;
end
А потом пытыюсь записать
проверенный файл в БД
Код:
if OpenDialog1.Execute then
begin
MP3In1.FileName := OpenDialog1.FileName;
if not MP3In1.Valid then
begin
showmessage(C_audio_not_valid); //step 3
Exit;
end;
MP3In1.Reset;
у меня срабатывает step 3 и программа вываливается.
Без предварительного воспроизведения, файл проходит проверку и записывается в БД