实例介绍
【实例简介】
【实例截图】
【核心代码】
unit FPlay; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,FileCtrl, MPlayer, ExtCtrls, ComCtrls, ToolWin, ImgList, Buttons; type TMainForm = class(TForm) GroupBox1: TGroupBox; Panel1: TPanel; FileNameList: TListBox; Panel2: TPanel; MediaPlayer1: TMediaPlayer; AppendButton: TButton; Panel3: TPanel; GroupBox2: TGroupBox; Button1: TButton; Button2: TButton; Button3: TButton; FileNumLabel: TPanel; GroupBox3: TGroupBox; Panel4: TPanel; ToolBar1: TToolBar; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; StopButton: TSpeedButton; PauseButton: TSpeedButton; PlayButton: TSpeedButton; OpenDialog1: TOpenDialog; FilePathList: TListBox; procedure AppendButtonClick(Sender: TObject); procedure FileNameListDblClick(Sender: TObject); procedure FileNameListKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure Button1Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure PlayButtonClick(Sender: TObject); procedure PauseButtonClick(Sender: TObject); procedure StopButtonClick(Sender: TObject); private { Private declarations } public { Public declarations } Procedure MP3Play; Procedure MP3Stop; end; var MainForm: TMainForm; implementation {$R *.DFM} procedure TMainForm.AppendButtonClick(Sender: TObject); var i:integer; MainPath:string; FileExt:string; FilePath:string; FileRec:TSearchRec; FileNum:string; begin SelectDirectory('sdf','c',MainPath); FilePath:=MainPath; FileExt:='\*.mp3'; MainPath:=MainPath FileExt; FindFirst(MainPath,faAnyFile,FileRec); if Trim(FileRec.Name)<>'' then begin FileNum:=IntToStr(FileNameList.Items.count 1); if Length(FileNum)<3 then begin for i:=1 to (3-Length(FileNum)) do FileNum:=' ' FileNum; end; FileNum:=FileNum '. '; FileNameList.Items.Add(FileNum FileRec.Name); FilePathList.Items.Add(FilePath); end; while FindNext(FileRec) = 0 do begin if Trim(FileRec.Name)<>'' then begin FileNum:=IntToStr(FileNameList.Items.count 1); if Length(FileNum)<3 then begin for i:=1 to (3-Length(FileNum)) do FileNum:=' ' FileNum; end; FileNum:=FileNum '. '; FileNameList.Items.Add(FileNum FileRec.Name); FilePathList.Items.Add(FilePath); end; end; FileNum:=IntToStr(FileNameList.Items.count); FileNumLabel.Caption:=Format('共有%s个文件',[FileNum]); end; procedure TMainForm.FileNameListDblClick(Sender: TObject); begin MP3Play; end; procedure TMainForm.MP3Play; var FileName:string; begin if (Trim(Mediaplayer1.FileName)='') or (MediaPlayer1.Mode=mpPlaying) then begin if FileNameList.Items.count>0 then begin FileName:=FileNameList.Items.Strings[FileNameList.itemindex]; FileName:=Copy(FileName,7,Length(FileName)-6); MediaPlayer1.FileName:=FilePathList.Items.Strings[FileNameList.itemindex] '\' FileName; MediaPlayer1.Open; MediaPlayer1.Play; end; end else begin MediaPlayer1.Resume; end; end; procedure TMainForm.FileNameListKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if key=13 then begin MP3Play; end; end; procedure TMainForm.Button1Click(Sender: TObject); var FileNum:string; begin FileNameList.Clear; FilePathList.Clear; FileNum:=IntToStr(FileNameList.Items.count); FileNumLabel.Caption:=Format('共有%s个文件',[FileNum]); end; procedure TMainForm.Button3Click(Sender: TObject); var FileNum:string; i:integer; begin FileNum:=IntToStr(FileNameList.Items.count 1); for i:=1 to 3-Length(FileNum) do begin FileNum:=' ' FileNum; end; FileNum:=FileNum '. '; if OpenDialog1.Execute then begin FileNameList.Items.Add(FileNum ExtractFileName(OpenDialog1.FileName)); FilePathList.Items.Add(ExtractFilePath(OpenDialog1.FileName)); end; FileNum:=IntToStr(FileNameList.Items.count); FileNumLabel.Caption:=Format('共有%s个文件',[FileNum]); end; procedure TMainForm.Button2Click(Sender: TObject); var FileNum:string; begin FileNameList.Items.Delete(FileNameList.ItemIndex); FilePathList.Items.Delete(FileNameLIst.ItemIndex); FileNum:=IntToStr(FileNameList.Items.count); FileNumLabel.Caption:=Format('共有%s个文件',[FileNum]); end; procedure TMainForm.PlayButtonClick(Sender: TObject); begin MP3Play; end; procedure TMainForm.MP3Stop; begin MediaPlayer1.FileName:=''; MediaPlayer1.Stop; MediaPlayer1.Close; end; procedure TMainForm.PauseButtonClick(Sender: TObject); begin MediaPlayer1.Pause; end; procedure TMainForm.StopButtonClick(Sender: TObject); begin MP3Stop; end; end.
好例子网口号:伸出你的我的手 — 分享!
小贴士
感谢您为本站写下的评论,您的评论对其它用户来说具有重要的参考价值,所以请认真填写。
- 类似“顶”、“沙发”之类没有营养的文字,对勤劳贡献的楼主来说是令人沮丧的反馈信息。
- 相信您也不想看到一排文字/表情墙,所以请不要反馈意义不大的重复字符,也请尽量不要纯表情的回复。
- 提问之前请再仔细看一遍楼主的说明,或许是您遗漏了。
- 请勿到处挖坑绊人、招贴广告。既占空间让人厌烦,又没人会搭理,于人于己都无利。
关于好例子网
本站旨在为广大IT学习爱好者提供一个非营利性互相学习交流分享平台。本站所有资源都可以被免费获取学习研究。本站资源来自网友分享,对搜索内容的合法性不具有预见性、识别性、控制性,仅供学习研究,请务必在下载后24小时内给予删除,不得用于其他任何用途,否则后果自负。基于互联网的特殊性,平台无法对用户传输的作品、信息、内容的权属或合法性、安全性、合规性、真实性、科学性、完整权、有效性等进行实质审查;无论平台是否已进行审查,用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。本站所有资源不代表本站的观点或立场,基于网友分享,根据中国法律《信息网络传播权保护条例》第二十二与二十三条之规定,若资源存在侵权或相关问题请联系本站客服人员,点此联系我们。关于更多版权及免责申明参见 版权及免责申明
网友评论
我要评论