//用getlength得到的就是总长度(单位是毫秒吧,0.001秒),当前播放时间也就一样啦
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, OleCtrls, RealAudioObjects_TLB;type
TForm1 = class(TForm)
RealAudio1: TRealAudio;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}
procedure GetTotalTime(var RealAudio1: TRealAudio; var vMin,vSecond:Integer);
var
temp:integer;
begin
temp:=round(realaudio1.GetLength/1000);//ÎÒÕâÀïÖ»¾«È·µ½Ãë
vMin:=temp div 60;
vSecond:=temp - vMin*60;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
realaudio1.SetSource('C:\1222\jacky06.mp3');
realaudio1.DoPlay;
end;procedure TForm1.Button2Click(Sender: TObject);
var
ff,mm:integer;
begin
GetTotalTime(realaudio1,ff,mm);
showmessage(inttostr(ff)+'·Ö'+inttostr(mm)+'Ãë');end;end.
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, OleCtrls, RealAudioObjects_TLB;type
TForm1 = class(TForm)
RealAudio1: TRealAudio;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}
procedure GetTotalTime(var RealAudio1: TRealAudio; var vMin,vSecond:Integer);
var
temp:integer;
begin
temp:=round(realaudio1.GetLength/1000);//ÎÒÕâÀïÖ»¾«È·µ½Ãë
vMin:=temp div 60;
vSecond:=temp - vMin*60;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
realaudio1.SetSource('C:\1222\jacky06.mp3');
realaudio1.DoPlay;
end;procedure TForm1.Button2Click(Sender: TObject);
var
ff,mm:integer;
begin
GetTotalTime(realaudio1,ff,mm);
showmessage(inttostr(ff)+'·Ö'+inttostr(mm)+'Ãë');end;end.
解决方案 »
- 关于DBGrid排序的代码,请帮忙看下!
- 关于FindFirst的一个很奇怪的问题,,求救!!!
- property User[index: integer]: tuserinfo read GetUser write SetUser;default;为什么不能赋值?
- 高分请教此问题.
- 程序执行的问题
- speedbutton的enable问题(急急急!)
- 建议Delphi程序员留下QQ号 方便交流
- 关于、《Delphi 5 开发人员指南》
- timer组件的ontimer时间可否引导登陆窗体的出现?
- ??怎么用InstallShell安装SQLServer的mdb数据库??
- 同样的代码,用BDE+paradox和ADO+access分别实现,ado居然慢很多很多,什么原因啊!
- 请问大家:ERP与MIS的区别?
//我只精确到秒
可它paste之后却成了
//ÎÒÕâÀïÖ»¾«È·µ
谢谢你,加分啦!