如何得到Vql和Wma文件的内部信息？？(100分)

chen &nbsp;bin · 2002-02-07

像mp3中的TAG一样，这些内容在wma和vqf中是如何定义的？

bubble · 2002-02-08

记得有一个控件可以实现.写过一次. 具体我也忘记了. gz^_^

chen &nbsp;bin · 2002-02-23

有没有人知道呀？！！  能告诉我吗？？

coldease · 2002-10-26

我也想知道！

lxmzm · 2003-01-06

如何修改WMA文件中的信息？

commandor · 2003-01-06

WMA: ------------------------------ unit WMAfile; interface uses   Classes, SysUtils; const   { Channel modes }   WMA_CM_UNKNOWN = 0;                                               { Unknown }   WMA_CM_MONO = 1;                                                     { Mono }   WMA_CM_STEREO = 2;                                                 { Stereo }   { Channel mode names }   WMA_MODE: array [0..2] of string = ('Unknown', 'Mono', 'Stereo'); type   { Class TWMAfile }   TWMAfile = class(TObject)     private       { Private declarations }       FValid: Boolean;       FFileSize: Integer;       FChannelModeID: Byte;       FSampleRate: Integer;       FDuration: Double;       FBitRate: Integer;       FTitle: WideString;       FArtist: WideString;       FAlbum: WideString;       FTrack: Integer;       FYear: WideString;       FGenre: WideString;       FComment: WideString;       procedure FResetData;       function FGetChannelMode: string;     public       { Public declarations }       constructor Create;                                     { Create object }       function ReadFromFile(const FileName: string): Boolean;     { Load data }       property Valid: Boolean read FValid;               { True if valid data }       property FileSize: Integer read FFileSize;          { File size (bytes) }       property ChannelModeID: Byte read FChannelModeID;   { Channel mode code }       property ChannelMode: string read FGetChannelMode;  { Channel mode name }       property SampleRate: Integer read FSampleRate;       { Sample rate (hz) }       property Duration: Double read FDuration;          { Duration (seconds) }       property BitRate: Integer read FBitRate;              { Bit rate (kbit) }       property Title: WideString read FTitle;                    { Song title }       property Artist: WideString read FArtist;                 { Artist name }       property Album: WideString read FAlbum;                    { Album name }       property Track: Integer read FTrack;                     { Track number }       property Year: WideString read FYear;                            { Year }       property Genre: WideString read FGenre;                    { Genre name }       property Comment: WideString read FComment;                   { Comment }   end; implementation const   { Object IDs }   WMA_HEADER_ID =     #48#38#178#117#142#102#207#17#166#217#0#170#0#98#206#108;   WMA_FILE_PROPERTIES_ID =     #161#220#171#140#71#169#207#17#142#228#0#192#12#32#83#101;   WMA_STREAM_PROPERTIES_ID =     #145#7#220#183#183#169#207#17#142#230#0#192#12#32#83#101;   WMA_CONTENT_DESCRIPTION_ID =     #51#38#178#117#142#102#207#17#166#217#0#170#0#98#206#108;   WMA_EXTENDED_CONTENT_DESCRIPTION_ID =     #64#164#208#210#7#227#210#17#151#240#0#160#201#94#168#80;   { Max. number of supported comment fields }   WMA_FIELD_COUNT = 7;   { Names of supported comment fields }   WMA_FIELD_NAME: array [1..WMA_FIELD_COUNT] of WideString =     ('WM/TITLE', 'WM/AUTHOR', 'WM/ALBUMTITLE', 'WM/TRACK', 'WM/YEAR',      'WM/GENRE', 'WM/DESCRIPTION');   { Max. number of characters in tag field }   WMA_MAX_STRING_SIZE = 250; type   { Object ID }   ObjectID = array [1..16] of Char;   { Tag data }   TagData = array [1..WMA_FIELD_COUNT] of WideString;   { File data - for internal use }   FileData = record     FileSize: Integer;                                    { File size (bytes) }     MaxBitRate: Integer;                                { Max. bit rate (bps) }     Channels: Word;                                      { Number of channels }     SampleRate: Integer;                                   { Sample rate (hz) }     ByteRate: Integer;                                            { Byte rate }     Tag: TagData;                                       { WMA tag information }   end; { ********************* Auxiliary functions & procedures ******************** } function ReadFieldString(const Source: TStream; DataSize: Word): WideString; var   Iterator, StringSize: Integer;   FieldData: array [1..WMA_MAX_STRING_SIZE * 2] of Byte; begin   { Read field data and convert to Unicode string }   Result := '';   StringSize := DataSize div 2;   if StringSize > WMA_MAX_STRING_SIZE then StringSize := WMA_MAX_STRING_SIZE;   Source.ReadBuffer(FieldData, StringSize * 2);   Source.Seek(DataSize - StringSize * 2, soFromCurrent);   for Iterator := 1 to StringSize do     Result := Result +       WideChar(FieldData[Iterator * 2 - 1] + (FieldData[Iterator * 2] shl 8)); end; { --------------------------------------------------------------------------- } procedure ReadTagStandard(const Source: TStream; var Tag: TagData); var   Iterator: Integer;   FieldSize: array [1..5] of Word;   FieldValue: WideString; begin   { Read standard tag data }   Source.ReadBuffer(FieldSize, SizeOf(FieldSize));   for Iterator := 1 to 5 do     if FieldSize[Iterator] > 0 then     begin       { Read field value }       FieldValue := ReadFieldString(Source, FieldSize[Iterator]);       { Set corresponding tag field if supported }       case Iterator of         1: Tag[1] := FieldValue;         2: Tag[2] := FieldValue;         4: Tag[7] := FieldValue;       end;     end; end; { --------------------------------------------------------------------------- } procedure ReadTagExtended(const Source: TStream; var Tag: TagData); var   Iterator1, Iterator2, FieldCount, DataSize, DataType: Word;   FieldName, FieldValue: WideString; begin   { Read extended tag data }   Source.ReadBuffer(FieldCount, SizeOf(FieldCount));   for Iterator1 := 1 to FieldCount do   begin     { Read field name }     Source.ReadBuffer(DataSize, SizeOf(DataSize));     FieldName := ReadFieldString(Source, DataSize);     { Read value data type }     Source.ReadBuffer(DataType, SizeOf(DataType));     { Read field value only if string }     if DataType = 0 then     begin       Source.ReadBuffer(DataSize, SizeOf(DataSize));       FieldValue := ReadFieldString(Source, DataSize);     end     else       Source.Seek(DataSize, soFromCurrent);     { Set corresponding tag field if supported }     for Iterator2 := 1 to WMA_FIELD_COUNT do       if UpperCase(Trim(FieldName)) = WMA_FIELD_NAME[Iterator2] then         Tag[Iterator2] := FieldValue;   end; end; { --------------------------------------------------------------------------- } procedure ReadObject(const ID: ObjectID; Source: TStream; var Data: FileData); begin   { Read data from header object if supported }   if ID = WMA_FILE_PROPERTIES_ID then   begin     { Read file properties }     Source.Seek(80, soFromCurrent);     Source.ReadBuffer(Data.MaxBitRate, SizeOf(Data.MaxBitRate));   end;   if ID = WMA_STREAM_PROPERTIES_ID then   begin     { Read stream properties }     Source.Seek(60, soFromCurrent);     Source.ReadBuffer(Data.Channels, SizeOf(Data.Channels));     Source.ReadBuffer(Data.SampleRate, SizeOf(Data.SampleRate));     Source.ReadBuffer(Data.ByteRate, SizeOf(Data.ByteRate));   end;   if ID = WMA_CONTENT_DESCRIPTION_ID then   begin     { Read standard tag data }     Source.Seek(4, soFromCurrent);     ReadTagStandard(Source, Data.Tag);   end;   if ID = WMA_EXTENDED_CONTENT_DESCRIPTION_ID then   begin     { Read extended tag data }     Source.Seek(4, soFromCurrent);     ReadTagExtended(Source, Data.Tag);   end; end; { --------------------------------------------------------------------------- } function ReadData(const FileName: string; var Data: FileData): Boolean; var   Source: TFileStream;   ID: ObjectID;   Iterator, ObjectCount, ObjectSize, Position: Integer; begin   { Read file data }   try     Source := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);     Data.FileSize := Source.Size;     { Check for existing header }     Source.ReadBuffer(ID, SizeOf(ID));     if ID = WMA_HEADER_ID then     begin       Source.Seek(8, soFromCurrent);       Source.ReadBuffer(ObjectCount, SizeOf(ObjectCount));       Source.Seek(2, soFromCurrent);       { Read all objects in header and get needed data }       for Iterator := 1 to ObjectCount do       begin         Position := Source.Position;         Source.ReadBuffer(ID, SizeOf(ID));         Source.ReadBuffer(ObjectSize, SizeOf(ObjectSize));         ReadObject(ID, Source, Data);         Source.Seek(Position + ObjectSize, soFromBeginning);       end;     end;     Source.Free;     Result := true;   except     Result := false;   end; end; { --------------------------------------------------------------------------- } function IsValid(const Data: FileData): Boolean; begin   { Check for data validity }   Result :=     (Data.MaxBitRate > 0) and (Data.MaxBitRate < 320000) and     ((Data.Channels = WMA_CM_MONO) or (Data.Channels = WMA_CM_STEREO)) and     (Data.SampleRate >= 8000) and (Data.SampleRate <= 96000) and     (Data.ByteRate > 0) and (Data.ByteRate < 40000); end; { --------------------------------------------------------------------------- } function ExtractTrack(const TrackString: WideString): Integer; var   Value, Code: Integer; begin   { Extract track from string }   Result := 0;   Val(TrackString, Value, Code);   if Code = 0 then Result := Value; end; { ********************** Private functions & procedures ********************* } procedure TWMAfile.FResetData; begin   { Reset variables }   FValid := false;   FFileSize := 0;   FChannelModeID := WMA_CM_UNKNOWN;   FSampleRate := 0;   FDuration := 0;   FBitRate := 0;   FTitle := '';   FArtist := '';   FAlbum := '';   FTrack := 0;   FYear := '';   FGenre := '';   FComment := ''; end; { --------------------------------------------------------------------------- } function TWMAfile.FGetChannelMode: string; begin   { Get channel mode name }   Result := WMA_MODE[FChannelModeID]; end; { ********************** Public functions & procedures ********************** } constructor TWMAfile.Create; begin   { Create object }   inherited;   FResetData; end; { --------------------------------------------------------------------------- } function TWMAfile.ReadFromFile(const FileName: string): Boolean; var   Data: FileData; begin   { Reset variables and load file data }   FResetData;   FillChar(Data, SizeOf(Data), 0);   Result := ReadData(FileName, Data);   { Process data if loaded and valid }   if Result and IsValid(Data) then   begin     FValid := true;     { Fill properties with loaded data }     FFileSize := Data.FileSize;     FChannelModeID := Data.Channels;     FSampleRate := Data.SampleRate;     FDuration := Data.FileSize * 8 / Data.MaxBitRate;     FBitRate := Data.ByteRate * 8 div 1000;     FTitle := Trim(Data.Tag[1]);     FArtist := Trim(Data.Tag[2]);     FAlbum := Trim(Data.Tag[3]);     FTrack := ExtractTrack(Trim(Data.Tag[4]));     FYear := Trim(Data.Tag[5]);     FGenre := Trim(Data.Tag[6]);     FComment := Trim(Data.Tag[7]);   end; end; end. ------------------------------ VQF ------------------------------- unit TwinVQ; interface uses   Classes, SysUtils; const   { Used with ChannelModeID property }   TWIN_CM_MONO = 1;                                     { Index for mono mode }   TWIN_CM_STEREO = 2;                                 { Index for stereo mode }   { Channel mode names }   TWIN_MODE: array [0..2] of string = ('Unknown', 'Mono', 'Stereo'); type   { Class TTwinVQ }   TTwinVQ = class(TObject)     private       { Private declarations }       FValid: Boolean;       FChannelModeID: Byte;       FBitRate: Byte;       FSampleRate: Word;       FFileSize: Cardinal;       FDuration: Double;       FTitle: string;       FComment: string;       FAuthor: string;       FCopyright: string;       FOriginalFile: string;       FAlbum: string;       procedure FResetData;       function FGetChannelMode: string;       function FIsCorrupted: Boolean;     public       { Public declarations }       constructor Create;                                     { Create object }       function ReadFromFile(const FileName: string): Boolean;   { Load header }       property Valid: Boolean read FValid;             { True if header valid }       property ChannelModeID: Byte read FChannelModeID;   { Channel mode code }       property ChannelMode: string read FGetChannelMode;  { Channel mode name }       property BitRate: Byte read FBitRate;                  { Total bit rate }       property SampleRate: Word read FSampleRate;          { Sample rate (hz) }       property FileSize: Cardinal read FFileSize;         { File size (bytes) }       property Duration: Double read FDuration;          { Duration (seconds) }       property Title: string read FTitle;                        { Title name }       property Comment: string read FComment;                       { Comment }       property Author: string read FAuthor;                     { Author name }       property Copyright: string read FCopyright;                 { Copyright }       property OriginalFile: string read FOriginalFile;  { Original file name }       property Album: string read FAlbum;                       { Album title }       property Corrupted: Boolean read FIsCorrupted; { True if file corrupted }   end; implementation const   { Twin VQ header ID }   TWIN_ID = 'TWIN';     { Max. number of supported tag-chunks }   TWIN_CHUNK_COUNT = 6;   { Names of supported tag-chunks }   TWIN_CHUNK: array [1..TWIN_CHUNK_COUNT] of string =     ('NAME', 'COMT', 'AUTH', '(c) ', 'FILE', 'ALBM'); type   { TwinVQ chunk header }   ChunkHeader = record     ID: array [1..4] of Char;                                      { Chunk ID }     Size: Cardinal;                                              { Chunk size }   end;   { File header data - for internal use }   HeaderInfo = record     { Real structure of TwinVQ file header }     ID: array [1..4] of Char;                                 { Always "TWIN" }     Version: array [1..8] of Char;                               { Version ID }     Size: Cardinal;                                             { Header size }     Common: ChunkHeader;                                { Common chunk header }     ChannelMode: Cardinal;               { Channel mode: 0 - mono, 1 - stereo }     BitRate: Cardinal;                                       { Total bit rate }     SampleRate: Cardinal;                                 { Sample rate (khz) }     SecurityLevel: Cardinal;                                       { Always 0 }     { Extended data }     FileSize: Cardinal;                                   { File size (bytes) }     Tag: array [1..TWIN_CHUNK_COUNT] of string;             { Tag information }   end; { ********************* Auxiliary functions & procedures ******************** } function ReadHeader(const FileName: string; var Header: HeaderInfo): Boolean; var   SourceFile: file;   Transferred: Integer; begin   try     Result := true;     { Set read-access and open file }     AssignFile(SourceFile, FileName);     FileMode := 0;     Reset(SourceFile, 1);     { Read header and get file size }     BlockRead(SourceFile, Header, 40, Transferred);     Header.FileSize := FileSize(SourceFile);     CloseFile(SourceFile);     { if transfer is not complete }     if Transferred < 40 then Result := false;   except     { Error }     Result := false;   end; end; { --------------------------------------------------------------------------- } function GetChannelModeID(const Header: HeaderInfo): Byte; begin   { Get channel mode from header }   case Swap(Header.ChannelMode shr 16) of     0: Result := TWIN_CM_MONO;     1: Result := TWIN_CM_STEREO     else Result := 0;   end; end; { --------------------------------------------------------------------------- } function GetBitRate(const Header: HeaderInfo): Byte; begin   { Get bit rate from header }   Result := Swap(Header.BitRate shr 16); end; { --------------------------------------------------------------------------- } function GetSampleRate(const Header: HeaderInfo): Word; begin   { Get real sample rate from header }   Result := Swap(Header.SampleRate shr 16);   case Result of     11: Result := 11025;     22: Result := 22050;     44: Result := 44100;     else Result := Result * 1000;   end; end; { --------------------------------------------------------------------------- } function GetDuration(const Header: HeaderInfo): Double; begin   { Get duration from header }   Result := Abs((Header.FileSize - Swap(Header.Size shr 16) - 20)) / 125 /     Swap(Header.BitRate shr 16); end; { --------------------------------------------------------------------------- } function HeaderEndReached(const Chunk: ChunkHeader): Boolean; begin   { Check for header end }   Result := (Ord(Chunk.ID[1]) < 32) or     (Ord(Chunk.ID[2]) < 32) or     (Ord(Chunk.ID[3]) < 32) or     (Ord(Chunk.ID[4]) < 32) or     (Chunk.ID = 'DATA'); end; { --------------------------------------------------------------------------- } procedure SetTagItem(const ID, Data: string; var Header: HeaderInfo); var   Iterator: Byte; begin   { Set tag item if supported tag-chunk found }   for Iterator := 1 to TWIN_CHUNK_COUNT do     if TWIN_CHUNK[Iterator] = ID then Header.Tag[Iterator] := Data; end; { --------------------------------------------------------------------------- } procedure ReadTag(const FileName: string; var Header: HeaderInfo); var   SourceFile: file;   Chunk: ChunkHeader;   Data: array [1..250] of Char; begin   try     { Set read-access, open file }     AssignFile(SourceFile, FileName);     FileMode := 0;     Reset(SourceFile, 1);     Seek(SourceFile, 16);     repeat     begin       FillChar(Data, SizeOf(Data), 0);       { Read chunk header }       BlockRead(SourceFile, Chunk, 8);       { Read chunk data and set tag item if chunk header valid }       if HeaderEndReached(Chunk) then break;       BlockRead(SourceFile, Data, Swap(Chunk.Size shr 16) mod SizeOf(Data));       SetTagItem(Chunk.ID, Data, Header);     end;     until EOF(SourceFile);     CloseFile(SourceFile);   except   end; end; { ********************** Private functions & procedures ********************* } procedure TTwinVQ.FResetData; begin   FValid := false;   FChannelModeID := 0;   FBitRate := 0;   FSampleRate := 0;   FFileSize := 0;   FDuration := 0;   FTitle := '';   FComment := '';   FAuthor := '';   FCopyright := '';   FOriginalFile := '';   FAlbum := ''; end; { --------------------------------------------------------------------------- } function TTwinVQ.FGetChannelMode: string; begin   Result := TWIN_MODE[FChannelModeID]; end; { --------------------------------------------------------------------------- } function TTwinVQ.FIsCorrupted: Boolean; begin   { Check for file corruption }   Result := (FValid) and     ((FChannelModeID = 0) or     (FBitRate < 8) or (FBitRate > 192) or     (FSampleRate < 8000) or (FSampleRate > 44100) or     (FDuration < 0.1) or (FDuration > 10000)); end; { ********************** Public functions & procedures ********************** } constructor TTwinVQ.Create; begin   inherited;   FResetData; end; { --------------------------------------------------------------------------- } function TTwinVQ.ReadFromFile(const FileName: string): Boolean; var   Header: HeaderInfo; begin   { Reset data and load header from file to variable }   FResetData;   Result := ReadHeader(FileName, Header);   { Process data if loaded and header valid }   if (Result) and (Header.ID = TWIN_ID) then   begin     FValid := true;     { Fill properties with header data }     FChannelModeID := GetChannelModeID(Header);     FBitRate := GetBitRate(Header);     FSampleRate := GetSampleRate(Header);     FFileSize := Header.FileSize;     FDuration := GetDuration(Header);     { Get tag information and fill properties }     ReadTag(FileName, Header);     FTitle := Trim(Header.Tag[1]);     FComment := Trim(Header.Tag[2]);     FAuthor := Trim(Header.Tag[3]);     FCopyright := Trim(Header.Tag[4]);     FOriginalFile := Trim(Header.Tag[5]);     FAlbum := Trim(Header.Tag[6]);   end; end; end. -------------------------------

41426277 · 2003-01-08

ScanMP3Folder (Edit1.Text, ListBox1.Items); procedure ScanMP3Folder (const AFolder : string; AMP3List : TStrings); var   ds : TDirectoryScanner;   a : TAudioInfo;   Descr : string;   i : integer; begin   ds := TDirectoryScanner.Create;   a := TAudioInfo.Create;   try      ds.Recursive := True;      ds.RegExprMask := '/.mp[23]';      ds.BuildFileList (AFolder);      for i := 0 to ds.Count - 1 do begin        a.LoadFromFile (ds.Item .Name);        if a.ID3.Ok         then Descr := a.ID3.Artist + ' - ' + a.ID3.Title         else Descr := ExtractFileName (ds.Item .Name);        Descr := Descr + Format (' (%d sec)', [a.MpegDuration div 1000]);        AMP3List.Add (Descr);       end;     finally begin       a.Free;       ds.Free;      end;    end; end; 需要使用两个控件 http://anso.virtualave.net/delphi_stuff.htm#TAudioInfo(TAudioInfo) http://www.delphi3000.com/article.asp?id=1083(TDirectoryScanner)

如何得到Vql和Wma文件的内部信息？？(100分)

chen  bin

Unregistered / Unconfirmed

bubble

Unregistered / Unconfirmed

chen  bin

Unregistered / Unconfirmed

coldease

Unregistered / Unconfirmed

lxmzm

Unregistered / Unconfirmed

commandor

Unregistered / Unconfirmed

41426277

Unregistered / Unconfirmed

Similar threads

如何得到Vql和Wma文件的内部信息？？(100分)

chen &nbsp;bin

Unregistered / Unconfirmed

bubble

Unregistered / Unconfirmed

chen &nbsp;bin

Unregistered / Unconfirmed

coldease

Unregistered / Unconfirmed

lxmzm

Unregistered / Unconfirmed

commandor

Unregistered / Unconfirmed

41426277

Unregistered / Unconfirmed

Similar threads

chen bin

chen bin