Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Proponer
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Nick


Contraseña


Nuevo usuario


English
Obtener ID3TAG de ficheros mp3 - Delphi
Lenguaje de programación Borland Delphi



Para obtener información (título album, artista, año publicación, género, ...) de un fichero MP3, utilizaremos el siguiente código:

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

var
  ID3Tag:TID3Tag;


procedure Lese_ID3Tag(Filename:string);
var
  Buffer:array[1..128] of char;
  F:File;
begin
  AssignFile(F, Filename);
  Reset(F,1);
  Seek(F,FileSize(F)-128);
  BlockRead(F, Buffer, SizeOf(Buffer));
  CloseFile(F);
  with ID3Tag 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;
end;



procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i : integer;
  titulo : string;
  artista : string;
  album : string;
begin
  if OpenDialog1.Execute then
  begin
    for i := 0 to OpenDialog1.Files.Count - 1 do
    begin
      Lese_ID3Tag(OpenDialog1.Files.Strings[i]);
      //showmessage(id3tag.ID);
      titulo := id3tag.Titel;
      artista := id3tag.Artist;
      album := id3tag.Album;
      showmessage(titulo + ' - ' + artista + ' - ' + album);
      //showmessage(id3tag.Year);
      //showmessage(id3tag.Comment);
      //showmessage(id3tag.Genre);
    end;
  end;




Publicado el: 2003-09-17

Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+