Delphi - Make your own MP3 Metadata Editor with TListview and TEdits

In this project, we will be using the TID3v2Tag« by 3delite to retrieve the properties of MP3 files loading into ListView.
This will come in handy when you want to edit your MP3 files.

[LoadIt.pas]
unit LoadIt; interface { Original code assisted from Sinisa Vuk Date: April 3, 2017 https://www.experts-exchange.com/members/sinisav.html His code was clicking on the items in the ListView and having them display to the TEdits. Updated: March 15, 2024 Fixed the bug in loading the Song Titles to the ListView. Added in TEdit strPath. This helps to know how many files are selected. Fixed the width of each ListView Column so they match the length of their corresponding File information. } uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, ComCtrls, StdCtrls, ID3v1Library, ID3v2Library; type TForm1 = class(TForm) Panel1: TPanel; Panel2: TPanel; ListView1: TListView; OpenDialog1: TOpenDialog; Button8: TButton; Edit1: TEdit; strTitle: TEdit; strPath: TEdit; strArtist: TEdit; Label1: TLabel; Label2: TLabel; procedure FormCreate(Sender: TObject); procedure Button8Click(Sender: TObject); procedure ListView1SelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); private { Private declarations } public { Public declarations } end; var Form1: TForm1; ID3v1Tag: TID3v1Tag = nil; ID3v2Tag: TID3v2Tag = nil; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Panel2.Align := alClient; ListView1.Align := alClient; ID3v1Tag := TID3v1Tag.Create; ID3v2Tag := TID3v2Tag.Create; end; procedure AddFileToTree(ListView: TListView; FileName: String); var SR: TSearchRec; ListItem: TListItem; begin // FileSize := 0; if (FindFirst(FileName, faAnyFile, SR) = 0) then begin // FileSize := SR.Size; // FileDate := FileDateToDateTime(SR.Time); ListItem := ListView.Items.Add; // get the MP3 File name ListItem.Caption := extractfilename(FileName); // get the song title ListItem.SubItems.Add(ID3v2Tag.GetUnicodeText('TIT2')); // get the path to the MP3 file ListItem.SubItems.Add(FileName); end; end; procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); var s, sFile: string; ls: TListItem; begin ls := ListView1.Selected; if Assigned(ls) then begin // Change this number [1] to the column which has the FileName or SongTitle. // Chosing the File path address, [2] will result in this error. //List index out of bounds (2). TSubItems object range is 0..1. sFile := ls.SubItems.Strings[1]; if ID3v2Tag.LoadFromFile(sFile) = ID3V2LIBRARY_SUCCESS then begin strPath.text := sFile; // Added March 15, 2024 strTitle.text := ID3v2Tag.GetUnicodeText('TIT2'); strArtist.text := ID3v2Tag.GetUnicodeText('TPE1') end else strPath.text := '; ls := ListView1.GetNextItem(ls, sdAll, [isSelected]); // if there are more than one while Assigned(ls) do begin // If multiple items are selected, then we want to change the edit to show the value <multi> strTitle.text := '<multi>'; strArtist.text := '<multi>'; ls := ListView1.GetNextItem(ls, sdAll, [isSelected]); end; end; end; procedure TForm1.Button8Click(Sender: TObject); var i: integer; LoadIt: integer; begin if OpenDialog1.execute then for i := 0 to OpenDialog1.Files.Count - 1 do if SameText(ExtractFileExt(OpenDialog1.Files[i]), '.mp3') then begin // Bug fix here. Changing from the original TEdit to the OpenDialog.Files[i] fixed song titles in list. LoadIt := ID3v2Tag.LoadFromFile(OpenDialog1.Files[i]); AddFileToTree(ListView1, OpenDialog1.Files[i]); end; end; end.

[LoadIt.dfm]
object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 340 ClientWidth = 906 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OnCreate = FormCreate TextHeight = 13 object Panel1: TPanel Left = 0 Top = 0 Width = 906 Height = 97 Align = alTop TabOrder = 0 ExplicitWidth = 902 object Label1: TLabel Left = 8 Top = 40 Width = 38 Height = 19 Caption = 'Artist' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object Label2: TLabel Left = 8 Top = 69 Width = 31 Height = 19 Caption = 'Title' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False end object Button8: TButton Left = 16 Top = 11 Width = 59 Height = 22 Caption = 'Select...' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = Button8Click end object Edit1: TEdit Left = 81 Top = 11 Width = 265 Height = 21 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] ParentFont = False TabOrder = 1 end object strTitle: TEdit Left = 52 Top = 66 Width = 121 Height = 21 TabOrder = 2 Text = 'Song Title' end object strPath: TEdit Left = 760 Top = 11 Width = 121 Height = 21 TabOrder = 3 Text = 'strPath' Visible = False end object strArtist: TEdit Left = 52 Top = 39 Width = 121 Height = 21 TabOrder = 4 Text = 'Artist Name' end end object Panel2: TPanel Left = 81 Top = 131 Width = 785 Height = 201 TabOrder = 1 object ListView1: TListView Left = 24 Top = 16 Width = 753 Height = 150 Columns = < item Caption = 'FileName' Width = 200 end item Caption = 'Title' Width = 200 end item Caption = 'File Location' Width = 500 end> MultiSelect = True RowSelect = True SortType = stText TabOrder = 0 ViewStyle = vsReport OnSelectItem = ListView1SelectItem end end object OpenDialog1: TOpenDialog Filter = 'MP3|*.mp3' Options = [ofHideReadOnly, ofAllowMultiSelect, ofEnableSizing] Left = 390 Top = 12 end end

[Project1.dpr]
program Project1; uses Forms, LoadIt in 'LoadIt.pas' {Form1}; {$R *.res} begin Application.Initialize; Application.MainFormOnTaskbar := True; Application.CreateForm(TForm1, Form1); Application.Run; end.