comvariable.pas

delphi2007写的播放器源码。效果类似于千千静听。

unit ComVariable;

interface

uses inifiles,bass,types,classes;

Type TWaveData = array [ 0..2048] of DWORD;
Type TFFTData  = array [0..512] of Single;


type   
  TTag=record
    Title:string;// 标题
    Artist:string;// 演唱者
    Album:string;// 专辑
    Year:string;// 年月
    Comment:string;//备注
    Track:string;
    Genre:string;
  end;

type
  TTitle=record
    Height:integer;
    Size:integer;
    X:integer;
    Y:integer;
    facename:string;
    Color:integer;
    caption:string;
  end;

type
  TControls=record
    Image:string;
    visible:boolean;
    Top:integer;
    Left:integer;
    Width:integer;
    Height:integer;
    Whole:Boolean;  //全部显示还是部分显示  true整体，false部分
    IsPlane:Boolean; //横向还是竖向刷新
    Transparent:Boolean;
end;

var
  ConInfo:array of TControls;//主窗体信息
  ConBoxInfo:array of TControls;//playlist 信息
  MainTitle:TTitle;//主窗体title
  PlayListTitle:TTitle;// playlist title
  TagTitle:TTitle;
  ini:TIniFile;//ini文件
  Path,SkinPath,CapturePath:string; //程序路径和皮肤存放目录,图片保存路径
  NowVolume:Float;//当前音量
  PlayIndex:integer;//正在播放的索引
  ListLength:integer;//playlist的长度
  conglutinate:Boolean;//playlist和main是否粘贴在一起
  IsShowList:Boolean;//是否显示palylist
  mainPos:TPoint; //main的位置
  playlistPos:TPoint;//playlist的位置
  tran:Boolean;//透明化
  BackColor:integer;//图片底色，透明化使用
  G_Length:integer; //进度条的长度
  V_Length:integer; //音量条的长度
  Ico:string;//程序的ico
  ListBackColor:integer;//listbox背景色
  FontColor:integer;//listbox字体颜色
  FontSize:integer;//listbox字体大小
  IsPlay:boolean;//是否正在播放
  Time_G_Bar:integer;//多长时间G_BarPosition调整一次
  FullTime:double;//文件总时间
  NowTime:double;//正在播放到的时间
  SkinList:TStringList;//皮肤列表地址
  templist:TStringList;//临时皮肤名称
  lstFilePath:TStringList;//文件地址列表
  lstTitle:TStringList;//文件名称列表
  Pause,Play:string;//暂停用的图片
  chan : DWORD;///////
  LyricName:String;//歌词文件名称
  FileTag:TTag;// 标志
  OpenFilter:String;//可以打开的文件
  OpenDirFilter:String;//可以打开的文件2
implementation

end.