paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-20 18:09:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixes newer protocol versions of year and genre, Mantis #21623

Browse Source 
git-svn-id: trunk@20693 -
This commit is contained in:
marco 2012-04-02 11:52:40 +00:00
parent f8e33a7a9c
commit e7e486c38a
1 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
packages/cdrom/src/fpcddb.pp
View File

@ -12,6 +12,18 @@
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{
Some notes:
Disc.Year and Disc.Genre only have values if proto = 5 or above as specified in the request.
With protocol 5 and under the responses are in ISO-8859-1. In version 6 it's UTF-8
A more complete explanation of the protocol can be found here:
http://ftp.freedb.org/pub/freedb/latest/CDDBPROTO
}
unit fpcddb;
{$mode objfpc}{$H+}
@ -64,6 +76,7 @@ Type
private
FDiskID: Integer;
FExtra: String;
FGenre: String;
FPerformer: String;
FPlayOrder: String;
FTitle: String;
@ -81,9 +94,10 @@ Type
Property IntDiscID : Integer Read FDiskID Write FDiskID;
Published
Property PlayOrder : String Read FPlayOrder Write FPlayOrder;
Property Year : Word Read FYear Write FYear;
Property Year : Word Read FYear Write FYear; // proto=5
Property Title : String Read FTitle Write FTitle;
Property Performer : String Read FPerformer Write FPerformer;
Property Genre : String Read FGenre write FGenre; //proto=5
Property Extra : String Read FExtra Write FExtra;
Property DiscID : String Read GetDiskID Write SetDiskID;
property Tracks : TCDTracks Read FTracks Write SetTracks;
@ -444,6 +458,14 @@ begin
FDisk.Title:=T;
FDisk.Performer:=A;
end
else if (L='DYEAR') then
begin
FDisk.Year:=StrToIntDef(Trim(Args),0);
end
else if (L='DGENRE') then
begin
FDisk.Genre:=Trim(Args);
end
else if (L='EXTD') then
ParseExtraDiskData(Args)
else if (Copy(L,1,6)='TTITLE') then