Mp3FileUtils

[MW97]

Nein, das ist nicht alles. Die Prozeduren zum Auslesen der Infos habe ich in eine eigene Klasse gepckt. Sie waren schon vorher in einer eigenen Unit. Aber es hat nichts geändert.

[DeddyH]

Wird Action im OnClose von FrmMakeUp auf caFree gestellt?

[MW97]

Ja, das ist so. Und er zeigt mir die Form ja auch nur an, wenn ich der Prozedur true übergebe. Wenn ich false übergebe, steigt der Speicherbedarf auch.

[DeddyH]

Wird noch an anderer Stelle dynamisch Speicher angefordert?

[MW97]

Ich habe in dem Programm einige andere kleine Formen, aber ich erstelle alle mit Application.CreateForm und bei OnClose ist Action überall auf caFree. Den record TAudioInf habe ich in eine Klasse umgeschrieben und die Prozeduren GetAudioInfo... dareingepackt. Ich habe dann in der Prozedur ein TAudioInf deklariert, es erstellt und gebe es mit try...finally und Free wieder frei.

[DeddyH]

Dann würde ich gern mal die Klasse TAudioInf sehen.

[MW97]

Delphi-Quellcode:

type
    TAudioInf=class
      private
        procedure GetMp3Info;
        procedure GetWmaInfo;
        procedure SetUnknown;
      public
        Interpret: string;
        Titel    : string;
        Pfad     : string;
        Album    : string;
        Jahr     : string;
        Dauer    : integer;

        //Titelinformationsprozeduren
        procedure GetAudioInfo(FileName: string);
        function GetPlaylistTitel: string;
  end;