1:
2:

if aRating <> -1 then newFrame.SetRating(aEMail, newRating);
if aCounter <> -1 then newFrame.SetRating(aEMail, newCounter);                    

1:
2:

if aRating <> -1 then newFrame.SetRating(aEMail, newRating);
if aCounter <> -1 then newFrame.SetPersonalPlayCounter(aEMail, newCounter);                    

1:
2:
3:
4:

mpegInfo := TMpegInfo.create;
mpeginfo.loadFromFile(meineDatei);
showmessage(inttostr(mpeginfo.dauer));
mpegInfo.Free;                    

1:

TBuffer = Array of byte;                    

1:
2:
3:

function GetFrameIndex(ID:integer):integer; Overload;
    function GetFrameIndex(ID:integer;Language:string;Description:string):integer; Overload;
    function GetFrameIndex(Description:TPictureFrameDesription):integer; Overload;                    

1:
2:
3:

[optional] ID3-Tag (Version 2)
[immer] Audiodaten
[optional] ID3-Tag (Version 1)                    

1:
2:
3:

meinID3v1Tag := TID3v1Tag.create;
// evtl. heißen die Routinen etwas anders
meinID3v1Tag.ReadfromFile('c:\meinmp3.mp3');                    

1:
2:
3:

meinID3v2Tag := TID3v2Tag.create;
// evtl. heißen die Routinen etwas anders
meinID3v2Tag.ReadfromFile('c:\meinmp3.mp3');                    

1:
2:

if meinID3v1Tag.exists then showmessage('ID3-Tag in Version 1 vorhanden');
if meinID3v2Tag.exists then showmessage('ID3-Tag in Version 2 vorhanden');                    

1:
2:
3:
4:
5:
6:

meinID3v1Tag := TID3v1Tag.create;
meinID3v2Tag := TID3v2Tag.create;
meinID3v1Tag.ReadFromFile('C:\Klassik\Eine kleine Nachtmusik.mp3')
meinID3v2Tag.ReadFromFile('C:\Kinderlieder\Hänschen klein.mp3');
meinID3v1Tag.WriteToFile('C:\Metal\Metallica\Nothing Else Matters.mp3');
meinID3v2Tag.WriteToFile('C:\Metal\Metallica\Nothing Else Matters.mp3');                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

//alte Tags lesen
meinid3v1.ReadfromFile('c:\meinmp3.mp3');
meinid3v2.ReadfromFile('c:\meinmp3.mp3');
// Informationen setzen
meinid3v1.Titel := Edit1.text;
meinid3v2.Titel := Edit1.text;
meinid3v1.Artist := Edit2.text;
meinid3v2.Artist := Edit2.text;
// schreiben
meinid3v1.WriteToFile('c:\meinmp3.mp3');
meinid3v2.WriteToFile('c:\meinmp3.mp3');                    

1:
2:
3:
4:
5:

if meinid3v1.exists then meinid3v1.WriteToFile('c:\meinmp3.mp3');
if meinid3v2.exists then meinid3v2.WriteToFile('c:\meinmp3.mp3');
//oder auch:
if WriteID3v1Checkbox.Checked then meinid3v1.WriteToFile('c:\meinmp3.mp3');
if WriteID3v2Checkbox.Checked then meinid3v2.WriteToFile('c:\meinmp3.mp3');                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

// WE UNIT
{$DEFINE USE_TNT_COMPOS}
uses
  SysUtils, Classes, Windows {$IFDEF USE_TNT_COMPOS}, tntcompo1, tntcompo2{$ENDIF};

type
  {$IFNDEF USE_TNT_COMPOS}
  TTNTFileStream = TFileStream;
  {$ENDIF} 
//--------------------------------------------------------------------   }
// Teil 1: Allgemeine Hilfstypen
//--------------------------------------------------------------------

...

//zeile 606
{$IFNDEF USE_TNT_COMPOS}
function  WideFileExists(s:string):boolean;
begin
  result := fileexists(s);
end;
{$ENDIF}                    

1:
2:
3:

    // Schritt 1: Test, ob hier ein Mpeg-Header beginnt.
    // ---------------------------------------------------------------------------
    tmpMpegHeader := GetValidatedHeader(Buffer, bufferpos);                    

1:

Result.bitrate := MPEG_BIT_RATES[Result.version][Result.layer][bitrateindex];                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

  // ID3v2-Tag auslesen
  Id3v2Tag.ReadFromStream(FS);

  // Position neu setzen
  if Not Id3v2Tag.exists then                                <= Ja, der Tag existiert
    FS.Seek(0, sobeginning)
  else
    FS.Seek(Id3v2Tag.size, soFromBeginning);                 <= Position des Streams NICHT null

  // MPEG-Informationen lesen
  MpegInfo.LoadFromStream(FS);                               <= Auslesen ist OK                    

1:
2:

  // MPEG-Informationen lesen                                // Ohne vorher ID3-Tag lesen, StreamPosition am Anfang=0
  MpegInfo.LoadFromStream(FS);                               <= Auslesen erzeugt manchmal Exception                    

1:
2:
3:
4:
5:

if result.version=0 then
begin
  result.valid := false; // Bad Value !
  exit;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

function TMpegInfo.GetValidatedHeader(aBuffer: TBuffer; position: integer): TMpegheader;

   ... bla bla ...

  Result.Layer := 4-((abuffer[position+1] shr 1) and 3);
  Result.protection := (abuffer[position+1] AND 1)=0;

// 27.09.2006 TK >>
  if (Result.version = 0) or (Result.Layer = 4) then
  begin
    Result.valid := False;
    Exit;
  end;
// 27.09.2006 TK <<

  // Byte 3: EEEEFFGH
  // E: Bitrate-Index

   ... bla bla ...                    

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:

function TID3v2Tag.ReadFrames(From: LongInt; Stream: TStream): TMP3Error;

   ... bla bla ...

        with FFrames[newframeIDX] do // im Array speichern
        begin
          // Header kopieren
          setLength(Header,length(aHeader));
          move(aHeader[0], Header[0], length(Header));
          // Daten kopieren
// 30.10.2006 TK >>
          //SetLength(Data, FrameSize);             // org. Code   
          //Stream.ReadBuffer(Data[0], FrameSize);  // org. Code <= Fehler, wenn 
                                                    //              FrameSize=0 !!
          Data := nil;                              // Bugfix
          if FrameSize > 0 then                     // Bugfix
          begin                                     // Bugfix
            SetLength(Data, FrameSize);             // Bugfix 
            Stream.ReadBuffer(Data[0], FrameSize);  // Bugfix
          end;                                      // Bugfix
// 30.10.2006 TK <<
          //Im Gegensatz zu UltimaTag ist hier das Encoding-Byte enthalten!!!}
          // restliche Infos setzen
          FFrameID := FrameIDstr;
          FSize := FrameSize;
        end;

   ... bla bla ...

end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

function TMpegInfo.GetXingHeader(aMpegheader: TMpegHeader; aBuffer: TBuffer; position: integer ): TXingHeader;

  ...bla...

// 30.10.2006 TK >>
  if Length(abuffer) <= (position + xing_offset + 11) then
  begin
    Result.valid := False;
    Exit;
  end;
// 30.10.2006 TK <<

  if (abuffer[position+xing_offset]=$58)        {'Xing'}
     AND (abuffer[position+xing_offset+1]=$69)
     AND (abuffer[position+xing_offset+2]=$6E)
     AND (abuffer[position+xing_offset+3]=$67)
     then // Xing Tag vorhanden
  begin

  ...bla...
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:

        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 + '@'));                    

1:

FPadding := GetPaddingSize(AudioDataSize + FDataSize + v1AdditionalPadding, FFilename, FUseClusteredPadding);                    

1:

FPadding := GetPaddingSize(AudioDataSize + FDataSize + v1AdditionalPadding, FrameName, FUseClusteredPadding);                    

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:

function GetPaddingSize(DataSize: Int64; aFilename: WideString; UseClusterSize: Boolean): Cardinal;
var
   Drive: string;
   ClusterSize           : Cardinal;
   SectorPerCluster      : Cardinal;
   BytesPerSector        : Cardinal;
   NumberOfFreeClusters  : Cardinal;
   TotalNumberOfClusters : Cardinal;
begin
  Drive := WideExtractFileDrive(aFileName);
  if UseClusterSize  and (trim(Drive) <> '')  then
  begin
      if Drive[Length(Drive)]<>'\' then Drive := Drive+'\';
      try
          if GetDiskFreeSpace(PChar(Drive),
                              SectorPerCluster,
                              BytesPerSector,
                              NumberOfFreeClusters,
                              TotalNumberOfClusters) then
            ClusterSize := SectorPerCluster * BytesPerSector
          else
            ClusterSize := 2048;
      except
        ClusterSize := 2048;
      end;
  end else
    ClusterSize := 2048;
  Result := (((DataSize DIV ClusterSize) + 1) * Clustersize) - DataSize;
end;                    

1:

if Drive[Length(Drive)]<>'\' then Drive := Drive+'\';                    

1:
2:
3:
4:

mpegInfo:=TMpegInfo.create;
mpeginfo.loadFromFile(playlist1.Items[0]);
label3.Caption:=(inttostr(mpeginfo.dauer));
mpegInfo.Free;                    

1:
2:
3:
4:

Id3v2Tag:=TId3v2Tag.Create;
Id3v2Tag.ReadFromFile(playlist1.Items[0]);
label4.Caption:=id3v2tag.artist;
id3v2tag.Free;                    

1:

myAlbumInterpret := myID3v2Tag.GetText(IDv2_BANDACCOMPANIMENT);                    

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

[DCC Warnung] Id3v2Frames.pas(1092): W1000 Symbol 'UTF8Decode' ist veraltet : 'Use UTF8ToWideString or UTF8ToString'
[DCC Warnung] Id3v2Frames.pas(1092): W1058 Implizite String-Umwandlung mit potenziellem Datenverlust von 'string' zu 'RawByteString'
[DCC Hinweis] MP3FileUtils.pas(296): H2365 Schreibweise der Überschreiben-Methode TID3v1Tag.destroy muss exakt ihrem Vorfahren TObject.Destroy entsprechen
[DCC Hinweis] MP3FileUtils.pas(734): H1054 You should change the default rating description for your projects
[DCC Warnung] MP3FileUtils.pas(777): W1050 WideChar in Set-Ausdrücken auf ByteChar verkürzt.  Ziehen Sie die Verwendung der Funktion 'CharInSet' aus der Unit 'SysUtils' in Betracht.
[DCC Fehler] MP3FileUtils.pas(981): E2008 Inkompatible Typen
[DCC Fehler] MP3FileUtils.pas(982): E2008 Inkompatible Typen
[DCC Fehler] MP3FileUtils.pas(983): E2008 Inkompatible Typen                    

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

         stream := TFileStream.Create(memo1.Lines.Strings[i], fmOpenRead or fmShareDenyWrite);
         id3v2Tag.ReadFromStream(stream);    <--------- ACCESS VIOLATION gets thrown.
         if Not Id3v2Tag.exists then
          stream.Seek(0, sobeginning)
          else
          stream.Seek(Id3v2Tag.size, soFromBeginning);
          stream.Free;                    

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:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:

compiled with     : Delphi 2009
madExcept version : 3.0l
callstack crc     : $9b971e14, $cf1ff7a6, $cf1ff7a6
exception number  : 1
exception class   : EAccessViolation
exception message : Access violation at address 004EDE70 in module 'DmVinnyMp3Tools.exe'. Write of address 00000009.

main thread ($ec4):
004ede70 +000 DmVinnyMp3Tools.exe Mp3FileUtils    2036  +0 TID3v2Tag.Clear
004ed68e +00a DmVinnyMp3Tools.exe Mp3FileUtils    1649  +2 TID3v2Tag.ReadFromStream
004f53c1 +349 DmVinnyMp3Tools.exe Unit4            217 +35 TForm4.Button1Click
004c2c33 +06f DmVinnyMp3Tools.exe Controls                 TControl.Click
00496786 +01e DmVinnyMp3Tools.exe StdCtrls                 TCustomButton.Click
004971e8 +010 DmVinnyMp3Tools.exe StdCtrls                 TCustomButton.CNCommand
004c26ca +2d2 DmVinnyMp3Tools.exe Controls                 TControl.WndProc
004c6bcf +513 DmVinnyMp3Tools.exe Controls                 TWinControl.WndProc
0049644c +06c DmVinnyMp3Tools.exe StdCtrls                 TButtonControl.WndProc
004c22f0 +024 DmVinnyMp3Tools.exe Controls                 TControl.Perform
004c6d1f +023 DmVinnyMp3Tools.exe Controls                 DoControlMsg
004c771b +00b DmVinnyMp3Tools.exe Controls                 TWinControl.WMCommand
004dcc34 +02c DmVinnyMp3Tools.exe Forms                    TCustomForm.WMCommand
004c26ca +2d2 DmVinnyMp3Tools.exe Controls                 TControl.WndProc
004c6bcf +513 DmVinnyMp3Tools.exe Controls                 TWinControl.WndProc
004d9c58 +594 DmVinnyMp3Tools.exe Forms                    TCustomForm.WndProc
0047c028 +014 DmVinnyMp3Tools.exe Classes                  StdWndProc
004c62e8 +02c DmVinnyMp3Tools.exe Controls                 TWinControl.MainWndProc
0047c028 +014 DmVinnyMp3Tools.exe Classes                  StdWndProc
7569cd7c +047 USER32.dll                                   SendMessageW
756a0ad1 +016 USER32.dll                                   CallWindowProcW
004c6ccb +0d7 DmVinnyMp3Tools.exe Controls                 TWinControl.DefaultHandler
004c3050 +010 DmVinnyMp3Tools.exe Controls                 TControl.WMLButtonUp
004c26ca +2d2 DmVinnyMp3Tools.exe Controls                 TControl.WndProc
004c6bcf +513 DmVinnyMp3Tools.exe Controls                 TWinControl.WndProc
0049644c +06c DmVinnyMp3Tools.exe StdCtrls                 TButtonControl.WndProc
004c62e8 +02c DmVinnyMp3Tools.exe Controls                 TWinControl.MainWndProc
0047c028 +014 DmVinnyMp3Tools.exe Classes                  StdWndProc
75697df5 +00a USER32.dll                                   DispatchMessageW
004e216f +0f3 DmVinnyMp3Tools.exe Forms                    TApplication.ProcessMessage
004e21b2 +00a DmVinnyMp3Tools.exe Forms                    TApplication.HandleMessage
004e24dd +0c9 DmVinnyMp3Tools.exe Forms                    TApplication.Run
00500ef2 +06e DmVinnyMp3Tools.exe DmVinnyMp3Tools   26  +7 initialization
75e43675 +010 kernel32.dll                                 BaseThreadInitThunk

modules:
00400000 DmVinnyMp3Tools.exe                    D:\[_APPLICATIONS AND UTILITIES_]\[PROGRAMMING]\[[_DELPHI PROJECT FILES_]]\DELPHI PROJECTS\CD CATALOGER
6dff0000 mpr.dll             6.1.7600.16385     C:\windows\system32
6e140000 DUser.dll           6.1.7600.16385     C:\windows\system32
6e690000 msimg32.dll         6.1.7600.16385     C:\windows\system32
71ed0000 dwmapi.dll          6.1.7600.16385     C:\windows\system32
728c0000 uxtheme.dll         6.1.7600.16385     C:\windows\system32
73260000 comctl32.dll        6.10.7600.16385    C:\windows\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.7600.16385_none_421189da2b7fabfc
73400000 winmm.dll           6.1.7600.16385     C:\windows\system32
735f0000 version.dll         6.1.7600.16385     C:\windows\system32
739a0000 wsock32.dll         6.1.7600.16385     C:\windows\system32
74dd0000 CRYPTBASE.dll       6.1.7600.16385     C:\windows\syswow64
74de0000 SspiCli.dll         6.1.7600.16484     C:\windows\syswow64
74e40000 RPCRT4.dll          6.1.7600.16385     C:\windows\syswow64
74f30000 NSI.dll             6.1.7600.16385     C:\windows\syswow64
74f40000 IMM32.DLL           6.1.7600.16385     C:\windows\system32
74fa0000 ADVAPI32.dll        6.1.7600.16385     C:\windows\syswow64
75260000 MSCTF.dll           6.1.7600.16385     C:\windows\syswow64
75330000 msvcrt.dll          7.0.7600.16385     C:\windows\syswow64
753f0000 comdlg32.dll        6.1.7600.16385     C:\windows\syswow64
75680000 USER32.dll          6.1.7600.16385     C:\windows\syswow64
75780000 SHLWAPI.dll         6.1.7600.16385     C:\windows\syswow64
757e0000 CLBCatQ.DLL         2001.12.8530.16385 C:\windows\syswow64
75870000 GDI32.dll           6.1.7600.16385     C:\windows\syswow64
75900000 USP10.dll           1.626.7600.16385   C:\windows\syswow64
759a0000 LPK.dll             6.1.7600.16385     C:\windows\syswow64
759b0000 ole32.dll           6.1.7600.16385     C:\windows\syswow64
75df0000 WS2_32.dll          6.1.7600.16385     C:\windows\syswow64
75e30000 kernel32.dll        6.1.7600.16385     C:\windows\syswow64
75fe0000 shell32.dll         6.1.7600.16644     C:\windows\syswow64
76c30000 KERNELBASE.dll      6.1.7600.16385     C:\windows\syswow64
76d70000 oleaut32.dll        6.1.7600.16567     C:\windows\syswow64
76e00000 sechost.dll         6.1.7600.16385     C:\windows\SysWOW64
77270000 ntdll.dll           6.1.7600.16559     C:\windows\SysWOW64



cpu registers:
eax = 00000000
ebx = 00000000
ecx = 00000000
edx = 01e06de8
esi = 00000000
edi = 01e06de8
eip = 004ede70
esp = 0018f4f4
ebp = 0018f570

stack dump:
0018f4f4  93 d6 4e 00 70 f5 18 00 - d0 2e d4 01 5c 1d 49 00  ..N.p.......\.I.
0018f504  00 00 00 00 c6 53 4f 00 - ec f8 18 00 5c 4b 40 00  .....SO.....\K@.
0018f514  70 f5 18 00 10 f7 18 00 - 68 67 49 00 40 9d d2 01  p.......hgI.@...
0018f524  00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00  ................
0018f534  00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00  ................
0018f544  00 00 00 00 00 00 00 00 - 00 00 00 00 00 00 00 00  ................
0018f554  0e 00 00 00 e8 6d e0 01 - e8 cd df 01 0c 00 00 00  .....m..........
0018f564  00 00 00 00 00 00 00 00 - 00 00 00 00 b4 f6 18 00  ................
0018f574  39 2c 4c 00 40 9d d2 01 - 8b 67 49 00 10 f7 18 00  9,L.@....gI.....
0018f584  ed 71 49 00 40 9d d2 01 - cd 26 4c 00 10 f7 18 00  .qI.@....&L.....
0018f594  1c f9 18 00 40 9d d2 01 - 27 70 69 75 5f f8 28 73  ....@...'piu_.(s
0018f5a4  d8 08 41 00 00 00 00 00 - 00 00 00 00 2b f8 28 73  ..A.........+.(s
0018f5b4  0b f9 28 73 30 7a 96 00 - fc f5 18 00 00 00 00 00  ..(s0z..........
0018f5c4  30 7a 96 00 00 00 00 00 - 00 00 00 00 00 00 00 00  0z..............
0018f5d4  00 00 00 00 2b f8 28 73 - 01 00 00 00 78 f6 18 00  ....+.(s....x...
0018f5e4  00 00 00 00 f4 f5 18 00 - d8 08 41 00 00 00 00 00  ..........A.....
0018f5f4  00 00 00 00 b4 88 f5 22 - 28 f6 18 00 38 62 69 75  ......."(...8biu
0018f604  d8 08 41 00 15 02 00 00 - 00 00 00 00 00 00 00 00  ..A.............
0018f614  2b f8 28 73 cd ab ba dc - 00 00 00 00 00 00 00 00  +.(s............
0018f624  2b f8 28 73 38 f6 18 00 - 54 f6 18 00 30 02 70 75  +.(s8...T...0.pu

disassembling:
004ede70      public Mp3FileUtils.TID3v2Tag.Clear:  ; function entry point
004ede70 2036 > mov     byte ptr [eax+9], 3
004ede74 2037   mov     byte ptr [eax+$a], 0
004ede78 2038   xor     edx, edx
004ede7a        mov     [eax+$18], edx
004ede7d 2039   xor     edx, edx
[...]