FEHLER > mpeg2dmx.ax????

[100nF]

haloo

ich arbeite im moment an einem mp3Player, der natürlich mp3 files abspielt. um diese dateien zu meinem archiv hinzuzufügen, werden zuerst die informationen aus der mp3 datei gelesen und dann werden sie in die datenbank eingetragen.

eigentlich funktioniert das ganze auch, doch bei wenigen dateien hat er einen fehler(unten zum downloaden).

das ist der code, den ich verwende:

Delphi-Quellcode:

procedure TAdd.Button5Click(Sender: TObject);
var
  a, b: real;
  mp3file: string;
begin
  mp3file := add.ListBox1.Items.Strings[add.ListBox1.itemindex];
  FillID3TagInformation(mp3file, add.edit1, add.edit2, add.edit3, add.edit4, add.edit5, add.edit6);  // file-informationen auslesen, beim fehler wird diese stelle markiert!
  player.table1.Insert;
  add.dbedit1.Text :=  add.edit1.Text;  // in die datenbank eintragen
  add.dbedit2.Text :=  add.edit2.Text;
  add.dbedit4.Text :=  add.edit4.Text;
  add.dbedit5.Text :=  add.edit5.Text;
  add.dbedit6.Text :=  add.edit6.Text;
  add.dbedit9.Text :=  add.edit13.text;

  player.mediaplayer1.Close;
  player.mediaplayer1.FileName := mp3file;
  player.mediaplayer1.Open;
  a := player.mediaplayer1.Length*(929/930092);
  b := Rounder(a, 0);
  player.label1.Caption := floattostr(b);
  add.DBEdit8.Text :=  timetostr(SecondsToTime(strtoint(label1.Caption)));

  add.dbedit3.Text := add.StaticText1.Caption;
  add.dbedit7.Text := mp3file;
  player.table1.Post;  // datenbank schliessen
end;

FillID3TagInformation:

Delphi-Quellcode:

procedure FillID3TagInformation(mp3File:string; Title,Artist,Album,Year,Genre,Comment:TEdit);

begin
  fmp3:=TFileStream.Create(mp3File, fmOpenRead);
  try
    fmp3.position:=fmp3.size-128;
    fmp3.Read(ID3,SizeOf(ID3));
  finally
    fmp3.free;
  end;


if ID3.Tag <> 'TAG' then begin
   Title.Text:='Unbekannt';
   Artist.Text:='Unbekannt';
   Album.Text:='Unbekannt';
   Year.Text:='Unbekannt';
   Genre.Text:='Unbekannt';
   Comment.Text:='Unbekannt';
end else begin
   Title.Text:=ID3.Title;
   Artist.Text:=ID3.Artist;
   Album.Text:=ID3.Album;

   if ID3.Genre in [0..MaxID3Genre] then
     Genre.Text:=ID3Genre[ID3.Genre]
   else
     Genre.Text:=IntToStr(ID3.Genre);
   Comment.Text:=ID3.Comment
end;

end;

kann mir da jemand helfen??

[DP-Maintenance]

Dieses Thema wurde von "Sharky" von "Neuen Beitrag zur Code-Library hinzufügen" nach "Sonstige Fragen zu Delphi" verschoben.
Bitte mehr auf die Sparte achten.
Ausserdem wäre ein aussagefähiger Titel sehr nett. Danke

[100nF]

also die datei mpeg2dmx.ax habe ich unter C:\Windows\System32\ gefunden, werde aber nicht schlau daraus.

kann sie leider nicht zum download anbieten, da diese endung nicht erlaubt ist...

[alcaeus]

Hi urbanbruhin,

mit der Datei werden wir wohl auch nicht viel machen können ;)
Der Fehler deutet drauf hin, dass es ein Fehler in der mp3-Datei ist, und nicht in der Library. Vergleich mal diese Dateien und finde raus was die gemeinsam haben. Außerdem, in welcher Zeile steht der Cursor nachdem die Fehlermeldung kommt? Evtl. verbockst du irgendwas beim Auslesen der Tags.

Greetz
alcaeus

[100nF]

also diese dateien sind wirklich genau die selben, nur funktionierts mit der einen nicht...

und das mit dem cursor:
ich habe nur eine funktion auf eine andere form verlegt, und schon bleibt der cursor dort, wo er schon vorher war

also erkennt er irgendwie nicht, wo das problem überhaupt ist??

[Garfield]

Zitat:

Zitat von urbanbruhin

also die datei mpeg2dmx.ax habe ich unter C:\Windows\System32\ gefunden, werde aber nicht schlau daraus.

kann sie leider nicht zum download anbieten, da diese endung nicht erlaubt ist...

Diese Datei ist ein TS-Splitter. Sieh Dir mal diesen Beitrag an:

http://forum.gleitz.info/showpost.ph...25&postcount=6

Das ganze gehört zu:

http://www.moonlight.co.il/cons_player.php

[100nF]

ich habe den player mal gedownloadet und installiert
und siehe da: es funktioniert!!

kann mir aber trotzdem noch jemand erklären, was das problem war, oder was ich da installiert habe.

und vorallem: wenn ich mein programm auf einen anderen pc lade, muss ich dann auch diesen player installieren, oder genügt eine einzige datei schon?

oder kann es sein das diese auf einem anderen pc gar nicht nötig ist?

trotzdem vielen dank

[Garfield]

Zitat:

Zitat von urbanbruhin

kann mir aber trotzdem noch jemand erklären, was das problem war, oder was ich da installiert habe.

Du hast einen Player installiert. Dieser enthält kostenfreie und kostenpflichtige Komponenten. Er wird zum Beispiel empfohlen, wenn man einen MPEG-2 Decoder benötigt um MPEG-2 Videos mit dem MediaPlayer abzuspielen.

Zitat:

Zitat von urbanbruhin

und vorallem: wenn ich mein programm auf einen anderen pc lade, muss ich dann auch diesen player installieren, oder genügt eine einzige datei schon?

Diesen Player nicht unbedingt. Aber irgend ein Filter für MP3 muss schon vorhanden sein. Der müsste in der Registry eingetragen sein.

[100nF]

ach so ist das

und wo müsste ich diesen eintrag in der registry finden? wie ist sein name?

[Garfield]

? Arbeitsplatz\HKEY_CLASSES_ROOT\mp3file ?

Such mal im RegistryEditor nach der Datei.