// configure output Video media type
  if VideoSourceFilter.FilterGraph <> nil then
  begin
    PinList := TPinList.Create(VideoSourceFilter as IBaseFilter);
    if VideoFormats.ItemIndex <> -1 then
      with (PinList.First as IAMStreamConfig) do
        SetFormat(VideoMediaTypes.Items[VideoFormats.ItemIndex].AMMediaType^);
    PinList.Free;
  end;

不好意思剛剛的問題還沒有問..就POST 了.. 請問有人知道 Delphi 中的 with (obejct as IAMStreamConfig) do .. 要如何轉為到 BCB 的 Code 嗎.. 對Delphi 不是很熟..謝謝..

with FilterGraph1 do begin ClearGraph; Active:=true; RenderFile((ListView1.Selected.SubItems[0])); Play; 像這樣是代表 FilterGraph1->ClearGraph(); FilterGraph1->Active=true; FilterGraph1->RenderFile((ListView1.Selected.SubItems[0])); FilterGraph1->Play(); 加上as我就不清楚了，你試試看吧

撥放檔案都沒有問題,,就是不知道要如何將它 所提供的 Delphi sample 轉為 BCB.所以改到 這個地方就停下來了...因為看不懂那一行要如 何轉為 BCB 碼.

with (obejct as IAMStreamConfig) do 翻成C語言應該是: while(obejct==IAMStreamConfig) { } //我不太曉得IAMStreamConfig是什麼data structure //先當作C語言基本型態來看 剛翻了DK Object Pascal 技術文件檔案區 發現 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=354 可能有許多你想要的東西 自己去看一看