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:

procedure TF_Main.B_CDIDClick(Sender: TObject);
 function Quersumme(i : integer): integer;
 var
 p: pchar;
 begin
  result := 0;
  p := Pchar(IntToStr(i));
  while (p^ <> #0) do
  begin
    result := result + strtoint(p^);
    Inc(p);
  end;
 end;
var
 AudioT: TADBAudioTag;
 TPlayer: TADBPlayer;

 counter: integer;

 GetTime: integer;

 Tracks: integer;  // Anzahl der Tracks
 Time: integer;    // Spielzeit der "CD"
 SQS: integer;     // berechnet aus den ("simulierten") Offset-Werten (welche die Tracks auf der Audio-CD hätten)

 _Time: real;
 CDID: string;
begin
 AudioT:= TADBAudioTag.Create(Self);
 TPlayer:= TADBPlayer.Create(Self, 1);

 Time:=0;
 _Time:= 2;

 SQS:=0;
 for counter:=0 to Listview1.Items.Count-1 do
  begin
   //AudioT.ReadTag(Listview1.Items.Item[counter].SubItems[2]);
   TPlayer.ActivePlayer.Open(Listview1.Items.Item[counter].SubItems[2]);

   //GetTime:= Ceil(AudioT.Tag.Duration_Sec);
   GetTime:= TPlayer.ActivePlayer.Length_Seconds;

   _Time:= _Time + GetTime;

   Time:= Time + round(GetTime);  //StrToInt(WStr);

   SQS:= SQS +Quersumme(ceil(_Time));
  end;

 Tracks:= Listview1.Items.Count;
 
 SQS:= (SQS mod 255);

 CDID:= IntToHex(SQS, 2)+IntToHex(Time, 4)+IntToHex(Tracks, 2);
 E_CDID.Text:= CDID;

 AudioT.Free;
 TPlayer.Free;
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:

function CreateDiscID(Verzeichnis: string; Extensions: string = '.mp3'): string;
  function Quersumme(i : integer): integer;
  var
   p: PChar;
  begin
   Result := 0;
   p := PChar(IntToStr(i));
   while (p^ <> #0) do
   begin
     Result := Result + StrToInt(p^);
     Inc(p);
   end;
  end;
var
 AudioT: TADBAudioTagAlt;
 counter: integer;
 GetTime: integer;
 Tracks: integer;
 Time: integer;
 SQS: integer;
 Offset:  integer;
 OffSetS: string;
 Quer: integer;
 CDID: string;
 Search: TSearchTool;
 SearchEXT: string;
 FileCount: integer;
begin
 Result:= '';

 Search:= TSearchTool.Create;
 Search.SetFilter(Extensions);
 Search.Recurse:= False;
 Search.SearchFiles(Verzeichnis);

 if Search.FilesCount= 0 then
  Exit;

 AudioT:= TADBAudioTagAlt.Create(Owner);

 Offset:= 150;
 for counter:=0 to Search.FilesCount-1 do
  begin
   if AudioT.ReadTag(Search.Files[counter])then
    begin
     Quer:= Quer + Quersumme(Time);
     GetTime:= round(AudioT.AudioTag.Duration_Sec);
     Time:= Time + GetTime;
     OffsetS:= OffsetS+ IntToStr(Offset)+' ';
     Offset:= Time *75;
     Inc(FileCount);
    end;
  end;

 if FileCount> 0 then
  begin
   Tracks:= FileCount;
   SQS:= (Quer mod 255);
   CDID:= IntToHex(SQS, 2)+IntToHex(Time, 4)+IntToHex(Tracks, 2);
   CDID:= LowerCase(CDID)+' '+IntToStr(Tracks)+' '+OffsetS+IntToStr(Time);
   Result:= CDID;
  end;
 AudioT.Free;
 Search.Free;
end;