文件名称:AudioGrabber
下载
别用迅雷、360浏览器下载。
如迅雷强制弹出,可右键点击选“另存为”。
失败请重下,重下不扣分。
如迅雷强制弹出,可右键点击选“另存为”。
失败请重下,重下不扣分。
介绍说明--下载内容均来自于网络,请自行研究使用
Add the ISampleGrabberCB to the main class of your app:
TForm1 = class(TForm, ISampleGrabberCB)
You have to create the following in your main class:
Private
FSampleGrabber : IBaseFilter
m_SampleGrabber: ISampleGrabber
function SampleCB(SampleTime: Double pSample: IMediaSample): HResult stdcall
function BufferCB(SampleTime: Double pBuffer: PByte BufferLen: longint): HResult stdcall
.. etc
end
function TForm1.SampleCB(SampleTime: Double pSample: IMediaSample): HResult
begin
Result := E_NOTIMPL
end
-Add the ISampleGrabberCB to the main class of your app:
TForm1 = class(TForm, ISampleGrabberCB)
You have to create the following in your main class:
Private
FSampleGrabber : IBaseFilter
m_SampleGrabber: ISampleGrabber
function SampleCB(SampleTime: Double pSample: IMediaSample): HResult stdcall
function BufferCB(SampleTime: Double pBuffer: PByte BufferLen: longint): HResult stdcall
.. etc
end
function TForm1.SampleCB(SampleTime: Double pSample: IMediaSample): HResult
begin
Result := E_NOTIMPL
end
TForm1 = class(TForm, ISampleGrabberCB)
You have to create the following in your main class:
Private
FSampleGrabber : IBaseFilter
m_SampleGrabber: ISampleGrabber
function SampleCB(SampleTime: Double pSample: IMediaSample): HResult stdcall
function BufferCB(SampleTime: Double pBuffer: PByte BufferLen: longint): HResult stdcall
.. etc
end
function TForm1.SampleCB(SampleTime: Double pSample: IMediaSample): HResult
begin
Result := E_NOTIMPL
end
-Add the ISampleGrabberCB to the main class of your app:
TForm1 = class(TForm, ISampleGrabberCB)
You have to create the following in your main class:
Private
FSampleGrabber : IBaseFilter
m_SampleGrabber: ISampleGrabber
function SampleCB(SampleTime: Double pSample: IMediaSample): HResult stdcall
function BufferCB(SampleTime: Double pBuffer: PByte BufferLen: longint): HResult stdcall
.. etc
end
function TForm1.SampleCB(SampleTime: Double pSample: IMediaSample): HResult
begin
Result := E_NOTIMPL
end
(系统自动生成,下载前可以参看下载内容)
下载文件列表
AudioGrabber.txt