線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1850
推到 Plurk!
推到 Facebook!

直接播放資源文件裡的MP3媒體

缺席
pcernet
初階會員


發表:69
回覆:113
積分:41
註冊:2002-11-29

發送簡訊給我
#1 引用回覆 回覆 發表時間:2007-09-22 12:13:57 IP:61.218.xxx.xxx 未訂閱
可以直接播放資源文件裡的MP3媒體嗎?

var Res:TResourceStream;
begin
Res:=TResourceStream.Create(HInstance,'SND1',PChar('Media1'));
Res.SaveToFile('1.mp3');
Res.Free;
MCIsendstring(Pchar('open ' '1.mp3' ' type mpegvideo alias ww'),nil,0,0);
MCIsendstring('play ww',nil,0,0);
end;

如果不想把資料儲存到硬碟再處理,可以嗎?

我試著使用DSPACK元件:
var swp:Tstream;

begin
res.SaveToStream(swp);
AsyncEx:=TAsyncEx.Create('',nil);
AsyncEx.SetLoadFromStream(swp,swp.Size);
AsyncEx.FindPin('StreamOut',l_Pin);
FilterGraph1.AddFilter(AsyncEx,StringToOleStr('Async FileSource'));
//Result := CheckDSError(FFilterGraph.Render(l_Pin));
//Result:=(FFilterGraph.Render(l_Pin));
FilterGraph1.play;
end;

板上雖然有相關問題,但都沒有答案,
還是有其他的元件可以分享,謝謝!
系統時間:2024-04-29 13:58:51
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!