[Konstantin-78]

Доброе время суток форумчане,
Для воспроизведения звука использую компонент NewAC. Т.к. я записываю аудио файл в БД, то перед этим, я его проверяю:

Код:

if OpenDialog1.Execute then
  begin
    MP3In1.FileName := OpenDialog1.FileName; //step 1
    if not MP3In1.Valid then
    begin
      showmessage(C_audio_not_valid);
      Exit;
    end;
    MP3In1.Free;

Взял стандартный код из примера компонента (за исключением последней строки).
И вот когда я записываю файл первый раз в БД, - все нормально.
Но последующие разы, программа выкидывает ошибку:
Debugger Exception Notification
Project PEng_gDB.exe raised exception class EAccessViolation with message 'Access violation at address 00538514 in module 'PEng_gDB.exe'. Read of address 00000000'. Process stopped. Use Step or Run to continue.

Перед ошибкой, компилятор проходит «step 1», и выкидывает в файл («unit ACS_Classes») модуля компонента, на строку «step 2»:

Код:

 procedure TAuFileIn.SetFileName;
  begin
    CloseFile;               //step 2
//    StartSample := 0;
//    EndSample := -1;
    FWideFileName := FN;
    FFileName := FN;
  end;

такое впечатление, как будто, я забыл что-то закрыть.
Программа пример «MP3Player» (самого компонента), отрабатывает все на ура. Да и моя программа воспроизводит все файлы подряд.
А вот когда я проверяю файл (без воспроизведения) – летит ошибка.
Может кто-нибудь здесь подскажет, в чем заковыка?

Заранее спасибо.

[Страдалецъ]

Видимо вы благополучно грохаете ваш MP3In1, а потом пытаетесь к нему обратится, на что и получаете AV

[Konstantin-78]

Сообщение от Страдалецъ

Видимо вы благополучно грохаете ваш MP3In1, а потом пытаетесь к нему обратится, на что и получаете AV

Да возможно вы и правы, но
за кодом, приведенном в первом листинге, идет строка:

Код:

TBlobField(ibdsService.FieldByName('SPEAK')).LoadFromFile(OpenDialog1.FileName);

В которой, я загружаю файл в БД. И без "MP3In1.Free;", у меня на загрузке вылазит другая ошибка:

"Cannot open file "D:\Prog\Eng_gdb\Sound\help.mp3". Процесс не может получить доступ к файлу, так как этот файл занят другим процессом.",

Может можно как нибудь другим способом, освобождать файл (в "MP3In1.FileName := OpenDialog1.FileName;")?

[Konstantin-78]

Да вы были правы,
вместо

Код:

MP3In1.Free;

я воспользовался

Код:

MP3In1.Reset;

И ошибка ушла.
Спасибо.

[Konstantin-78]

Можно еще один вопрос,
вот, когда я воспроизвожу звук из базы:

Код:

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 и программа вываливается.
Без предварительного воспроизведения, файл проходит проверку и записывается в БД

[Alegun]

Видимо файл занят в этот момент проигрывателем, требуется что-то типа Close