1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

        try
          TmpStream.Seek(0, soFromBeginning);
          if StreamToStream(Stream, TmpStream, Stream.Size -
                                Stream.Position) <> MP3ERR_None then
          begin
            result := ID3ERR_Cache;
            Exit;
          end;

          // shorten the file by the size of the tag
          Stream.Seek(-FTagSize, soFromEnd);
          SetEndOfFile((Stream as TFileStream).Handle);

          // return the audio data to the stream
          Stream.Seek(0, soFromBeginning);
          TmpStream.Seek(0, soFromBeginning);
          if StreamToStream(TmpStream, Stream, TmpStream.Size) <> MP3ERR_None then
          begin
            result := ID3ERR_Cache;
            Exit;
          end;
        except
          on EWriteError do result := MP3ERR_SWrite;
          on E: Exception do
          begin                              // hier lande ich .....
            result := ID3ERR_Unclassified;
            MessageBox(0, PChar(E.Message), PChar('Error'), MB_OK or MB_ICONERROR or MB_TASKMODAL or MB_SETFOREGROUND);
          end;
        end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:

procedure ConvertPic(stream:TMemoryStream; delete:Boolean=false);
var
  tag:TID3v2Tag;
  PictureDescriptions: TPictureFrameDescriptionArray;
  i:Integer;
  sList:TSTringList;
  jpg:TJPEGImage;
  picture:TPicture;
  picStream:TMemoryStream;
begin
  picture:=TPicture.Create;
  tag:=TID3v2Tag.Create;
  sList:=TStringList.Create;
  try
    stream.Position:=0;
    tag.ReadFromstream(stream);
    if tag.exists then
    begin
      //Load Picture
      PictureDescriptions := Tag.GetAllPictureFrameDescriptions;
      sList.Clear;
      for i:=0 to length(PictureDescriptions)-1 do
        try
          sList.Add(Picture_Types[PictureDescriptions[i].bildtyp] +  ' [' + PictureDescriptions[i].Description + '] ');
        except
          sList.Add(Picture_Types[0] +  ' [' + PictureDescriptions[i].Description + '] ');
        end;
      if sList.Count > 0 then
      begin
        PicStream := TMemoryStream.Create;
        try
          Tag.GetPicture(PicStream, PictureDescriptions[0]);
          PicStream.Seek(0, soFromBeginning);
          try
            LoadPic(PicStream,Picture);
          except
            Picture.Assign(NIL);
          end;
        finally
          PicStream.Free;
        end;

        //Delete pic?
        if delete then
        begin
          for I := 0 to sList.Count do
            Tag.DeletePicture(PictureDescriptions[i]);
          Stream.Position:=0;
          Tag.WriteToStream(stream);
        end
        else
        begin
          PicStream:=TMemoryStream.Create;
          //Convert raw data to JPEG
          jpg:=TJPEGImage.Create;
          jpg.Assign(Picture.Bitmap);
          jpg.SaveToStream(PicStream);
          PicStream.Position:=0;
          Tag.SetPicture(PicStream,PictureDescriptions[0]);
          Stream.Position:=0;
          Tag.WriteToStreaM(Stream);
          jpg.Free;
          PicStream.Free;
        end;
      end
      else begin
        Picture.Assign(NIL);
      end;
    end;
  finally
    tag.Free;
    sList.Free;
    picture.Free;
  end;
  stream.Position:=0;
end;					

1:
2:
3:
4:
5:

  // Beschreibung für Bild-Frames
  TPictureFrameDesription = record
    Description: String;
    Bildtyp: Byte;
  end;					

1:
2:
3:
4:
5:

  // Beschreibung für Bild-Frames
  TPictureFrameDescription = record 
    Description: String;
    Bildtyp: Byte;
  end;					

1:

shwomessage('Titel: ' + id3v1.Titel + ' blabla');					

1:
2:
3:
4:
5:
6:
7:
8:

function TID3v1Tag.GetTitle: WideString;
begin
  {$IFDEF USE_DIConverters}
  result := GetConvertedUnicodeText(FTitle);
  {$ELSE}
  result := WideString(PChar(string(FTitle)));
  {$ENDIF}
end;					

1:
2:

tmp := Id3v1Tag.year;
showmessage(PChar('@' + tmp + '@'));