製作media player 遇到的問題 - Delphi K.Top 討論區

#1 引用回覆回覆

發表時間：2005-10-23 10:30:37

IP:202.175.xxx.xxx 未訂閱

1.當我拉trackbar 的時候. .有時會出現以下圖片的error .

2.播放playlist , 當playing 再click list中的其他歌...會不正常當所有歌曲播放完...就click 就會正常一首接一首歌... 謝謝各位指點 @_@ http://202.175.61.23/~c00ge078/Copy of Copy of media2.rar 幫忙看一下 @_@ unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, MPlayer, ComCtrls,registry,inifiles; type TForm1 = class(TForm) Image2: TImage; Label1: TLabel; Label2: TLabel; openimg: TImage; playimg: TImage; stopimg: TImage; Label3: TLabel; MediaPlayer1: TMediaPlayer; Timer1: TTimer; OpenDialog1: TOpenDialog; Image1: TImage; Image3: TImage; Image4: TImage; ListBox1: TListBox; Image5: TImage; SaveDialog1: TSaveDialog; TrackBar1: TTrackBar; repeatimg: TImage; ListBox2: TListBox; procedure Timer1Timer(Sender: TObject); procedure FormCreate(Sender: TObject); procedure playimgClick(Sender: TObject); procedure openimgClick(Sender: TObject); procedure stopimgClick(Sender: TObject); procedure pauseimgClick(Sender: TObject); procedure Label1Click(Sender: TObject); procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Image3Click(Sender: TObject); procedure Image4Click(Sender: TObject); procedure Image5Click(Sender: TObject); procedure ListBox1DblClick(Sender: TObject); procedure ListBox1Click(Sender: TObject); procedure openimgMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure openimgMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure playimgMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure playimgMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure stopimgMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure stopimgMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure repeatimgClick(Sender: TObject); procedure MediaPlayer1Notify(Sender: TObject); procedure TrackBar1Change(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; repeat_bl : boolean = false; mode : boolean; musicindex : integer = -1; exname : string ; implementation {$R *.DFM} function move(str : string) : string; //走馬燈 var s : string; temp : char; i : integer; begin temp := str[1]; s := str; for i := 1 to length(str)-1 do begin s[i] := s[i+1]; str := s; end; s[length(str)] := temp; move := s; end; function updatetitle (str : string) : string; //讀出歌名 var temp , title : string; i : integer; begin i := length(str); while str[i] <> '\' do begin temp := temp + str[i]; i := i-1; end; i := length(temp); while i > 0 do begin title := title + temp[i]; i := i - 1; end; for i := 1 to 85-length(title) do title := title +' '; updatetitle := title; end; function timefmt(time : integer) : string; //轉換時間格式 begin time := round(time / 1000); timefmt := FormatFloat('00' , Trunc(time / 3600)) + ':' + FormatFloat('00' , (Trunc(time / 60)) MOD 60) + ':' + FormatFloat('00' , time MOD 60); end; procedure TForm1.Timer1Timer(Sender: TObject); begin if MediaPlayer1.Position = MediaPlayer1.Length then Begin if repeat_bl then Begin MediaPlayer1.Open; MediaPlayer1.Play; End; End; if mediaplayer1.mode = mpplaying then begin if mode then label1.caption := timefmt(mediaplayer1.position) else label1.caption := timefmt(mediaplayer1.Length - mediaplayer1.position ); label3.caption := move(label3.caption); label2.caption := timefmt(mediaplayer1.length); trackbar1.max := mediaplayer1.Length div 1000; trackbar1.Position := mediaplayer1.position div 1000; end else begin label1.caption := '00:00:00'; label2.caption :='00:00:00'; label3.caption := updatetitle(mediaplayer1.filename); timer1.Enabled := false; trackbar1.Position := 0; end; end; procedure TForm1.FormCreate(Sender: TObject); var reg : tregistry; i : integer; begin exname := ExtractFilePath(Application.ExeName); repeat_bl := false; mode := true;//true 代表時間格式為 elapse,false 為remaining reg := tregistry.create; try reg.rootkey := hkey_current_user; if reg.openkey('\software\minmediaplayer',true) then begin if reg.readstring('filename') <> '' then begin mediaplayer1.FileName := reg.readstring('filename'); label3.caption := updatetitle(mediaplayer1.filename); end; end; finally reg.closekey; reg.free; end; end; procedure TForm1.playimgClick(Sender: TObject); begin if mediaplayer1.FileName <> '' then case mediaplayer1.Mode of mpPlaying : begin mediaplayer1.Pause; timer1.Enabled := false; end; mpPaused : begin mediaplayer1.pause; timer1.Enabled := true; end else mediaplayer1.open; mediaplayer1.Play; timer1.Enabled := true; end; end; procedure TForm1.openimgClick(Sender: TObject); var i : integer; temp , title : string; reg : tregistry; begin if opendialog1.execute then if opendialog1.FilterIndex <> 4 then begin mediaplayer1.filename := opendialog1.filename; mediaplayer1.open; mediaplayer1.Play; timer1.Enabled := true; label3.caption := updatetitle(mediaplayer1.filename); for i := 1 to 40-length(label3.caption) do label3.caption := label3.caption+' '; //將檔案路徑儲存於ms windows 註冊表 reg := tregistry.create; try reg.rootkey := hkey_current_user; if reg.openkey('\software\minmediaplayer',true) then reg.writestring('filename',mediaplayer1.filename); finally reg.closekey; reg.free; end; listbox1.Items.Add(updatetitle(mediaplayer1.filename)); listbox2.items.add(mediaplayer1.filename); listbox1.Itemindex := listbox1.Items.count -1; listbox2.ItemIndex := listbox2.Items.count -1; end else begin listbox2.items.LoadFromFile(opendialog1.FileName); listbox1.Items.Clear; for i := 0 to listbox2.Items.Count-1 do listbox1.Items.add(updatetitle(listbox2.items.strings[i])); end; end; procedure TForm1.stopimgClick(Sender: TObject); begin if mediaplayer1.Mode = mpplaying then begin mediaplayer1.Stop; trackbar1.Position := 0 ; timer1.Enabled := false; label3.caption := updatetitle(mediaplayer1.filename); label1.caption := '00:00:00'; end; end; procedure TForm1.pauseimgClick(Sender: TObject); begin mediaplayer1.Pause; timer1.Enabled := not(timer1.enabled); end; procedure TForm1.Label1Click(Sender: TObject); begin mode := not(mode); end; procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Const Sc_DragMove:LongInt=$F012; begin if Button = mbLeft then begin ReleaseCapture; SendMessage(handle,wm_SysCommand,Sc_DragMove,0); end; end; procedure TForm1.Image3Click(Sender: TObject); begin close; end; procedure TForm1.Image4Click(Sender: TObject); begin Application.Minimize; end; procedure TForm1.Image5Click(Sender: TObject); begin if savedialog1.execute then listbox2.Items.SaveToFile(savedialog1.filename); end; procedure TForm1.ListBox1DblClick(Sender: TObject); begin mediaplayer1.filename := listbox2.Items[listbox1.itemindex]; listbox2.ItemIndex := listbox1.ItemIndex; label3.caption := updatetitle(mediaplayer1.filename); mediaplayer1.Open; mediaplayer1.Play; timer1.Enabled := true; end; procedure TForm1.ListBox1Click(Sender: TObject); begin listbox2.itemindex := listbox1.itemindex; mediaplayer1.FileName := listbox2.Items.Strings[listbox2.itemindex]; listbox1.Hint := listbox2.Items[listbox1.itemindex]; end; procedure TForm1.openimgMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin openimg.Picture.LoadFromFile(exname+'image/open_c.bmp'); end; procedure TForm1.openimgMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin openimg.Picture.LoadFromFile(exname+'image/open.bmp'); end; procedure TForm1.playimgMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin playimg.Picture.LoadFromFile(exname+'image/play_c.bmp'); end; procedure TForm1.playimgMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin playimg.Picture.LoadFromFile(exname+'image/play.bmp'); end; procedure TForm1.stopimgMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin stopimg.Picture.LoadFromFile(exname+'image/stop_c.bmp'); end; procedure TForm1.stopimgMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin stopimg.Picture.LoadFromFile(exname+'image/stop.bmp'); end; procedure TForm1.repeatimgClick(Sender: TObject); begin repeat_bl := not(repeat_bl); if repeat_bl then repeatimg.Picture.LoadFromFile(exname+'image/repeat_c.bmp') else repeatimg.Picture.LoadFromFile(exname+'image/repeat.bmp'); end; procedure TForm1.MediaPlayer1Notify(Sender: TObject); begin if not(repeat_bl) then if listbox1.ItemIndex < listbox1.items.Count-1 then begin timer1.Enabled := true; listbox1.ItemIndex := listbox1.itemindex+1; listbox2.itemindex := listbox2.itemindex+1; mediaplayer1.FileName := listbox2.Items.Strings[listbox2.itemindex]; mediaplayer1.Open; mediaplayer1.Play; end; end; procedure TForm1.TrackBar1Change(Sender: TObject); begin if mediaplayer1.Mode = mpplaying then begin mediaplayer1.Position := trackbar1.Position*1000; mediaplayer1.Play; end; end; end.

http://www.mezone.net