如何得到和修改媒体文件的属性－－标题、作者等

Question

使用Delphi如何得到修改媒体文件的属性
媒体文件：mp3,rm,mpeg,wav等

Answer 1

去找每种媒体文件的的文件格式看看
比如mp3文件格式，文件的最后128个字节包含一些基本信息
type
  TID3v2=packed record
    Head:array[0..2] of char;
    Title:array[0..29] of char;
    Artistr:array[0..29] of char;
    Album:array[0..29] of char;
    Year:array[0..3] of char;
    Comment:array[0..29] of char;
    Genre:char;
  end;
var
  Stream:TFileStream;
  buffer:TID3v2;
begin
  Memo1.Clear;
  if OpenDialog1.Execute then
  Stream:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
  try
    Stream.Position:=Stream.Size-sizeof(TID3v2);
    Stream.ReadBuffer(buffer,sizeof(TID3v2));
    Memo1.Lines.Add(buffer.Head);
    Memo1.Lines.Add(buffer.Title);
    Memo1.Lines.Add(buffer.Artistr);
    Memo1.Lines.Add(buffer.Album);
    Memo1.Lines.Add(buffer.Year);
    Memo1.Lines.Add(buffer.Comment);
    Memo1.Lines.Add(buffer.Genre);     
  finally
    Stream.Free;
  end;

Answer 2

温度值在-10度……120度，用不同的颜色表示，分辨率为1度，
如何处理，
如果把TCOLOR的值均分好像不太好，至少-10度和10 读的颜色用肉眼分辨不出来！