全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1201
推到 Plurk!
推到 Facebook!

如何自動識別播放格式

尚未結案
flyup
資深會員


發表:280
回覆:508
積分:385
註冊:2002-04-15

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-01-12 17:02:36 IP:61.216.xxx.xxx 未訂閱
我寫了一個播放器,是以文件的附屬檔來識別是用REAL或用windows media 來播放,我的電腦裡有幾個MPG的MTV,有的在REAL能放,有的在windows media 能放,如何能做到自動選擇windows media 或REAL。    還有如何得到RM的時間。    下面是我播放的程序: procedure TForm1.Image3Click(Sender: TObject); var Thelength:integer; begin MediaPlayer1.Close; RealAudio1.DoStop; if ListBox1.Items.Count<>0 then  begin  if ExtractFileExt(listbox1.Items.Strings[k])='.rm'then      begin         RealAudio1.source:=listbox1.Items.Strings[k];         label3.Caption:=listbox1.Items.Strings[k];         //Thelength:=Realaudio1.GetLength;         //label1.Caption:= IntToStr(thelength div 60000 div 60)+':'+IntToStr(thelength div 60000 mod 60)+':'+IntToStr(thelength div 1000 mod 60);         realaudio1.DoPlay;         form1.RealAudio1.SetControls('ImageWindow');         form1.RealAudio1.Visible:=True;         realaudio1.setfullscreen;         timer2.Enabled:=false;     end  else     begin        MediaPlayer1.FileName:=listbox1.Items.Strings[k];        label3.Caption:=listbox1.Items.Strings[k];        MediaPlayer1.Open;        Mediaplayer1.TimeFormat:=tfMilliseconds;        Thelength := Mediaplayer1.Length;        label1.Caption:= IntToStr(thelength div 60000 div 60)+':'+IntToStr(thelength div 60000 mod 60)+':'+IntToStr(thelength div 1000 mod 60);        d1:=(thelength div 60000 div 60 *3600)+(thelength div 60000 mod 60 *60)+(thelength div 1000 mod 60);        d2:=0;        mediaplayer1.Display:=Panel5;        panel5.Realign;        mediaplayer1.DoubleBuffered:=true;        mediaplayer1.DisplayRect:=rect(0,0,panel5.Width,panel5.Height);        timer2.Enabled:=true;        RealAudio1.Visible:=false;        mediaplayer1.Play;     end;  end; end;     ---------------- 局局棋盤步步新, 變化無常平常待。 人生相處平常心, 無憂無慮心事成。 ----------------
系統時間:2024-03-29 2:52:36
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!