Prob mit Procedur FillID3Tsg

[EvilDragon]

Hi leute heb nen prob mit folgender Procedur:

Delphi-Quellcode:

procedure FillID3TagInformation(mp3File:string; Title,Artist,Album,Year,Genre,Comment:TEdit);
var //fMP3: file of Byte;
    ID3 : TID3Rec;
    fmp3: TFileStream;
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:='Wrong or no ID3 tag information';
   Artist.Text:='Wrong or no ID3 tag information';
   Album.Text:='Wrong or no ID3 tag information';
   Year.Text:='Wrong or no ID3 tag information';
   Genre.Text:='Wrong or no ID3 tag information';
   Comment.Text:='Wrong or no ID3 tag information';
 end else begin
   Title.Text:=ID3.Title;
   Artist.Text:=ID3.Artist;
   Album.Text:=ID3.Album;
   Year.Text:=ID3.Year;
   if ID3.Genre in [0..MaxID3Genre] then
     Genre.Text:=ID3Genre[ID3.Genre]
   else
     Genre.Text:=IntToStr(ID3.Genre);
   Comment.Text:=ID3.Comment
 end;
end;

wenn ich das programm starte wird ein song in den MediaPlayer1 geladen und anschließend diese procedur aufgerufen hauptfehler ist die erste zeile nach dem begin der procedure...

[scp]

Du musst diese Prozedur VOR dem öffnen im TMediaPlayer ausführen. Aus irgendeinem Grund erlaubt TMediaPlayer während des Abspielens auch keinen Lesezugriff auf die MP3.

[edit]
oder so:

Delphi-Quellcode:

  fmp3 := TFileStream.Create(mp3File, fmOpenRead or fmShareDenyWrite   );

[/edit]

[Luckie]

Und das:

Delphi-Quellcode:

Title,Artist,Album,Year,Genre,Comment:TEdit

ist etwas unglücklich. Warum nimmst du keinen String? Dann können die Infos überall herkommen.

[scp]

Zitat:

Zitat von Luckie

Und das:

Delphi-Quellcode:

Title,Artist,Album,Year,Genre,Comment:TEdit

ist etwas unglücklich. Warum nimmst du keinen String? Dann können die Infos überall herkommen.

Sie sollen ja nicht herkommen sondern hingehen :-)
Müsste eigentlich GetID3TagInformation heissen.

[Luckie]

Die Parameter kommen bei mir immer von irgendwo. Ist aber immer noch sinnvoller sie als var-Parameter zu deklarieren, dann kann ich sie auch in einer Listbox oder sonstwo ausgeben. ;)

Und die Benennung der Prozedur ist auch etwas unglücklich, wie du siehst, bin ich drauf reingefallen.

[EvilDragon]

ihr seit die besten klappt alles reibungslos ;)
nur noch überlegen wie man es amcht, das wen man im editfeld dann was ändert und auf nen butten klickt das dies auch in den ID3Tag reingeschrieben wird....