我想要在bcb撥放聲音的時候，顯示出每次撥放wav檔的聲音時間長度，像撥放音樂軟體那樣顯示幾分幾秒，請問我該如何做?或者有沒有相關資訊? 謝謝!

使用 TMediaPlayer 內有 Position 可用，表示目前正在撥放的位置，而其顯示的單位可以使用 TimeFormat 這個 Property 來設定，可以參考 TimerFormat 的 Online Help 內有範例，我把它改成顯示 Position 的數值：

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int TheLength;
  // Set time format - note that some devices don't support tfHMS
  MediaPlayer1->TimeFormat = tfHMS;
  // current position of media
  TheLength = MediaPlayer1->Position; 
  // display hours in label 1
  Label1->Caption = IntToStr(LOBYTE(LOWORD(TheLength)));
  // display minutes in label 2
  Label2->Caption = IntToStr(HIBYTE(LOWORD(TheLength)));
  // display the seconds in label 3
  Label3->Caption = IntToStr(LOBYTE(HIWORD(TheLength)));
}

由其註解表示， tfHMS 並不是每種 media 都支援，可以改用 tfMilliseconds 轉成千分之一秒，自己再轉換即可。 沒空更新的網頁... http://dllee.ktop.com.tw C及指標教學,計算機概論,資訊管理導論... http://dllee.adsldns.org 介紹Shells,LiteStep,GeoShell....

------
http://www.ViewMove.com

我想問一下如果要上面的時間格式加到裡頭應該要加在哪邊呢?? 我是新手!!我弄很久了!!麻煩解惑!!    //---------------------------------------------------------------------------    #include  #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::X1Click(TObject *Sender) { Form1->Close(); } //--------------------------------------------------------------------------- void __fastcall TForm1::SpeedButton2Click(TObject *Sender) { if(OpenDialog1->Execute()) { MediaPlayer1->FileName=OpenDialog1->FileName; MediaPlayer1->Open(); ScrollBar1->Min=MediaPlayer1->Position; ScrollBar1->Max=MediaPlayer1->TrackLength[0]; } } //--------------------------------------------------------------------------- void __fastcall TForm1::SpeedButton3Click(TObject *Sender) { Form1->Close(); } //--------------------------------------------------------------------------- void __fastcall TForm1::O1Click(TObject *Sender) { if(OpenDialog1->Execute()) { MediaPlayer1->FileName=OpenDialog1->FileName; MediaPlayer1->Open(); ScrollBar1->Min=MediaPlayer1->Position; ScrollBar1->Max=MediaPlayer1->TrackLength[0]; } } //--------------------------------------------------------------------------- void __fastcall TForm1::Timer1Timer(TObject *Sender) { if(MediaPlayer1->FileName!="") { Label1->Caption=MediaPlayer1->Position; ScrollBar1->Position=MediaPlayer1->Position; } } //--------------------------------------------------------------------------- void __fastcall TForm1::ScrollBar1Scroll(TObject *Sender, TScrollCode ScrollCode, int &ScrollPos) { MediaPlayer1->Position=ScrollBar1->Position; MediaPlayer1->Play(); } //---------------------------------------------------------------------------