WAV File Info?

[PeterPanino]

EurekaLog meldet: Die AudioWerkzeugeBibliothek (v2.0) erzeugt Memory Leaks:

memleak.png

Hier ist der EurekaLog CallStack:

callstack.png

[PeterPanino]

Man kann die Memory Leaks vermeiden, indem man diesen Code einsetzt:

Code:

procedure TSimpleTagger.FormDestroy(Sender: TObject);
begin
  MainAudioFile.Free;
end;

Alternativ kann man auch diesen Code verwenden:

Code:

MainAudioFile := AudioFileFactory.CreateAudioFile(FileListBox1.FileName);
  try
    if assigned(MainAudioFile) then
    begin
      MainAudioFile.ReadFromFile(FileListBox1.FileName);

      EdtTitle.Text := MainAudioFile.Title;
      EdtArtist.Text := MainAudioFile.Artist;
      EdtAlbum.Text := MainAudioFile.Album;
      EdtGenre.Text := MainAudioFile.Genre;
      EdtYear.Text := MainAudioFile.Year;
      EdtTrack.Text := MainAudioFile.Track;
      Memo1.Clear;
      Memo1.Lines.Add(Format('Type:      %s', [MainAudioFile.FileTypeDescription]));
      Memo1.Lines.Add(Format('FileSize   %d Bytes', [MainAudioFile.FileSize]));
      Memo1.Lines.Add(Format('Duration   %d millisec', [MainAudioFile.Duration]));
      Memo1.Lines.Add(Format('Bitrate    %d kBit/s', [MainAudioFile.Bitrate div 1000]));
      Memo1.Lines.Add(Format('Samplerate %d Hz', [MainAudioFile.Samplerate]));
      Memo1.Lines.Add(Format('Channels:  %d', [MainAudioFile.Channels]));
    end
    else
    begin
      EdtTitle.Text := '';
      EdtArtist.Text := '';
      EdtAlbum.Text := '';
      EdtGenre.Text := '';
      EdtYear.Text := '';
      EdtTrack.Text := '';
      Memo1.Clear;
    end;
  finally
    MainAudioFile.Free;
  end;

[Gausi]

Bei der Alternative solltest du dann aber nicht mehr auf "speichern" klicken. Denn dann ist das MainAudioFile schon zerstört, aber nicht NIL, so dass der Zugriff darauf dann (vermutlich) fehlschlägt. Das ist in dieser simplen Demo ein "globales" Objekt, und auch sonst ist es sinnvoll, das auf der global für die Form zu haben, nicht nur in den einzelnen Actions.

Das Free beim Beenden ist natürlich sinnvoll. Aber danach ist es ja eh weg.

[PeterPanino]

Zitat:

Das Free beim Beenden ist natürlich sinnvoll. Aber danach ist es ja eh weg.

Danke für den Hinweis - habe ich auch schon bemerkt. Ich mache es jetzt in Destroy. Weil mich die Eurekalog-Meldungen beim Beenden stören.

Danke nochmals für die Bibliothek - es ist wirklich ein Glanzstück!