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:
  fmp3 := TFileStream.Create(mp3File, fmOpenRead or fmShareDenyWrite   ); [/edit]

[Luckie]

Und das:
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 von Luckie:

Und das:
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....