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;