ListBox

[profiz]

Hallo,

ich möchte zu einer ListBox über ein OpenDialog eine Datei hinzufügen. Aber in der ListBox soll nicht der Pfad zur Datei angezeigt werden, sondern der ID3 Tag der MP§ Datei. Das Auslesen des ID3 Tages geht mit meinem TBassPlayer, ich weiß nur nicht wie ich den ID3 Tag in die ListBox bekomme, und das der Pfad auch dabei ist, aber nicht sichtbar

[sakura]

Dazu musst Du die Items selbständig zeichnen. Suche in der DP mal nach OnDraw OR OnDrawItem.

......

[profiz]

Also das was ich da gefunden habe, sagt mir garnichts, kannst du mir mal ein Beispiel geben???

[CalganX]

Hi,
ich würde es etwas anders machen:

Delphi-Quellcode:

type
  TEntry = class(TObject) // ein eigenen Type erstellen
    fPath: string; // der Pfad/der Dateiname
    fIDTag: TIDTag;  // Die ID3-Tags (ggf. durch eigenen Typ ersetzen)
  end;

{...}
{Folgendermaßen fügst du dann Items in die ListBox ein: }
{...}
var
  aObj: TEntry;

aObj := TEntry.Create();
aObj.fPath := 'blabla'; // ein Pfad
aObj.fIDTag := deineIDTags;
ListBox1.AddItem('Caption', aObj);

Leider ungetest, aber sollte eigentlich funktionieren...
Ich hoffe, dass klar ist, was ich meine...

Chris

[Dagon]

versuchs mal mit folgendem code:

Delphi-Quellcode:

type
  TID3Tag = record
    ID: string[3];
    Titel: string[30];
    Artist: string[30];
    Album: string[30];
    Year: string[4];
    Comment: string[30];
    Genre: Byte;
  end;

const
 Genres : array[0..146] of string =
    ('Blues','Classic Rock','Country','Dance','Disco','Funk','Grunge',
    'Hip- Hop','Jazz','Metal','New Age','Oldies','Other','Pop','R&B',
    'Rap','Reggae','Rock','Techno','Industrial','Alternative','Ska',
    'Death Metal','Pranks','Soundtrack','Euro-Techno','Ambient',
    'Trip-Hop','Vocal','Jazz+Funk','Fusion','Trance','Classical',
    'Instrumental','Acid','House','Game','Sound Clip','Gospel','Noise',
    'Alternative Rock','Bass','Punk','Space','Meditative','Instrumental Pop',
    'Instrumental Rock','Ethnic','Gothic','Darkwave','Techno-Industrial','Electronic',
    'Pop-Folk','Eurodance','Dream','Southern Rock','Comedy','Cult','Gangsta',
    'Top 40','Christian Rap','Pop/Funk','Jungle','Native US','Cabaret','New Wave',
    'Psychadelic','Rave','Showtunes','Trailer','Lo-Fi','Tribal','Acid Punk',
    'Acid Jazz','Polka','Retro','Musical','Rock & Roll','Hard Rock','Folk',
    'Folk-Rock','National Folk','Swing','Fast Fusion','Bebob','Latin','Revival',
    'Celtic','Bluegrass','Avantgarde','Gothic Rock','Progressive Rock',
    'Psychedelic Rock','Symphonic Rock','Slow Rock','Big Band','Chorus',
    'Easy Listening','Acoustic','Humour','Speech','Chanson','Opera',
    'Chamber Music','Sonata','Symphony','Booty Bass','Primus','Porn Groove',
    'Satire','Slow Jam','Club','Tango','Samba','Folklore','Ballad',
    'Power Ballad','Rhytmic Soul','Freestyle','Duet','Punk Rock','Drum Solo',
    'Acapella','Euro-House','Dance Hall','Goa','Drum & Bass','Club-House',
    'Hardcore','Terror','Indie','BritPop','Negerpunk','Polsk Punk','Beat',
    'Christian Gangsta','Heavy Metal','Black Metal','Crossover','Contemporary C',
    'Christian Rock','Merengue','Salsa','Thrash Metal','Anime','JPop','SynthPop');

implementation

{$R *.dfm}

function readID3Tag(FileName: string): TID3Tag; 
var 
  FS: TFileStream; 
  Buffer: array [1..128] of Char; 
begin 
  FS := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite); 
  try 
    FS.Seek(-128, soFromEnd); 
    FS.Read(Buffer, 128); 
    with Result do  
    begin 
      ID      := Copy(Buffer, 1, 3); 
      Titel   := Copy(Buffer, 4, 30); 
      Artist  := Copy(Buffer, 34, 30); 
      Album   := Copy(Buffer, 64, 30); 
      Year    := Copy(Buffer, 94, 4); 
      Comment := Copy(Buffer, 98, 30); 
      Genre   := Ord(Buffer[128]); 
    end; 
  finally
    FS.Free; 
  end; 
end; 

procedure TfrmMain.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin 
    with readID3Tag(OpenDialog1.FileName) do 
    begin
      ListBox1.Items.Add('ID: ' + ID);
      ListBox1.Items.Add('Titel: ' + Titel);
      ListBox1.Items.Add('Artist: ' + Artist);
      ListBox1.Items.Add('Album: ' + Album);
      ListBox1.Items.Add('Year: ' + Year);
      ListBox1.Items.Add('Comment: ' + Comment);
      if (Genre >= 0) and (Genre <=146) then
      ListBox1.Items.Add('Genre: ' + Genres[Genre])
      else
      ListBox1.Items.Add('Genre: ' + 'N/A');
    end;
  end; 
end;

Das sollte funktionieren!

[exoduscrises]

@Chakotay1308

so hab ich es jetzt auch gemacht ,funktioniert einwandfrei , ich habe einen Mediaplayer mit einer Listbox als Playlist, mit der Prozedur kann ich nur meinen Dateinamen anzeigen lassen, ohne Pfad.

Delphi-Quellcode:

type 
  TEntry = class(TObject) // Typ
    fPath: string; // Dateipfad
 end;

{...}

var
PLitem:TEntry;
begin
{...}
PLitem:=TEntry.Create();
PLitem.fPath:=OpenDialog1.FileName;
ListBox1.AddItem(CutPathName(OpenDialog1.FileName), PLitem);
end;

[exoduscrises]

Ein Problem ist nun doch aufgetaucht, ich benutze nun die Prozedur (ein Beitrag nach oben ^^) und will den Inhalt der Listbox in einer Datei speichern, als Playlist quasi. Das hab ich vorher so gemacht

Delphi-Quellcode:

 procedure Speichern(Msg: TWMMouse);
  begin
   if SaveDialog1.Execute then
    begin
     ListBox1.Items.SaveToFile(SaveDialog1.FileName);
    end;
  end;

dann speichert er ja nur die Dateinamen, nicht die Pfade, kann mir da jemand helfen? Was muss ich jetzt machen, damit die Pfade mitgespeichert werden?

[Sharky]

Hai,

erzeuge in deiner Speichern Procedure eine TStringList. Dann füge dort alle Pfade der Items hinzu (hast Du ja als Object). Dann speicherst Du einfach die TStringList.

[exoduscrises]

kannst du mir vielleicht ein Beispiel dafür geben wie ich die erzeuge und dann speichere, in der Suche hab ich es nicht in dieser Variante gefunden

EDIT:

Sorry, ich komm mir grad ein bisschen dumm vor, aber das obrige geht nun doch

Delphi-Quellcode:

procedure Speichern(Msg: TWMMouse); 
  begin 
   if SaveDialog1.Execute then 
    begin 
     ListBox1.Items.SaveToFile(SaveDialog1.FileName); 
    end; 
  end;

da die Items ja nur die Caption=Filename haben, aber selbst der ganze String bestehend aus Pfad un Dateiname sind ... Sorry ^^

[exoduscrises]

Also so richtig gehts nicht

ich nutze jetzt folgende Prozedur um das Element in die Listbox zu setzen.

Delphi-Quellcode:

type 
  TEntry = class(TObject) // Typ 
    fPath: string; // Dateipfad 
end; 

{...} 

var 
PLitem:TEntry; 
begin 
{...} 
PLitem:=TEntry.Create(); 
PLitem.fPath:=OpenDialog1.FileName; 
ListBox1.AddObject(CutPathName(OpenDialog1.FileName), PLitem); 
end;

und dachte mir ich kann jetzt im Nachhinein den Pfad also PLitem wieder aufrufen undzwar so

Delphi-Quellcode:

i := ListBox1.ItemIndex;
{...}
Pfad:=listbox1.items.objects[iplay];
{...}

geht aber leider nicht, kann mir jemand weiterhelfen