MP3 - Abspielen, und Eigenschaften lesen...

Syngel Kid · Beiträge: 61 Win XP Delphi 2005

Hi,
Ich programmiere gerade eine Datenbank, mit der ich eine bessere Übersicht auf meine MP3 sammlung bekomme. Ich habe aber 2 Probleme, bei denen ihr mir sicher helfen könntet:

1. Wie spiele ich eine MP3 ab????

2. Wie lese ich die Eigenschaften einer MP3??? (Titel und Artist)

Danke im voraus...

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Hallo!

Bitte eröffne für jede Frage einen eigenen Thread. Das hat den Vorteil, dass sowohl Leute, die helfen wollen, als auch Leute, die Anworten suchen, eher erkennen, um was es in dem Thread geht.

MfG
Peter

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

Gausi · Verfasst: Fr 09.01.04 14:39

Abspielen geht z.B. mit der TMediaplayer Komponente, und Informationen wie Titel und Artist stehen im ID3 Tag drin. Einfach mal im Forum danach suchen, gibt genug Infos dazu.
Wenn du auch den neueren ID3v2Tag auslesen willst, und die Länge des Liedes rausfinden willst, empfehle ich einen Blick in die FAQ "Mp3 Informationen" in der Rubrik "FAQ Dateizugriff".

_________________
We are, we were and will not be.

Syngel Kid · Beiträge: 61 Win XP Delphi 2005

Das abspielen geht mit dem TMediaplayer Komponente nicht!
Ich habs schon ein paar mal versucht...
Es kam immer die Fehlermeldung:
"Kein MCI-Gerät geöffnet!"
Was mach ich da falsch???

FAlter · Verfasst: Fr 09.01.04 17:20

markieren

Quelltext

1:
2:

MediaPlayer.FileName := OpenDialog.FileName;
MediaPlayer.Open;

Wahrscheinlich hast du Open vergessen.

FAlter · Verfasst: Fr 09.01.04 20:37

Und vergiss nicht, die Datei am Ende wieder zu schließen! Ansonsten gibt es Probleme, wenn du in die Datei schreiben willst. Du kannst zwar nicht direkt deine Datei schließen, aber über MediaPlayer.Close.

Syngel Kid · Beiträge: 61 Win XP Delphi 2005

OK, es geht jetzt,
Mein Vater hat mir ein bisschen geholfen.
Und es geht 1000 mal leichter:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:

unit MSInfo;

interface

uses
  Sysutils, Dialogs;

type
  TID3v1Tag = record
    ID: String[3];
    Title: String[30];
    Artist: String[30];
    Album: String[30];
    Year: String[4];
    Comment: String[30];
    Track: Byte;
    Genre: Byte;
  end;

procedure MP3LoadInfo(FileName: String; var ID3v1Tag: TId3v1Tag);



implementation
var
  n: Integer;

procedure MP3LoadInfo(FileName: String; var ID3v1Tag: TId3v1Tag);
var
  FHnd: Integer;
  Buffer: array [1..128] of Byte;
  Item: array [1..128] of Byte;
begin
  // Variablen löschen
  FillChar(ID3v1Tag, SizeOf(ID3v1Tag), 0);
  FillChar(Buffer, SizeOf(Buffer), 0);
  FillChar(Item, SizeOf(Item), 0);

  // Datei öffnen
  FHnd := FileOpen(FileName, fmOpenRead + fmShareDenyNone);
  if FHnd <= 0 then
    Exit;  // Exit bei Fehler

  // Dateizeiger 128 Bytes vor Ende positionieren
  n := FileSeek(FHnd, -128, 2);
  // 128 Bytes in Buffer lesen
  n := FileRead(FHnd, Buffer, SizeOf(Buffer));
  if n <> 128 then
    Exit;  // Exit wenn nicht 128 Zeichen gelesen

  // Datei schliessen
  FileClose(FHnd);

  // Prüfen ob ID3v1 / ID3v1.1 Datei (3 erste Zeichen = 'TAG')
  If StrLComp(@Buffer[1], 'TAG', 3) <> 0 then begin
    Exit;
  end;

  // Tags zurückgeben
  ID3v1Tag.ID := Trim(StrLCopy(@Item[1], @Buffer[1], 3));
  ID3v1Tag.Title := Trim(StrLCopy(@Item[1], @Buffer[4], 30));
  ID3v1Tag.Artist := Trim(StrLCopy(@Item[1], @Buffer[34], 30));
  ID3v1Tag.Album := Trim(StrLCopy(@Item[1], @Buffer[64], 30));
  ID3v1Tag.Year := Trim(StrLCopy(@Item[1], @Buffer[94], 4));
  ID3v1Tag.Comment := Trim(StrLCopy(@Item[1], @Buffer[98], 28));
  ID3v1Tag.Track := Buffer[127];
  ID3v1Tag.Genre := Buffer[128];
end;


end.

Syngel Kid · Beiträge: 61 Win XP Delphi 2005

wie liest mann den Id3v2 Tags???
Nur die Position sagen, programmieren kann ich selbst!
(Wie z.b. die v1 ist 128 Bytes vor dem Schluss gespeichert.)

FAlter · Verfasst: Sa 17.01.04 16:35

Ganz am Anfang

Napster2k · Beiträge: 23

schuldige wenn ich hier einfach so reinrede aber wo ist dieser TMEDIAPLAYER?? im DELPHI7

Gausi · Verfasst: Sa 17.01.04 20:23

FAlter hat folgendes geschrieben:

Ganz am Anfang

Das muss nicht sein. Der v2Tag kann auch am Ende stehen, oder mittendrin. Es können auch mehrere id3v2Tags in einem File stehen. Das kann auch notwendig sein, denn die Größe des id3v2Tags ist auf 256MB beschränkt, und das reicht nicht, wenn man in den Tag ein "Making-of-Video" reinpacken möchte ;-)

@Syngel Kid
Die Struktur des v2Tags ist wesentlich komplexer als die des v1Tags. In ihm können neben Texten auch andere Daten drinstehen, wie z.b. Grafiken oder Audiodaten (inklusive mp3-Dateien).
Daher geht das lesen dieser Tags auch nicht SOO einfach wie bei den v1 Tags, da ja auch erstmal rausgelesen muss, WAS da gespeichert ist, und wieviel Platz das in Anspruch nimmt.

Wie der id3v2Tag aufgebaut ist, kann man bei www.id3.org nachlesen und anhand dieser Informationen die gewünschten Routinen programmieren.

_________________
We are, we were and will not be.

Napster2k · Beiträge: 23

ich glaube ich habe mich falsch ausgedrückt
ich wollte eigentlich nur musik einbinden in ein programm.
kann mir jemand den code dazu geben und sagen was ich dann machen muss wohin und so..?

Gausi · Verfasst: So 18.01.04 11:36

@Napster2k: Nene, du hast dich schon richtig ausgedrückt, nur habe ich nicht auf deine Frage geantwortet...jetzt aber

Ich weiss nicht genau, wo der Mediaplyer in Delphi7 zu finden ist, aber wahrscheinlich ungefähr da, wo er auch in Delphi6 ist. Bevor ich lange rumerzähle, guck einfach aufs Bild.

user defined image

den ziehst du einfach wie einen Button auf deine Form.

Und irgendwo im Quelltext sollte dann etwas stehen wie

markieren

Delphi-Quelltext

1:
2:

MediaPlayer1.FileName := 'c:\Meine Musik\MeinLieblingslied.mp3'; 
MediaPlayer1.Open;

Und dann hat ja der TMediaplayer so lustige bunte Knöpfe, die man anklicken kann.

Natürlich geht das auch ohne die Knöpfe, z.b. mit dem Befehl

markieren

Delphi-Quelltext

1:	Mediaplayer1.play;

und wenn man die Knöpfe nicht mag, kann man auch

markieren

Delphi-Quelltext

1:	Mediaplayer1.visible:=false;

setzen.
Ich hoffe, das hilft für den Anfang. Für weiteres empfehle ich eine Suche im Forum oder einen Blick in die Hilfe ;-)

edit: CodeSchnipsel korrigiert

_________________
We are, we were and will not be.

Napster2k · Beiträge: 23

mhh also vieleicht hat jemand ja kruz 2 min zeit und hilft mir
am besten ihr fertig mir das an und führe es dann weiter das wäre echt net.

also ich brauche ein fenster ca. 100x100
mit einem button " play ".

und dem "music" befehl sodass wenn man auf play drückt die musik abgespielt wird.

Cool wäre da´zu noch das man sich die musik aussuchen kann also das es dann da 2-3 lieder gibt und dann kann man sich die aussuchen.
Ich brauche das um meine "music" zum download zu geben und damit ich es den piraten etwas schwerer mache wollte ich es so machen
Und falls ihr mal nen DJ in nächster zeit hört der DJ dA StyLeCat heisst dann bin ich es.

FAlter · Verfasst: So 18.01.04 15:16

Ne, selbst wenn wir 2 Minuten Zeit haben schreiben wir kein Programm für dich. Kauf dir nen MediaPlayer, nimm meinen kostenlosen (www.falter.de.tf) oder Programmier selbst. Aber man ist nicht Programmierer, indem man andere Leute für sich Programme schreiben lässt. Den MediaPlayer von Delphi kann man übrigens alleine mit der Delphi-OH lernen (was ich mal getan habe).

Gausi · Verfasst: So 18.01.04 15:22

...ungefähr sowas wollte ich auch grad schreiben.

Zitat:

am besten ihr fertig mir das an

Is schon ziemlich dreist formuliert. Was daran "am besten" sein soll, verschliesst sich mir voll und ganz.

_________________
We are, we were and will not be.

Napster2k · Beiträge: 23

ohh man leude ich bin 15!!! und ich habe kein bock so zu reden wie ein 40 MULTIMILLIONÄR jähriger mit sie sind doch und bla oder möchten sie vielleicht noch etwas davon kosten??

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Hallo!

Ich denke, Du solltest Dich ein wenig beruhigen. Einatmen ... ausatmen ... einatmen .... pres - ach, nein, das war was anderes.

Also: es ging nicht darum, wie Du geschrieben hast, sondern was Du geschrieben. Im Allgemeinen wirst Du auf Anfragen nach dem Motto "Mach' mal für mich, ich habe keinen Bock" keine positiven Reaktionen erhalten.

Die meisten Antwortenden erwarten vom Fragestellter, dass er mindestens genauso viel Energie und Zeit in die Lösung des Problems investiert wie sie selbst. Und das zu Recht: es ist ja das Problem des Fragended, also sollte er auch selbst mit daran arbeiten.

MfG
Peter

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

Napster2k · Beiträge: 23

so ich habe mir jetzt schon lange (relativ) deine komentare anghört und mir kommt es so als wenn du ein sehr weiser mensch wärst ?? bist du sudent oder sowas??

Gausi · Verfasst: So 18.01.04 22:07

Zitat:

und mir kommt es so als wenn du ein sehr weiser mensch wärst ?? bist du sudent oder sowas??

Was hat denn "Student sein" mit "weise sein" zu tun? In meinen Augen gar nichts. Aber vielleicht hab ich da als 40jähriger Multimillionär eine etwas eigene Ansicht. Diese kiffenden Faulenzer haben doch vom Leben keine Ahnung.

Aber mal ernsthaft. Was genau willst du eigentlich? Wie man mit nem TMediaplayer Musik abspielt, hab ich wohl einigermaßen verständlich erklärt. Auch mit dem nötigen Quellcode. Habe sogar ein Bild mitgeliefert, wo man den Player finden kann, denn auch ich hab am Anfang einige Komponenten nicht direkt gefunden. Und ein paar weitere Tips hab ich auch noch gegeben, denn mit der DelphiHilfe kann man wirklich ne Menge anfangen, wenn man sich ein wenig Mühe gibt.
Aber im Endeffekt musst du dein Programm selber schreiben. Und wenn du mal nicht weiter kommst, kannst du fragen, und man wird dir helfen.
Denn aus Fragen wird man schlau; und wer nicht fragt, bleibt dumm. Und das habe ich nicht an der Uni gelernt, sondern als Kind beim Sesamstrasse gucken.

So...und jetzt schreib ich weiter an meiner Diplomarbeit. Hab grad meine Millionen und ein gutes Dutzend Lebensjahre irgendwo verlegt...mal schauen, ob ich die wiederfinde.

_________________
We are, we were and will not be.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme