ClassFactory無法供應要求的類別??? |
|
|
|
superrakce
一般會員   發表：24 回覆：35 積分：11 註冊：2006-10-09 發送簡訊給我 |
|
|
pcboy
版主   發表：177 回覆：1838 積分：1463 註冊：2004-01-13 發送簡訊給我 |
|
|
superrakce
一般會員 發表：24 回覆：35 積分：11 註冊：2006-10-09 發送簡訊給我 |
先說好，不可以笑我寫的程式笨
implementation uses activex; var TFG : array of TFilterGraph; TF : array of TFilter; DevCun :array of integer; DevFil : array of string; ttb : array of tTrackBar; ts: array of TTabSheet; K:integer; procedure TFormEditor.volumchange(Sender: TObject); begin fg[pagecontrol1.ActivePageIndex].Volume:= (165 - tb.Position)*100; end; procedure TFormEditor.Button3Click(Sender: TObject); var j,l,i:integer; begin combobox1.Clear; for i:= 0 to sysdevenum.CountCategories-1 do begin if sysdevenum.Categories[i].FriendlyName= 'Audio Capture Sources' then begin l:= i; sysdevenum.SelectIndexCategory(i); setlength(DevCun,l); setlength(DevFil,l); setlength(ttb,l); setlength(TFG,l); setlength(TF,l); setlength(ts,l); for j:= 0 to sysdevenum.CountFilters-1 do begin DevFil[j]:=sysdevenum.Filters[j].FriendlyName; ts[j] := TTabSheet.Create(Self); ts[j].Caption :='第 ' inttostr(j 1) ' 區'; ts[j].PageControl := PageControl1; ttb[j]:= tTrackBar.Create(formeditor); ttb[j].max:=100; ttb[j].min:= 65; ttb[j].Parent:=PageControl1.Pages[j]; ttb[j].Position:= 0; ttb[j].Height:= 20; ttb[j].Width:= 50; ttb[j].Top := 355; ttb[j].Left := 20; // ttb[j].Orientation := trvertical; ttb[j].TickStyle:= tsnone; ttb[j].TickMarks:= tmBoth; ttb[j].ThumbLength := 15; ttb[j].OnChange := volumchange; TFG[j] := TFilterGraph.Create(owner); tf[j] := tfilter.Create(owner); TF[j].FilterGraph:= TFG[j]; end; end; if sysdevenum.Categories[i].FriendlyName= 'Audio Renderers' then k:=i; end; sysdevenum.SelectIndexCategory(k); for i:=0 to sysdevenum.CountFilters-1 do begin for j:= 0 to l-1 do begin if sysdevenum.Filters[i].FriendlyName =DevFil[j] then begin combobox1.Items.Add(sysdevenum.Filters[i].FriendlyName); DevCun[j]:=i; TF[j].basefilter.moniker:= sysdevenum.GetMoniker(DevCun[j]); TFG[j].Active := false ; TFG[j].Active := true ; TFG[j].ClearGraph; TFG[j].RenderFile('c:\' inttostr(j) '.mp3'); TFG[j].Play; end; end; end; end; |
發表時間：2007-01-24 11:10:51
IP:210.70.xxx.xxx 訂閱
系統時間：2024-05-17 17:56:32
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |