{----------------------------------------------------------------------------- The contents of this file are subject to the Mozilla Public License Version 1.1 (the "License"); you may not use this file except in compliance with the License. You may obtain a copy of the License at http://www.mozilla.org/MPL/MPL-1.1.html Software distributed under the License is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for the specific language governing rights and limitations under the License. The Original Code is: JvID3v2.PAS, released on 2001-02-28. The Initial Developer of the Original Code is Sébastien Buysse [sbuysse att buypin dott com] Portions created by Sébastien Buysse are Copyright (C) 2001 Sébastien Buysse. All Rights Reserved. Contributor(s): Michael Beck [mbeck att bigfoot dott com]. You may retrieve the latest version of this file at the Project JEDI's JVCL home page, located at http://jvcl.delphi-jedi.org Known Issues: -----------------------------------------------------------------------------} // $Id$ unit JvId3v2; {$mode objfpc}{$H+} interface uses Classes, Graphics, Controls, (* {$IFNDEF COMPILER12_UP} JclUnicode, {$ENDIF ~COMPILER12_UP} *) JvId3v2Types, JvID3v2Base; type TJvID3Persistent = class(TPersistent) private FController: TJvID3Controller; public constructor Create(AController: TJvID3Controller); end; TJvID3Text = class(TJvID3Persistent) private FDummyList: TStrings; //FDummyList: {$IFDEF COMPILER12_UP}TStrings{$ELSE}TWideStrings{$ENDIF COMPILER12_UP}; function GetDateTime(const FrameID: TJvID3FrameID): TDateTime; function GetList(const FrameID: TJvID3FrameID): TStrings; //function GetList(const FrameID: Integer{TJvID3FrameID}): {$IFDEF COMPILER12_UP}TStrings{$ELSE}TWideStrings{$ENDIF COMPILER12_UP}; function GetNumber(const FrameID: TJvID3FrameID): Cardinal; //function GetText(const FrameID: Integer{TJvID3FrameID}): WideString; function GetText(const FrameID: TJvID3FrameID): String; procedure SetDateTime(const FrameID: TJvID3FrameID; const Value: TDateTime); procedure SetList(const FrameID: TJvID3FrameID; const Value: TStrings); //procedure SetList(const FrameID: Integer{TJvID3FrameID}; const Value: {$IFDEF COMPILER12_UP}TStrings{$ELSE}TWideStrings{$ENDIF COMPILER12_UP}); procedure SetNumber(const FrameID: TJvID3FrameID; const Value: Cardinal); //procedure SetText(const FrameID: Integer{TJvID3FrameID}; const Value: WideString); procedure SetText(const FrameID: TJvID3FrameID; const Value: String); function GetBPM: Cardinal; procedure SetBPM(const Value: Cardinal); public constructor Create(AController: TJvID3Controller); destructor Destroy; override; published { Do not store dummies } //property Album: WideString index fiAlbum read GetText write SetText stored False; property Album: String index fiAlbum read GetText write SetText stored False; //property AlbumSortOrder: WideString index fiAlbumSortOrder read GetText write SetText stored False; property AlbumSortOrder: String index fiAlbumSortOrder read GetText write SetText stored False; property Band: String index fiBand read GetText write SetText stored False; //property Band: WideString index fiBand read GetText write SetText stored False; property BPM: Cardinal read GetBPM write SetBPM stored False; property BPMStr: String index fiBPM read GetText write SetText stored False; //property BPMStr: WideString index fiBPM read GetText write SetText stored False; property Composer: TStrings index fiComposer read GetList write SetList stored False; //property Composer: {$IFDEF COMPILER12_UP}TStrings{$ELSE}TWideStrings{$ENDIF COMPILER12_UP} index fiComposer read GetList write SetList stored False; property Conductor: String index fiConductor read GetText write SetText stored False; //property Conductor: WideString index fiConductor read GetText write SetText stored False; property ContentType: TStrings index fiContentType read GetList write SetList stored False; //property ContentType: {$IFDEF COMPILER12_UP}TStrings{$ELSE}TWideStrings{$ENDIF COMPILER12_UP} index fiContentType read GetList write SetList stored False; property ContentGroup: String index fiContentGroup read GetText write SetText stored False; //property ContentGroup: WideString index fiContentGroup read GetText write SetText stored False; property Copyright: String index fiCopyright read GetText write SetText stored False; //property Copyright: WideString index fiCopyright read GetText write SetText stored False; property Date: String index fiDate read GetText write SetText stored False; //property Date: WideString index fiDate read GetText write SetText stored False; property EncodedBy: String index fiEncodedBy read GetText write SetText stored False; //property EncodedBy: WideString index fiEncodedBy read GetText write SetText stored False; property EncoderSettings: String index fiEncoderSettings read GetText write SetText stored False; //property EncoderSettings: WideString index fiEncoderSettings read GetText write SetText stored False; property EncodingTime: TDateTime index fiEncodingTime read GetDateTime write SetDateTime stored False; property FileOwner: String index fiFileOwner read GetText write SetText stored False; //property FileOwner: WideString index fiFileOwner read GetText write SetText stored False; property FileType: String index fiFileType read GetText write SetText stored False; //property FileType: WideString index fiFileType read GetText write SetText stored False; property InitialKey: String index fiInitialKey read GetText write SetText stored False; //property InitialKey: WideString index fiInitialKey read GetText write SetText stored False; property ISRC: String index fiISRC read GetText write SetText stored False; //property ISRC: WideString index fiISRC read GetText write SetText stored False; property Language: TStrings index fiLanguage read GetList write SetList stored False; //property Language: {$IFDEF COMPILER12_UP}TStrings{$ELSE}TWideStrings{$ENDIF COMPILER12_UP} index fiLanguage read GetList write SetList stored False; property LeadArtist: TStrings index fiLeadArtist read GetList write SetList stored False; //property LeadArtist: {$IFDEF COMPILER12_UP}TStrings{$ELSE}TWideStrings{$ENDIF COMPILER12_UP} index fiLeadArtist read GetList write SetList stored False; property Lyricist: TStrings index fiLyricist read GetList write SetList stored False; //property Lyricist: {$IFDEF COMPILER12_UP}TStrings{$ELSE}TWideStrings{$ENDIF COMPILER12_UP} index fiLyricist read GetList write SetList stored False; property MediaType: String index fiMediaType read GetText write SetText stored False; //property MediaType: WideString index fiMediaType read GetText write SetText stored False; property MixArtist: String index fiMixArtist read GetText write SetText stored False; //property MixArtist: WideString index fiMixArtist read GetText write SetText stored False; property Mood: String index fiMood read GetText write SetText stored False; //property Mood: WideString index fiMood read GetText write SetText stored False; property NetRadioOwner: String index fiNetRadioOwner read GetText write SetText stored False; //property NetRadioOwner: WideString index fiNetRadioOwner read GetText write SetText stored False; property NetRadioStation: String index fiNetRadioStation read GetText write SetText stored False; //property NetRadioStation: WideString index fiNetRadioStation read GetText write SetText stored False; property OrigAlbum: String index fiOrigAlbum read GetText write SetText stored False; //property OrigAlbum: WideString index fiOrigAlbum read GetText write SetText stored False; property OrigArtist: TStrings index fiOrigArtist read GetList write SetList stored False; //property OrigArtist: {$IFDEF COMPILER12_UP}TStrings{$ELSE}TWideStrings{$ENDIF COMPILER12_UP} index fiOrigArtist read GetList write SetList stored False; property OrigFileName: String index fiOrigFileName read GetText write SetText stored False; //property OrigFileName: WideString index fiOrigFileName read GetText write SetText stored False; property OrigLyricist: TStrings index fiOrigLyricist read GetList write SetList stored False; //property OrigLyricist: {$IFDEF COMPILER12_UP}TStrings{$ELSE}TWideStrings{$ENDIF COMPILER12_UP} index fiOrigLyricist read GetList write SetList stored False; property OrigReleaseTime: TDateTime index fiOrigReleaseTime read GetDateTime write SetDateTime stored False; property OrigYear: Cardinal index fiOrigYear read GetNumber write SetNumber stored False; property PartInSet: String index fiPartInSet read GetText write SetText stored False; //property PartInSet: WideString index fiPartInSet read GetText write SetText stored False; property PerformerSortOrder: String index fiPerformerSortOrder read GetText write SetText stored False; //property PerformerSortOrder: WideString index fiPerformerSortOrder read GetText write SetText stored False; property PlaylistDelay: Cardinal index fiPlaylistDelay read GetNumber write SetNumber stored False; property ProducedNotice: String index fiProducedNotice read GetText write SetText stored False; //property ProducedNotice: WideString index fiProducedNotice read GetText write SetText stored False; property Publisher: String index fiPublisher read GetText write SetText stored False; //property Publisher: WideString index fiPublisher read GetText write SetText stored False; property RecordingDates: String index fiRecordingDates read GetText write SetText stored False; //property RecordingDates: WideString index fiRecordingDates read GetText write SetText stored False; property RecordingTime: TDateTime index fiRecordingTime read GetDateTime write SetDateTime stored False; property ReleaseTime: TDateTime index fiReleaseTime read GetDateTime write SetDateTime stored False; property SetSubTitle: String index fiSetSubTitle read GetText write SetText stored False; //property SetSubTitle: WideString index fiSetSubTitle read GetText write SetText stored False; property Size: Cardinal index fiSize read GetNumber write SetNumber stored False; property SongLen: Cardinal index fiSongLen read GetNumber write SetNumber stored False; property SubTitle: String index fiSubTitle read GetText write SetText stored False; //property SubTitle: WideString index fiSubTitle read GetText write SetText stored False; property TaggingTime: TDateTime index fiTaggingTime read GetDateTime write SetDateTime stored False; property Time: String index fiTime read GetText write SetText stored False; //property Time: WideString index fiTime read GetText write SetText stored False; property Title: String index fiTitle read GetText write SetText stored False; //property Title: WideString index fiTitle read GetText write SetText stored False; property TitleSortOrder: String index fiTitleSortOrder read GetText write SetText stored False; //property TitleSortOrder: WideString index fiTitleSortOrder read GetText write SetText stored False; property TrackNum: String index fiTrackNum read GetText write SetText stored False; //property TrackNum: WideString index fiTrackNum read GetText write SetText stored False; property Year: Cardinal index fiYear read GetNumber write SetNumber stored False; end; TJvID3Web = class(TJvID3Persistent) private function GetText(const FrameID: TJvID3FrameID): AnsiString; procedure SetText(const FrameID: TJvID3FrameID; const Value: AnsiString); published { Do not store dummies } property Artist: AnsiString index fiWWWArtist read GetText write SetText stored False; property AudioFile: AnsiString index fiWWWAudioFile read GetText write SetText stored False; property AudioSource: AnsiString index fiWWWAudioSource read GetText write SetText stored False; property CommercialInfo: AnsiString index fiWWWCommercialInfo read GetText write SetText stored False; property Copyright: AnsiString index fiWWWCopyright read GetText write SetText stored False; property Payment: AnsiString index fiWWWPayment read GetText write SetText stored False; property Publisher: AnsiString index fiWWWPublisher read GetText write SetText stored False; property RadioPage: AnsiString index fiWWWRadioPage read GetText write SetText stored False; end; TJvID3UDText = class(TJvID3Persistent) private FDummyI: Integer; FItemIndex: Integer; //function GetDescription: WideString; function GetDescription: String; function GetItemCount: Integer; function GetItemIndex: Integer; //function GetValue: WideString; function GetValue: String; //procedure SetDescription(const Value: WideString); procedure SetDescription(const Value: String); procedure SetItemIndex(const Value: Integer); procedure SetValue(const Value: String); //procedure SetValue(const Value: WideString); public procedure Add(const ADescription, AValue: String); //procedure Add(const ADescription, AValue: WideString); published property ItemIndex: Integer read GetItemIndex write SetItemIndex; { Do not store dummies } //property Description: WideString read GetDescription write SetDescription stored False; //property Value: WideString read GetValue write SetValue stored False; property Description: String read GetDescription write SetDescription stored False; property Value: String read GetValue write SetValue stored False; property ItemCount: Integer read GetItemCount write FDummyI stored False; end; TJvID3UDUrl = class(TJvID3Persistent) private FItemIndex: Integer; FDummyI: Integer; //function GetDescription: WideString; function GetDescription: String; function GetItemCount: Integer; function GetItemIndex: Integer; function GetURL: AnsiString; procedure SetDescription(const Value: String); //procedure SetDescription(const Value: WideString); procedure SetItemIndex(const Value: Integer); procedure SetURL(const Value: AnsiString); public procedure Add(const ADescription: String; const AURL: AnsiString); //procedure Add(const ADescription: WideString; const AURL: AnsiString); published property ItemIndex: Integer read GetItemIndex write SetItemIndex; { Do not store dummies } //property Description: WideString read GetDescription write SetDescription stored False; property Description: String read GetDescription write SetDescription stored False; property URL: AnsiString read GetURL write SetURL stored False; property ItemCount: Integer read GetItemCount write FDummyI stored False; end; TJvID3Pictures = class(TJvID3Persistent) private FPictures: array[TJvID3PictureType] of TPicture; FUpdating: Boolean; function GetPicture(const AType: TJvID3PictureType): TPicture; procedure SetPicture(const AType: TJvID3PictureType; const Value: TPicture); procedure PictureChanged(Sender: TObject); procedure PictureToFrame(const AType: TJvID3PictureType); procedure RetrievePictures; procedure RemovePictures; public constructor Create(AController: TJvID3Controller); virtual; destructor Destroy; override; published property Other: TPicture index ptOther read GetPicture write SetPicture stored False; property FileIcon: TPicture index ptFileIcon read GetPicture write SetPicture stored False; property OtherFileIcon: TPicture index ptOtherFileIcon read GetPicture write SetPicture stored False; property CoverFront: TPicture index ptCoverFront read GetPicture write SetPicture stored False; property CoverBack: TPicture index ptCoverBack read GetPicture write SetPicture stored False; property LeafletPage: TPicture index ptLeafletPage read GetPicture write SetPicture stored False; property Media: TPicture index ptMedia read GetPicture write SetPicture stored False; property LeadArtist: TPicture index ptLeadArtist read GetPicture write SetPicture stored False; property Artist: TPicture index ptArtist read GetPicture write SetPicture stored False; property Conductor: TPicture index ptConductor read GetPicture write SetPicture stored False; property Band: TPicture index ptBand read GetPicture write SetPicture stored False; property Composer: TPicture index ptComposer read GetPicture write SetPicture stored False; property Lyricist: TPicture index ptLyricist read GetPicture write SetPicture stored False; property RecordingLocation: TPicture index ptRecordingLocation read GetPicture write SetPicture stored False; property DuringRecording: TPicture index ptDuringRecording read GetPicture write SetPicture stored False; property DuringPerformance: TPicture index ptDuringPerformance read GetPicture write SetPicture stored False; property MovieVideoScreenCapture: TPicture index ptMovieVideoScreenCapture read GetPicture write SetPicture stored False; property BrightColouredFish: TPicture index ptBrightColouredFish read GetPicture write SetPicture stored False; property Illustration: TPicture index ptIllustration read GetPicture write SetPicture stored False; property BandLogotype: TPicture index ptBandLogotype read GetPicture write SetPicture stored False; property PublisherLogotype: TPicture index ptPublisherLogotype read GetPicture write SetPicture stored False; end; TJvID3PicturesDesc = class(TJvID3Persistent) private function GetText(const AType: TJvID3PictureType): String; procedure SetText(const AType: TJvID3PictureType; const Value: String); //function GetText(const AType: Integer{TJvID3PictureType}): WideString; //procedure SetText(const AType: Integer{TJvID3PictureType}; const Value: WideString); published property Other: String index ptOther read GetText write SetText stored False; //property Other: WideString index ptOther read GetText write SetText stored False; property FileIcon: String index ptFileIcon read GetText write SetText stored False; //property FileIcon: WideString index ptFileIcon read GetText write SetText stored False; property OtherFileIcon: String index ptOtherFileIcon read GetText write SetText stored False; //property OtherFileIcon: WideString index ptOtherFileIcon read GetText write SetText stored False; property CoverFront: String index ptCoverFront read GetText write SetText stored False; //property CoverFront: WideString index ptCoverFront read GetText write SetText stored False; property CoverBack: String index ptCoverBack read GetText write SetText stored False; //property CoverBack: WideString index ptCoverBack read GetText write SetText stored False; property LeafletPage: String index ptLeafletPage read GetText write SetText stored False; //property LeafletPage: WideString index ptLeafletPage read GetText write SetText stored False; property Media: String index ptMedia read GetText write SetText stored False; //property Media: WideString index ptMedia read GetText write SetText stored False; property LeadArtist: String index ptLeadArtist read GetText write SetText stored False; //property LeadArtist: WideString index ptLeadArtist read GetText write SetText stored False; property Artist: String index ptArtist read GetText write SetText stored False; //property Artist: WideString index ptArtist read GetText write SetText stored False; property Conductor: String index ptConductor read GetText write SetText stored False; //property Conductor: WideString index ptConductor read GetText write SetText stored False; property Band: String index ptBand read GetText write SetText stored False; //property Band: WideString index ptBand read GetText write SetText stored False; property Composer: String index ptComposer read GetText write SetText stored False; //property Composer: WideString index ptComposer read GetText write SetText stored False; property Lyricist: String index ptLyricist read GetText write SetText stored False; //property Lyricist: WideString index ptLyricist read GetText write SetText stored False; property RecordingLocation: String index ptRecordingLocation read GetText write SetText stored False; //property RecordingLocation: WideString index ptRecordingLocation read GetText write SetText stored False; property DuringRecording: String index ptDuringRecording read GetText write SetText stored False; //property DuringRecording: WideString index ptDuringRecording read GetText write SetText stored False; property DuringPerformance: String index ptDuringPerformance read GetText write SetText stored False; //property DuringPerformance: WideString index ptDuringPerformance read GetText write SetText stored False; property MovieVideoScreenCapture: String index ptMovieVideoScreenCapture read GetText write SetText stored False; //property MovieVideoScreenCapture: WideString index ptMovieVideoScreenCapture read GetText write SetText stored False; property BrightColouredFish: String index ptBrightColouredFish read GetText write SetText stored False; //property BrightColouredFish: WideString index ptBrightColouredFish read GetText write SetText stored False; property Illustration: String index ptIllustration read GetText write SetText stored False; //property Illustration: WideString index ptIllustration read GetText write SetText stored False; property BandLogotype: String index ptBandLogotype read GetText write SetText stored False; //property BandLogotype: WideString index ptBandLogotype read GetText write SetText stored False; property PublisherLogotype: String index ptPublisherLogotype read GetText write SetText stored False; //property PublisherLogotype: WideString index ptPublisherLogotype read GetText write SetText stored False; end; TJvID3Images = class(TJvID3Persistent) private FPictures: TJvID3Pictures; FInfos: TJvID3PicturesDesc; public constructor Create(AController: TJvID3Controller); destructor Destroy; override; published property Pictures: TJvID3Pictures read FPictures; property Infos: TJvID3PicturesDesc read FInfos; end; TJvID3Ipl = class(TJvID3Persistent) private FDummyI: Integer; FItemIndex: Integer; function GetItemCount: Integer; function GetJob: String; //function GetJob: WideString; function GetPerson: String; //function GetPerson: WideString; procedure SetItemIndex(const Value: Integer); procedure SetJob(const Value: String); //procedure SetJob(const Value: WideString); procedure SetPerson(const Value: String); //procedure SetPerson(const Value: WideString); published property ItemIndex: Integer read FItemIndex write SetItemIndex; { Do not store dummies } property Job: String read GetJob write SetJob stored False; //property Job: WideString read GetJob write SetJob stored False; property Person: String read GetPerson write SetPerson stored False; //property Person: WideString read GetPerson write SetPerson stored False; property ItemCount: Integer read GetItemCount write FDummyI stored False; end; TJvID3Owner = class(TJvID3Persistent) private function GetDatePurchased: TDateTime; function GetPrice: AnsiString; function GetSeller: String; //function GetSeller: WideString; procedure SetDatePurchased(const Value: TDateTime); procedure SetPrice(const Value: AnsiString); procedure SetSeller(const Value: String); //procedure SetSeller(const Value: WideString); published { Do not store dummies } property Price: AnsiString read GetPrice write SetPrice stored False; property DatePurchased: TDateTime read GetDatePurchased write SetDatePurchased stored False; property Seller: String read GetSeller write SetSeller stored False; //property Seller: WideString read GetSeller write SetSeller stored False; end; TJvID3Popularimeter = class(TJvID3Persistent) private function GetCounter: Cardinal; function GetRating: Byte; function GetEMailAddress: AnsiString; procedure SetCounter(const Value: Cardinal); procedure SetRating(const Value: Byte); procedure SetEMailAddress(const Value: AnsiString); published { Do not store dummies } property EMailAddress: AnsiString read GetEMailAddress write SetEMailAddress stored False; property Rating: Byte read GetRating write SetRating stored False; property Counter: Cardinal read GetCounter write SetCounter stored False; end; {$IFDEF RTL230_UP} [ComponentPlatformsAttribute(pidWin32 or pidWin64 or pidOSX32)] {$ENDIF RTL230_UP} TJvID3v2 = class(TJvID3Controller) private FID3Text: TJvID3Text; FWeb: TJvID3Web; FUserDefinedText: TJvID3UDText; FUserDefinedWeb: TJvID3UDUrl; FInvolvedPeople: TJvID3Ipl; FImages: TJvID3Images; FOwner: TJvID3Owner; FPopularimeter: TJvID3Popularimeter; FProcessPictures: Boolean; function GetPlayCounter: Cardinal; procedure SetPlayCounter(const Value: Cardinal); protected procedure ActiveChanged(Sender: TObject; Activated: Boolean); public constructor Create(AOwner: TComponent); override; destructor Destroy; override; property Header; property ExtendedHeader; published { Do not store dummies } property Texts: TJvID3Text read FID3Text; property ProcessPictures: Boolean read FProcessPictures write FProcessPictures stored True; property UserDefinedText: TJvID3UDText read FUserDefinedText; property Web: TJvID3Web read FWeb; property UserDefinedWeb: TJvID3UDUrl read FUserDefinedWeb; property InvolvedPeople: TJvID3Ipl read FInvolvedPeople; property Images: TJvID3Images read FImages; property PlayCounter: Cardinal read GetPlayCounter write SetPlayCounter stored False; property Owner: TJvID3Owner read FOwner; property Popularimeter: TJvID3Popularimeter read FPopularimeter; property Version; property FileInfo; end; implementation uses SysUtils, Math, JvResources; //, JclSysUtils; //=== Local procedures ======================================================= function ExtractMIMETypeFromClassName(AClassName: string): AnsiString; begin AClassName := AnsiLowerCase(AClassName); if (Pos('jpg', AClassName) > 0) or (Pos('jpeg', AClassName) > 0) then Result := 'image/jpeg' else if (Pos('bmp', AClassName) > 0) or (Pos('bitmap', AClassName) > 0) then Result := 'image/bitmap' else if (Pos('gif', AClassName) > 0) then Result := 'image/gif' else Result := 'image/'; end; //=== { TJvID3Images } ======================================================= constructor TJvID3Images.Create(AController: TJvID3Controller); begin inherited Create(AController); FPictures := TJvID3Pictures.Create(AController); FInfos := TJvID3PicturesDesc.Create(AController); end; destructor TJvID3Images.Destroy; begin FPictures.Free; FInfos.Free; inherited Destroy; end; //=== { TJvID3Ipl } ========================================================== function TJvID3Ipl.GetItemCount: Integer; var Frame: TJvID3DoubleListFrame; begin if not FController.Active then Result := 0 else begin Frame := TJvID3DoubleListFrame.Find(FController, fiInvolvedPeople); if Assigned(Frame) then Result := Frame.List.Count else Result := 0; end; end; //function TJvID3Ipl.GetJob: WideString; function TJvID3Ipl.GetJob: String; var Frame: TJvID3DoubleListFrame; begin if ItemIndex < 0 then Result := '' else begin Frame := TJvID3DoubleListFrame.Find(FController, fiInvolvedPeople); if Assigned(Frame) and (ItemIndex < Frame.List.Count) then Result := Frame.Values[ItemIndex] else Result := ''; end; end; //function TJvID3Ipl.GetPerson: WideString; function TJvID3Ipl.GetPerson: String; var Frame: TJvID3DoubleListFrame; begin if ItemIndex < 0 then Result := '' else begin Frame := TJvID3DoubleListFrame.Find(FController, fiInvolvedPeople); if Assigned(Frame) and (ItemIndex < Frame.List.Count) then Result := Frame.List.Names[ItemIndex] else Result := ''; end; end; procedure TJvID3Ipl.SetItemIndex(const Value: Integer); begin if Value <> FItemIndex then begin FItemIndex := Min(Value, ItemCount - 1); end; end; //procedure TJvID3Ipl.SetJob(const Value: WideString); procedure TJvID3Ipl.SetJob(const Value: String); var // LPerson: WideString; LPerson: String; Frame: TJvID3DoubleListFrame; begin if FController.Active and (ItemIndex >= 0) then begin Frame := TJvID3DoubleListFrame.FindOrCreate(FController, fiInvolvedPeople); if (0 <= ItemIndex) and (ItemIndex < Frame.List.Count) then begin LPerson := Frame.List.Names[ItemIndex]; Frame.List[ItemIndex] := Format('%s=%s', [LPerson, Value]); end; end; end; //procedure TJvID3Ipl.SetPerson(const Value: WideString); procedure TJvID3Ipl.SetPerson(const Value: String); var //LJob: WideString; LJob: String; Frame: TJvID3DoubleListFrame; begin if FController.Active and (ItemIndex >= 0) then begin Frame := TJvID3DoubleListFrame.FindOrCreate(FController, fiInvolvedPeople); if (0 <= ItemIndex) and (ItemIndex < Frame.List.Count) then begin LJob := Frame.Values[ItemIndex]; Frame.List[ItemIndex] := Format('%s=%s', [Value, LJob]); end; end; end; //=== { TJvID3Owner } ======================================================== function TJvID3Owner.GetDatePurchased: TDateTime; var Frame: TJvID3OwnershipFrame; begin Frame := TJvID3OwnershipFrame.Find(FController); if Assigned(Frame) then Result := Frame.DateOfPurch else Result := 0; end; function TJvID3Owner.GetPrice: AnsiString; var Frame: TJvID3OwnershipFrame; begin Frame := TJvID3OwnershipFrame.Find(FController); if Assigned(Frame) then Result := Frame.PricePayed else Result := ''; end; //function TJvID3Owner.GetSeller: WideString; function TJvID3Owner.GetSeller: String; var Frame: TJvID3OwnershipFrame; begin Frame := TJvID3OwnershipFrame.Find(FController); if Assigned(Frame) then Result := Frame.Seller else Result := ''; end; procedure TJvID3Owner.SetDatePurchased(const Value: TDateTime); begin if FController.Active then TJvID3OwnershipFrame.FindOrCreate(FController).DateOfPurch := Value; end; procedure TJvID3Owner.SetPrice(const Value: AnsiString); begin if FController.Active then TJvID3OwnershipFrame.FindOrCreate(FController).PricePayed := Value; end; //procedure TJvID3Owner.SetSeller(const Value: WideString); procedure TJvID3Owner.SetSeller(const Value: String); begin if FController.Active then TJvID3OwnershipFrame.FindOrCreate(FController).Seller := Value; end; //=== { TJvID3Persistent } =================================================== constructor TJvID3Persistent.Create(AController: TJvID3Controller); begin inherited Create; FController := AController; end; //=== { TJvID3Pictures } ===================================================== constructor TJvID3Pictures.Create(AController: TJvID3Controller); var Index: TJvID3PictureType; begin inherited Create(AController); for Index := Low(TJvID3PictureType) to High(TJvID3PictureType) do begin FPictures[Index] := TPicture.Create; FPictures[Index].OnChange := @PictureChanged; end; end; destructor TJvID3Pictures.Destroy; var Index: TJvID3PictureType; begin for Index := Low(TJvID3PictureType) to High(TJvID3PictureType) do FPictures[Index].Free; inherited Destroy; end; function TJvID3Pictures.GetPicture(const AType: TJvID3PictureType): TPicture; begin Result := FPictures[TJvID3PictureType(AType)]; end; procedure TJvID3Pictures.PictureChanged(Sender: TObject); var Index: TJvID3PictureType; begin if FUpdating then Exit; for Index := Low(TJvID3PictureType) to High(TJvID3PictureType) do if FPictures[Index] = Sender then begin PictureToFrame(Index); Exit; end; end; procedure TJvID3Pictures.PictureToFrame(const AType: TJvID3PictureType); var Frame: TJvID3PictureFrame; begin if not FController.Active then Exit; Frame := TJvID3PictureFrame.FindOrCreate(FController, AType); Frame.Assign(FPictures[AType]); { Borland has made it hard for us to determine the type of picture; let's just look at the Picture.Graphic classname :) This is no way a reliable method thus I don't recommend using TJvID3v2 for pictures } Frame.MIMEType := ExtractMIMETypeFromClassName(FPictures[AType].Graphic.ClassName); end; procedure TJvID3Pictures.RemovePictures; var Index: TJvID3PictureType; begin FUpdating := True; try for Index := Low(TJvID3PictureType) to High(TJvID3PictureType) do FPictures[Index].Assign(nil); finally FUpdating := False; end; end; procedure TJvID3Pictures.RetrievePictures; var Frame: TJvID3PictureFrame; Index: TJvID3PictureType; begin FUpdating := True; try for Index := Low(TJvID3PictureType) to High(TJvID3PictureType) do begin Frame := TJvID3PictureFrame.Find(FController, Index); FPictures[Index].Assign(Frame); end; finally FUpdating := False; end; end; procedure TJvID3Pictures.SetPicture(const AType: TJvID3PictureType; const Value: TPicture); begin FPictures[TJvID3PictureType(AType)].Assign(Value); //ChangePicture(AType); end; //=== { TJvID3PicturesDesc } ================================================= //function TJvID3PicturesDesc.GetText(const AType: Integer{TJvID3PictureType}): WideString; function TJvID3PicturesDesc.GetText(const AType: TJvID3PictureType): String; var Frame: TJvID3PictureFrame; begin Frame := TJvID3PictureFrame.Find(FController, TJvID3PictureType(AType)); if Assigned(Frame) then Result := Frame.Description else Result := ''; end; procedure TJvID3PicturesDesc.SetText(const AType: TJvID3PictureType; const Value: String); //const Value: WideString); begin if FController.Active then TJvID3PictureFrame.FindOrCreate(FController, TJvID3PictureType(AType)).Description := Value; end; //=== { TJvID3Popularimeter } ================================================ function TJvID3Popularimeter.GetCounter: Cardinal; var Frame: TJvID3PopularimeterFrame; begin Frame := TJvID3PopularimeterFrame.Find(FController); if Assigned(Frame) then Result := Frame.Counter else Result := 0; end; function TJvID3Popularimeter.GetEMailAddress: AnsiString; var Frame: TJvID3PopularimeterFrame; begin Frame := TJvID3PopularimeterFrame.Find(FController); if Assigned(Frame) then Result := Frame.EMailAddress else Result := ''; end; function TJvID3Popularimeter.GetRating: Byte; var Frame: TJvID3PopularimeterFrame; begin Frame := TJvID3PopularimeterFrame.Find(FController); if Assigned(Frame) then Result := Frame.Rating else Result := 0; end; procedure TJvID3Popularimeter.SetCounter(const Value: Cardinal); begin if FController.Active then TJvID3PopularimeterFrame.FindOrCreate(FController).Counter := Value; end; procedure TJvID3Popularimeter.SetEMailAddress(const Value: AnsiString); begin if FController.Active then TJvID3PopularimeterFrame.FindOrCreate(FController).EMailAddress := Value; end; procedure TJvID3Popularimeter.SetRating(const Value: Byte); begin if FController.Active then TJvID3PopularimeterFrame.FindOrCreate(FController).Rating := Value; end; //=== { TJvID3Text } ========================================================= constructor TJvID3Text.Create(AController: TJvID3Controller); begin inherited Create(AController); FDummyList := TStringList.Create; //FDummyList := {$IFDEF COMPILER12_UP}TStringList{$ELSE}TWideStringList{$ENDIF COMPILER12_UP}.Create; end; destructor TJvID3Text.Destroy; begin FDummyList.Free; inherited Destroy; end; function TJvID3Text.GetDateTime(const FrameID: TJvID3FrameID): TDateTime; var Frame: TJvID3TimestampFrame; begin Frame := TJvID3TimestampFrame.Find(FController, TJvID3FrameID(FrameID)); if Assigned(Frame) then Result := Frame.Value else Result := 0; end; //function TJvID3Text.GetList(const FrameID: Integer{TJvID3FrameID}): {$IFDEF COMPILER12_UP}TStrings{$ELSE}TWideStrings{$ENDIF COMPILER12_UP}; function TJvID3Text.GetList(const FrameID: TJvID3FrameID): TStrings; begin if FController.Active then Result := TJvID3SimpleListFrame.FindOrCreate(FController, TJvID3FrameID(FrameID)).List else begin Result := FDummyList; Result.Clear; end; end; function TJvID3Text.GetNumber(const FrameID: TJvID3FrameID): Cardinal; var Frame: TJvID3NumberFrame; begin Frame := TJvID3NumberFrame.Find(FController, TJvID3FrameID(FrameID)); if Assigned(Frame) then Result := Frame.Value else Result := 0; end; //function TJvID3Text.GetText(const FrameID: Integer{TJvID3FrameID}): WideString; function TJvID3Text.GetText(const FrameID: TJvID3FrameID): String; var Frame: TJvID3TextFrame; begin Frame := TJvID3TextFrame.Find(FController, TJvID3FrameID(FrameID)); if Assigned(Frame) then Result := Frame.Text else Result := ''; end; function TJvID3Text.GetBPM: Cardinal; var res: Integer; begin val(BPMStr, Result, res); if res <> 0 then Result := 0; //Result := Trunc(StrToFloatDef(StringReplace(BPMStr, '.', FormatSettings.DecimalSeparator, []), 0)); end; procedure TJvID3Text.SetBPM(const Value: Cardinal); begin BPMStr := IntToStr(Value); end; procedure TJvID3Text.SetDateTime(const FrameID: TJvID3FrameID; const Value: TDateTime); begin if FController.Active then TJvID3TimestampFrame.FindOrCreate(FController, TJvID3FrameID(FrameID)).Value := Value; end; procedure TJvID3Text.SetList(const FrameID: TJvID3FrameID; const Value: TStrings); //const Value: {$IFDEF COMPILER12_UP}TStrings{$ELSE}TWideStrings{$ENDIF COMPILER12_UP}); begin if FController.Active then TJvID3SimpleListFrame.FindOrCreate(FController, TJvID3FrameID(FrameID)).List.Assign(Value); end; procedure TJvID3Text.SetNumber(const FrameID: TJvID3FrameID; const Value: Cardinal); begin if FController.Active then TJvID3NumberFrame.FindOrCreate(FController, TJvID3FrameID(FrameID)).Value := Value; end; //procedure TJvID3Text.SetText(const FrameID: Integer{TJvID3FrameID}; const Value: WideString); procedure TJvID3Text.SetText(const FrameID: TJvID3FrameID; const Value: String); begin if FController.Active then TJvID3TextFrame.FindOrCreate(FController, TJvID3FrameID(FrameID)).Text := Value; end; //=== { TJvID3UDText } ======================================================= //procedure TJvID3UDText.Add(const ADescription, AValue: WideString); procedure TJvID3UDText.Add(const ADescription, AValue: String); begin if not Assigned(FController) then ID3Error(RsEID3NoController); with TJvID3UserFrame(FController.AddFrame(fiUserText)) do begin Description := ADescription; Value := AValue; end; end; //function TJvID3UDText.GetDescription: WideString; function TJvID3UDText.GetDescription: String; var Frame: TJvID3UserFrame; begin if ItemIndex < 0 then Result := '' else begin Frame := TJvID3UserFrame.Find(FController, ItemIndex); if Assigned(Frame) then Result := Frame.Description else Result := ''; end; end; function TJvID3UDText.GetItemCount: Integer; begin if not FController.Active then Result := 0 else Result := FController.GetFrameCountFor(fiUserText); end; function TJvID3UDText.GetItemIndex: Integer; begin if not FController.Active then FItemIndex := -1 else FItemIndex := Min(FItemIndex, ItemCount - 1); Result := FItemIndex; end; //function TJvID3UDText.GetValue: WideString; function TJvID3UDText.GetValue: String; var Frame: TJvID3UserFrame; begin if ItemIndex < 0 then Result := '' else begin Frame := TJvID3UserFrame.Find(FController, ItemIndex); if Assigned(Frame) then Result := Frame.Value else Result := ''; end; end; //procedure TJvID3UDText.SetDescription(const Value: WideString); procedure TJvID3UDText.SetDescription(const Value: String); begin if FController.Active and (ItemIndex >= 0) and (ItemIndex < ItemCount) then TJvID3UserFrame.Find(FController, ItemIndex).Description := Value; end; procedure TJvID3UDText.SetItemIndex(const Value: Integer); begin if Value <> FItemIndex then FItemIndex := Min(Value, ItemCount - 1); end; //procedure TJvID3UDText.SetValue(const Value: WideString); procedure TJvID3UDText.SetValue(const Value: String); begin if FController.Active and (ItemIndex >= 0) and (ItemIndex < ItemCount) then TJvID3UserFrame.Find(FController, ItemIndex).Value := Value; end; //=== { TJvID3UDUrl } ======================================================== //procedure TJvID3UDUrl.Add(const ADescription: WideString; const AURL: AnsiString); procedure TJvID3UDUrl.Add(const ADescription: String; const AURL: AnsiString); begin if not Assigned(FController) then ID3Error(RsEID3NoController); with TJvID3URLUserFrame(FController.AddFrame(fiWWWUser)) do begin Description := ADescription; URL := AURL; end; end; //function TJvID3UDUrl.GetDescription: WideString; function TJvID3UDUrl.GetDescription: String; var Frame: TJvID3URLUserFrame; begin if ItemIndex < 0 then Result := '' else begin Frame := TJvID3URLUserFrame.Find(FController, ItemIndex); if Assigned(Frame) then Result := Frame.Description else Result := ''; end; end; function TJvID3UDUrl.GetItemCount: Integer; begin if not FController.Active then Result := 0 else Result := FController.GetFrameCountFor(fiWWWUser); end; function TJvID3UDUrl.GetItemIndex: Integer; begin if not FController.Active then FItemIndex := -1 else FItemIndex := Min(FItemIndex, ItemCount - 1); Result := FItemIndex; end; function TJvID3UDUrl.GetURL: AnsiString; var Frame: TJvID3URLUserFrame; begin if ItemIndex < 0 then Result := '' else begin Frame := TJvID3URLUserFrame.Find(FController, ItemIndex); if Assigned(Frame) then Result := Frame.URL else Result := ''; end; end; //procedure TJvID3UDUrl.SetDescription(const Value: WideString); procedure TJvID3UDUrl.SetDescription(const Value: String); begin if FController.Active and (ItemIndex >= 0) then TJvID3URLUserFrame.Find(FController, ItemIndex).Description := Value; end; procedure TJvID3UDUrl.SetItemIndex(const Value: Integer); begin if Value <> FItemIndex then FItemIndex := Min(Value, ItemCount - 1); end; procedure TJvID3UDUrl.SetURL(const Value: AnsiString); begin if FController.Active and (ItemIndex >= 0) then TJvID3URLUserFrame.Find(FController, ItemIndex).URL := Value; end; //=== { TJvID3v2 } =========================================================== constructor TJvID3v2.Create(AOwner: TComponent); begin inherited Create(AOwner); RegisterClient(Self, @ActiveChanged); FProcessPictures := True; FID3Text := TJvID3Text.Create(Self); FWeb := TJvID3Web.Create(Self); FUserDefinedText := TJvID3UDText.Create(Self); FUserDefinedWeb := TJvID3UDUrl.Create(Self); FInvolvedPeople := TJvID3Ipl.Create(Self); FImages := TJvID3Images.Create(Self); FOwner := TJvID3Owner.Create(Self); FPopularimeter := TJvID3Popularimeter.Create(Self); WriteEncodingAs := ifeAuto; ReadEncodingAs := ifeAuto; Options := [coAutoCorrect, coRemoveEmptyFrames]; end; destructor TJvID3v2.Destroy; begin UnRegisterClient(Self); FID3Text.Free; FWeb.Free; FUserDefinedText.Free; FUserDefinedWeb.Free; FInvolvedPeople.Free; FImages.Free; FOwner.Free; FPopularimeter.Free; inherited Destroy; end; procedure TJvID3v2.ActiveChanged(Sender: TObject; Activated: Boolean); begin if FProcessPictures then begin if Activated then FImages.Pictures.RetrievePictures else FImages.Pictures.RemovePictures; end; end; function TJvID3v2.GetPlayCounter: Cardinal; var Frame: TJvID3PlayCounterFrame; begin Frame := TJvID3PlayCounterFrame.Find(Self); if Assigned(Frame) then Result := Frame.Counter else Result := 0; end; procedure TJvID3v2.SetPlayCounter(const Value: Cardinal); begin if Active then TJvID3PlayCounterFrame.FindOrCreate(Self).Counter := Value; end; //=== { TJvID3Web } ========================================================== function TJvID3Web.GetText(const FrameID: TJvID3FrameID): AnsiString; var Frame: TJvID3URLFrame; begin Frame := TJvID3URLFrame.Find(FController, TJvID3FrameID(FrameID)); if Assigned(Frame) then Result := Frame.URL else Result := ''; end; procedure TJvID3Web.SetText(const FrameID: TJvID3FrameID; const Value: AnsiString); begin if FController.Active then TJvID3URLFrame.FindOrCreate(FController, TJvID3FrameID(FrameID)).URL := Value; end; end.