請問 Delphi 如何才能播放 DVD ( VOB檔 )檔? 使用 TMediaPlayer 元件無法播放. 希望能有高手指導, 謝謝!!

發表人 - mobitaco 於 2003/12/24 21:19:56

謝謝回答,DSPACK23.exe 已下載. 安裝方式也會參照下列所說明的安裝http://delphi.ktop.com.tw/topic.php?TOPIC_ID=38582. 1.但 DSPACK23 即使安裝好了也不知道該如何使用(不知道是否能像 TMideaPlayer 那麼方便使用), 是否有前輩願告知如何使用呢? 2.所提的decoder要費用也沒關係, 但不知該去那邊DownLoad, 且要如何使用? 3.我只想撥放個 VOB 檔而已, 需要這麼麻煩嗎? 有沒有簡單好用的元件呢? 4.Delphi TirdParty 是否有類似 TMideaPlayer 的元件, 可支援MP1-4及較常見的影像格式當, 即使要收費也可以? (若有的話在那邊可DownLoad 試用看看呢?) 謝謝!!

發表人 - mobitaco 於 2003/12/24 21:20:27

建議還是用DSPACK來做吧，不要偷懶咩~~~C:\Program Files\DSPack\Demos\D6-D7\DVDPlay就有示範~~~很簡單的~~~我對那個有個小範例，可以找我的名字里所發表過的文章里面就有了 左邊的照片是我兒子哩

謝謝japhenchen 及 mobitaco 的指導, DSPACK 果然好用. 大部份的 Demo 程式都可 RUN, 但 DVDPlay 確無法執行, 執行時有下列錯誤訊息,不知道是我設定錯誤, 還是 Demo 程式有問題呢? 不知 2 位前輩可否指導? 不勝感激, 謝謝!! The FilterGraphDVDCurrentHMSFTime method reference by FilterGra.OnDVDCurrentHMSFTime has an incompatible parameter list. Remove the reference? [Error] Unit1.pas(99): Undeclared identifier: 'TDVD_HMSF_TIMECODE' [Error] Unit1.pas(99): Undeclared identifier: 'TDVD_TimeCode' [Error] Unit1.pas(116): Undeclared identifier: 'TAM_DVD_RenderStatus' [Error] Unit1.pas(126): Types of actual and formal var parameters must be identical [Error] Unit1.pas(132): 'THEN' expected but identifier 'hrVPEStatus' found [Error] Unit1.pas(133): 'THEN' expected but identifier 'bDvdVolInvalid' found [Error] Unit1.pas(134): 'THEN' expected but identifier 'bDvdVolUnknown' found [Error] Unit1.pas(135): 'THEN' expected but identifier 'bNoLine21In' found [Error] Unit1.pas(136): 'THEN' expected but identifier 'bNoLine21Out' found [Error] Unit1.pas(137): 'THEN' expected but identifier 'iNumStreamsFailed' found [Error] Unit1.pas(159): Expression expected but 'PROCEDURE' found [Error] Unit1.pas(354): Undeclared identifier: 'bHours' [Error] Unit1.pas(354): Undeclared identifier: 'bSeconds' [Fatal Error] DVDPlay.dpr(5): Could not compile used unit 'Unit1.pas'

Sorry 忘了說明, 我的環境是 Win2000, Delphi 使用 5.0.

你有沒有安裝DIRECTX9.0？ 左邊的照片是我兒子哩

japhenchen你好: 我試過了, 並不是 DIRECTX9.0 沒安裝的原因. DIRECTX9.0 我有裝. 否則其他程式怎麼能執行呢!! 我已試過, 只要改用 Delphi 7.0 就沒問題. 但我現因其他元件的關係, 只能使用 D5. 從 Error Message: Undeclared identifier: 'TDVD_HMSF_TIMECODE' 來看, TDVD_HMSF_TIMECODE 很明顯的 Delphi 5.0 無法識別, 且 hrVPEStatus 也都是 not Found, 若沒裝 DIRECTX9.0, 錯誤訊息不會是這樣的. 不知有何前輩高人, 可以指導我如何在 Delphi 5.0 才能使 DVDPlay 該程式能夠執行. 謝謝!!