Проблема освобождения файла в DSPAck

[PIKACHU]

В общем суть в следующем, при запуске, а именно

FilterGraph.RenderFile(Name);

Все происходит гуд, а когда делаю

  FilterGraph.Stop;
  FilterGraph.ClearGraph;
  FilterGraph.DisconnectFilters;

вроде все на первый взгляд замечательно, а нет, файл чем то занят(занет именно моей программой, так как при закрытии файл освобождается).
Теперь вопрос, как освободить файл?

[dani92]

попробуй FilterGraph.active:=false;

[PIKACHU]

Это тоже стоит, не дописал.

[dani92]

щас у себя в проекте посмотрю, если че пример выложу

я так понимаю, что ты пытаешься удалить файл, но винда говорит что файл занят, так??

[PIKACHU]

Я пытаюсь, изменить ID3 тэг и иногда мне надо саму аудио дорожку изменить, ни там, ни там не дает

[dani92]

изменяешь при воспроизведении??

[PIKACHU]

Нет, вначале останавливаю

  FilterGraph.Stop;
  FilterGraph.ClearGraph;
  FilterGraph.DisconnectFilters;
  FilterGraph.active:=false;

Делаю изменения и пытаюсь запустить но при изменении выдает ошибку что файл занят.

ПС До запуска файла все изменения происходят без ошибки.

[dani92]

Сообщение от PIKACHU

Нет, вначале останавливаю

  FilterGraph.Stop;
  FilterGraph.ClearGraph;
  FilterGraph.DisconnectFilters;
  FilterGraph.active:=false;

Делаю изменения и пытаюсь запустить но при изменении выдает ошибку что файл занят.

ПС До запуска файла все изменения происходят без ошибки.

исходник в студию, так не пойму или пример

[PIKACHU]

var
 Post:int64;
 runing:boolean;

begin

 if FileEdit=FilePlayNow then //Смотрим занетый ли файл который редактируем если да запоминаем его координаты проигрывания.
  if FilterGraph.Active then
   begin
     runing:=true;
     FilterGraph.Stop;
     tmrVisual.Enabled:=False;
     Post:=FilterGraph.Position;
     Filtergraph.Active := False;
     Filtergraph.Stop;
     Filtergraph.DisconnectFilters;
     Filtergraph.ClearGraph;
   end;

//----------------------Изменяем ID3 тэг--------------
    Id3v11.SongName := edtTitle.Text;
    Id3v11.Artist := edtArtist.Text;
    Id3v11.Album := edtAlbum.Text;
    Id3v11.Year := edtYear.Text;
    Id3v11.GenreAsString := cmbGenre.Text;
    Id3v11.Comment := edtComment.Text;
    Id3v11.AlbumTrack := sedTrack.Value;

if not Id3v1.Commit then AlphaHints.ShowHint(sButton2, 'Облом'); //Собственно тут и плюхается там производятся запись в тег

 
 if runing then //если ранее процедура была выполнена перезапускаем его
   begin

     FilterGraph.RenderFile(FileEdit);
     FilterGraph.Position:=Post;
   end;
   AlphaHints.HideHint;

[dani92]

попробуй так

if FilterGraph.Active=true then
   begin
     runing:=true;
     FilterGraph.Stop;
     tmrVisual.Enabled:=False;
     Post:=FilterGraph.Position;
     Filtergraph.Active := False;
     Filtergraph.Stop;
     Filtergraph.DisconnectFilters;
     Filtergraph.ClearGraph;
   end;