Tags mp3

[Khronos]

Bueno buscando encontré la forma de obtener informacion de las etiquietas IDV2. Pero hay archivos mp3 que tienen una imagen del album, estuve buscando pero no conseguí gran cosa. ¿Alguien sabe como obtener la imagen del album de un archivo mp3?

Salu2

[[Lepe]]

¿dentro del mp3 tiene la imagen? Es la primera vez que lo escucho.

Yo siempre he visto la caratula en la misma carpeta que los mp3s, y algunos reproductores la pillan de ahí y la muestran al reproducr una canción. En este caso se trata de buscar en la misma carpeta por imágenes tipo jpg y bmp principalmente (si es esto lo que quieres, mira en los trucos del club, o en la ayuda de delphi por FindFirst)

Saludos

[[cHackAll]]

Código Delphi [-]
function GetHeaderSize(const Value: Cardinal): Cardinal;
asm
 xor   ecx, ecx
 xchg  eax, ecx
@loop: shl  eax, 7
 or    al,  cl
 shr   ecx, 8
 jnz  @loop
end;

function GetFrameSize(const Value: Cardinal): Cardinal;
asm
 xchg al, ah
 rol eax, 10h
 xchg al, ah
end;

procedure TForm1.Button1Click(Sender: TObject);

type
 TFrame = packed record
  ID, Size: Cardinal;
  Flags: Word;
 end;

var
 hFile, Size, Buffer, FrameSize, Diff, hImage: Integer;

 Header: packed record
  ID: array [0..2] of Char;
  Version, Revision, Flags: Byte;
  Size: Cardinal;
 end;

 Frame: ^TFrame;
 Image: PChar;

begin
 hFile := _lopen('Sonata ClubDelphi.mp3', OF_READ);
 _lread(hFile, @Header, SizeOf(Header));                 // leemos los primeros 10 bytes del mp3
 Header.Version := 0; // don't needed
 if PCardinal(@Header)^ = $334449{ID3} then              // si el identificador es válido, ID3v2 está presente
  begin
   Size := GetHeaderSize(Header.Size);                   // obtenemor el tamaño "real" del cabezal
   Buffer := LocalAlloc(0, Size);                        // reservamos memoria
   Frame := Ptr(Buffer);
   _lread(hFile, Frame, Size);                           // leemos todo el ID3v2 en la memoria reservada
   while (Size > 0) and (Byte(Frame.ID) > 0) do
    begin
     FrameSize := GetFrameSize(Frame.Size);              // obtenemos el tamaño "real" del frame
     if Frame.ID = $43495041{APIC} then                  // si el frame es una imagen
      begin
       Image := PChar(Cardinal(Frame) + SizeOf(TFrame)); // obtenemos el inicio de los datos del frame
       Diff := lstrlen(@Image[1]) + 4;                   // obtenemos el tamaño del MIME y tipo
       Image[6] := '.';                                  // cambiamos '/' por '.' para "componer" el nombre de archivo
       hImage := _lcreat(@Image[1], 0);                  // creamos el archivo de imagen
       _lwrite(hImage, @Image[Diff], FrameSize - Diff);  // lo guardamos
       CloseHandle(hImage);                              // y cerramos
      end;
     Inc(FrameSize, SizeOf(TFrame));                     // consideramos el tamaño del cabezal del frame actual
     Inc(Cardinal(Frame), FrameSize);                    // ...para saltar al siguiente frame
     Dec(Size, FrameSize);
    end;
   LocalFree(Buffer);
  end;
 CloseHandle(hFile);
end;

Nota; considerando que el anterior código tuvo un proposito más informativo que práctico, aconsejo usar (por ejemplo) los componentes JEDI para manejar dicha informacion.

Saludos

[Khronos]

Muchisimas gracias cHackAll. Al final ya encontre lo que buscaba, el componente JvId3v2 de jedi consigue las imagenes como quería. Pero encontré una dll mas funcional en:
http://www.3delite.hu/Object Pascal ...v2library.html

Salu2 y gracias.

[greenflash]

Empezado por cHackAll

Nota; considerando que el anterior código tuvo un proposito más informativo que práctico, aconsejo usar (por ejemplo) los componentes JEDI para manejar dicha informacion.

Gracias cHackAll!!! Me he registrado solo para agradecer este codigo es lo unico que he encontrado funcional.. por alguna razon el componente de tags de id3v2 de JVCL esta dandome un AV... Ya vere eso pero solamente queria la image y lo tuyo funciono de maravilla. SEguiremos investigando..