📄 dshow.pas
字号:
function Load(pPropBag: IMediaPropertyBag; pErrorLog: IErrorLog): HResult; stdcall;
function Save(pPropBag: IMediaPropertyBag; fClearDirty, fSaveAllProperties: BOOL): HResult; stdcall;
end;
IAMPhysicalPinInfo = interface(IUnknown)
['{F938C991-3029-11CF-8C44-00AA006B6814}']
function GetPhysicalType(var pType: Longint; var ppszType: POLESTR): HResult; stdcall;
end;
IAMExtDevice = interface(IUnknown)
['{B5730A90-1A2C-11CF-8C23-00AA006B6814}']
function GetCapability(Capability: Longint; var pValue: Longint; pdblValue: double): HResult; stdcall;
function get_ExternalDeviceID(var ppszData: POLESTR): HResult; stdcall;
function get_ExternalDeviceVersion(var ppszData: POLESTR): HResult; stdcall;
function put_DevicePower(PowerMode: Longint): HResult; stdcall;
function get_DevicePower(var pPowerMode: Longint): HResult; stdcall;
function Calibrate(hEvent: THandle; Mode: Longint; var pStatus: Longint): HResult; stdcall;
function put_DevicePort(DevicePort: Longint): HResult; stdcall;
function get_DevicePort(var pDevicePort: Longint): HResult; stdcall;
end;
IAMExtTransport = interface(IUnknown)
['{A03CD5F0-3045-11CF-8C44-00AA006B6814}']
function GetCapability(Capability: Longint; var pValue: Longint; var pdblValue: double): HResult; stdcall;
function put_MediaState(State: Longint): HResult; stdcall;
function get_MediaState(var pState: Longint): HResult; stdcall;
function put_LocalControl(State: Longint): HResult; stdcall;
function get_LocalControl(var pState: Longint): HResult; stdcall;
function GetStatus(StatusItem: Longint; var pValue: Longint): HResult; stdcall;
function GetTransportBasicParameters(Param: Longint; var pValue: Longint; var ppszData: POLESTR): HResult; stdcall;
function SetTransportBasicParameters(Param: Longint; Value: Longint; pszData: POLESTR): HResult; stdcall;
function GetTransportVideoParameters(Param: Longint; var pValue: Longint): HResult; stdcall;
function SetTransportVideoParameters(Param: Longint; Value: Longint): HResult; stdcall;
function GetTransportAudioParameters(Param: Longint; var pValue: Longint): HResult; stdcall;
function SetTransportAudioParameters(Param: Longint; Value: Longint): HResult; stdcall;
function put_Mode(Mode: Longint): HResult; stdcall;
function get_Mode(var pMode: Longint): HResult; stdcall;
function put_Rate(dblRate: double): HResult; stdcall;
function get_Rate(var pdblRate: double): HResult; stdcall;
function GetChase(var pEnabled, pOffset: Longint; var phEvent: THandle): HResult; stdcall;
function SetChase(Enable, Offset: Longint; hEvent: THandle): HResult; stdcall;
function GetBump(var pSpeed, pDuration: Longint): HResult; stdcall;
function SetBump(Speed, Duration: Longint): HResult; stdcall;
function get_AntiClogControl(var pEnabled: Longint): HResult; stdcall;
function put_AntiClogControl(Enable: Longint): HResult; stdcall;
function GetEditPropertySet(EditID: Longint; var pState: Longint): HResult; stdcall;
function SetEditPropertySet(var pEditID: Longint; State: Longint): HResult; stdcall;
function GetEditProperty(EditID, Param: Longint; var pValue: Longint): HResult; stdcall;
function SetEditProperty(EditID, Param, Value: Longint): HResult; stdcall;
function get_EditStart(var pValue: Longint): HResult; stdcall;
function put_EditStart(Value: Longint): HResult; stdcall;
end;
TTimeCode = record
wFrameRate: Word;
wFrameFract: Word;
dwFrames: DWORD;
qw: LONGLONG;
end;
TTimeCode_Sample = record
qwTick: LONGLONG;
timecode: TTimeCode;
dwUser: DWORD;
dwFlags: DWORD;
end;
IAMTimecodeReader = interface(IUnknown)
['{9B496CE1-811B-11CF-8C77-00AA006B6814}']
function GetTCRMode(Param: Longint; var pValue: Longint): HResult; stdcall;
function SetTCRMode(Param: Longint; Value: Longint): HResult; stdcall;
function put_VITCLine(Line: Longint): HResult; stdcall;
function get_VITCLine(var pLine: Longint): HResult; stdcall;
function GetTimecode(var pTimecodeSample: TTimeCode_Sample): HResult; stdcall;
end;
IAMTimecodeGenerator = interface(IUnknown)
['{9B496CE0-811B-11CF-8C77-00AA006B6814}']
function GetTCGMode(Param: Longint; var pValue: Longint): HResult; stdcall;
function SetTCGMode(Param: Longint; Value: Longint): HResult; stdcall;
function put_VITCLine(Line: Longint): HResult; stdcall;
function get_VITCLine(var Line: Longint): HResult; stdcall;
function SetTimecode(const pTimecodeSample: TTimeCode_Sample): HResult; stdcall;
function GetTimecode(var pTimecodeSample: TTimeCode_Sample): HResult; stdcall;
end;
IAMTimecodeDisplay = interface(IUnknown)
['{9B496CE2-811B-11CF-8C77-00AA006B6814}']
function GetTCDisplayEnable(var pState: Longint): HResult; stdcall;
function SetTCDisplayEnable(State: Longint): HResult; stdcall;
function GetTCDisplay(Param: Longint; var pValue: Longint): HResult; stdcall;
function SetTCDisplay(Param, Value: Longint): HResult; stdcall;
end;
IAMDevMemoryAllocator = interface(IUnknown)
['{C6545BF0-E76B-11D0-BD52-00A0C911CE86}']
function GetInfo(var pdwcbTotalFree, pdwcbLargestFree, pdwcbTotalMemory, pdwcbMinimumChunk: DWORD): HResult; stdcall;
function CheckMemory(pBuffer: Pointer): HResult; stdcall;
function Alloc(var ppBuffer: Pointer; var pdwcbBuffer: DWORD): HResult; stdcall;
function Free(pBuffer: Pointer): HResult; stdcall;
function GetDevMemoryObject(out ppUnkInnner: IUnknown; pUnkOuter: IUnknown): HResult; stdcall;
end;
IAMDevMemoryControl = interface(IUnknown)
['{C6545BF1-E76B-11D0-BD52-00A0C911CE86}']
function QueryWriteSync: HResult; stdcall;
function WriteSync: HResult; stdcall;
function GetDevId(var pdwDevId: DWORD): HResult; stdcall;
end;
const
AMSTREAMSELECTINFO_ENABLED = $1;
AMSTREAMSELECTINFO_EXCLUSIVE = $2;
AMSTREAMSELECTENABLE_ENABLE = $1;
AMSTREAMSELECTENABLE_ENABLEALL = $2;
type
IAMStreamSelect = interface(IUnknown)
['{C1960960-17F5-11D1-ABE1-00A0C905F375}']
function Count(var pcStreams: DWORD): HResult; stdcall;
function Info(lIndex: Longint; var ppmt: PAM_Media_Type;
var pdwFlags: DWORD; var plcid: LCID; var pdwGroup: DWORD;
var ppszName: PWCHAR; out ppObject: IUnknown; out ppUnk : IUnknown): HResult; stdcall;
function Enable(lIndex: Longint; dwFlags: DWORD): HResult; stdcall;
end;
IAMovie = interface(IFilterGraph)
['{359ACE10-7688-11CF-8B23-00805F6CEF60}']
function Connect(ppinOut, ppinIn: IPin): HResult; stdcall;
function Render(ppinOut: IPin): HResult; stdcall;
function Run: HResult; stdcall;
function Pause: HResult; stdcall;
function Stop: HResult; stdcall;
function GetState(msTimeout: Longint; var pfs: TFilter_State): HResult; stdcall;
function RenderFile(strFilename: LPCWSTR): HResult; stdcall;
function AddSourceFilter(strFilename: LPCWSTR; out ppUnk: IBaseFilter): HResult; stdcall;
function GetEventHandle(out hEvent: THandle): HResult; stdcall;
function GetEvent(var lEventCode, lParam1, lParam2: Longint; msTimeout: Longint): HResult; stdcall;
function WaitForCompletion(msTimeout: Longint; var pEvCode: Longint): HResult; stdcall;
function CancelDefaultHandling(lEvCode: Longint): HResult; stdcall;
function RestoreDefaultHandling(lEvCode: Longint): HResult; stdcall;
function get_Duration(var plength: TRefTime): HResult; stdcall;
function put_CurrentPosition(llTime: TRefTime): HResult; stdcall;
function get_CurrentPosition(var pllTime: TRefTime): HResult; stdcall;
function get_StopTime(var pllTime: TRefTime): HResult; stdcall;
function put_StopTime(llTime: TRefTime): HResult; stdcall;
function get_PrerollTime(var pllTime: TRefTime): HResult; stdcall;
function put_PrerollTime(llTime: TRefTime): HResult; stdcall;
function put_Rate(dRate: double): HResult; stdcall;
function get_Rate(var pdRate: double): HResult; stdcall;
function RemoveAllFilters: HResult; stdcall;
function Play: HResult; stdcall;
function PlayFile(strFilename: LPCWSTR): HResult; stdcall;
function EnumFiltersByInterface(const riid: TGUID;
out ppEnum: IEnumFilters): HResult; stdcall;
function EnumPins(out ppEnum: IEnumPins): HResult; stdcall;
function EnumPinsIn(out ppEnum: IEnumPins): HResult; stdcall;
function EnumPinsOut(out ppEnum: IEnumPins): HResult; stdcall;
function RenderAll: HResult; stdcall;
function RenderNewFile(strFilename: LPCWSTR): HResult; stdcall;
function FreeEventParams(lEvCode, lParam1, lParam2: Longint): HResult; stdcall;
end;
const
CDEF_CLASS_DEFAULT = $1000;
CDEF_BYPASS_CLASS_MANAGER = $2000;
type
ICreateDevEnum = interface(IUnknown)
['{29840822-5B84-11D0-BD3B-00A0C911CE86}']
function CreateClassEnumerator(const clsidDeviceClass: TGUID;
out ppEnumMoniker: IEnumMoniker; dwFlags: DWORD): HResult; stdcall;
end;
TDVD_Domain = (
DVD_DOMAIN_FirstPlay,
DVD_DOMAIN_VideoManagerMenu,
DVD_DOMAIN_VideoTitleSetMenu,
DVD_DOMAIN_Title,
DVD_DOMAIN_Stop
);
TDVD_Menu_ID = (
DVD_MENU_INVALID_0,
DVD_MENU_INVALID_1,
DVD_MENU_Title,
DVD_MENU_Root,
DVD_MENU_Subpicture,
DVD_MENU_Audio,
DVD_MENU_Angle,
DVD_MENU_Chapter
);
TDVD_Disc_Side = (
DVD_SIDE_INVALID_0,
DVD_SIDE_A,
DVD_SIDE_B
);
TDVD_PREFERRED_Display_Mode = (
DISPLAY_CONTENT_DEFAULT,
DISPLAY_16x9,
DISPLAY_4x3_PANSCAN_PREFERRED,
DISPLAY_4x3_LETTERBOX_PREFERRED
);
TDVD_REGISTER = Word;
TGPRMArray = array[0..15] of TDVD_REGISTER;
TSPRMArray = array[0..23] of TDVD_REGISTER;
TDVD_ATR = record
ulCAT: ULONG;
pbATRI: array[0..767] of Byte;
end;
TDVD_VideoATR = array[0..1] of Byte;
TDVD_AudioATR = array[0..7] of Byte;
TDVD_SubpictureATR = array[0..5] of Byte;
TDVD_FrameRate = (
DVD_FPS_INVALID_0,
DVD_FPS_25,
DVD_FPS_INVALID_2,
DVD_FPS_30NonDrop
);
TDVD_TimeCode = record
Hours1: ULONG; // Hours
Hours10: ULONG; // Tens of Hours
Minutes1: ULONG; // Minutes
Minutes10: ULONG; // Tens of Minutes
Seconds1: ULONG; // Seconds
Seconds10: ULONG; // Tens of Seconds
Frames1: ULONG; // Frames
Frames10: ULONG; // Tens of Frames
FrameRateCode: ULONG; // use DVD_FRAMERATE to indicate frames/sec and drop/non-drop
end;
TDVD_Playback_Location = record
TitleNum: ULONG;
ChapterNum: ULONG;
TimeCode: ULONG;
end;
TVALID_UOP_SOMTHING_OR_OTHER = DWORD;
const
DVD_PARENTAL_LEVEL_8 = $8000;
DVD_PARENTAL_LEVEL_7 = $4000;
DVD_PARENTAL_LEVEL_6 = $2000;
DVD_PARENTAL_LEVEL_5 = $1000;
DVD_PARENTAL_LEVEL_4 = $0800;
DVD_PARENTAL_LEVEL_3 = $0400;
DVD_PARENTAL_LEVEL_2 = $0200;
DVD_PARENTAL_LEVEL_1 = $0100;
type
IDvdControl = interface(IUnknown)
['{A70EFE61-E2A3-11D0-A9BE-00AA0061BE93}']
function TitlePlay(uiTitle: ULONG): HResult; stdcall;
function ChapterPlay(uiTitle: ULONG; uiChapter: ULONG): HResult; stdcall;
function TimePlay(uiTitle: ULONG; bcdTime: ULONG): HResult; stdcall;
function StopForResume: HResult; stdcall;
function GoUp: HResult; stdcall;
function TimeSearch(bcdTime: ULONG): HResult; stdcall;
function ChapterSearch(Chapter: ULONG): HResult; stdcall;
function PrevPGSearch: HResult; stdcall;
function TopPGSearch: HResult; stdcall;
function NextPGSearch: HResult; stdcall;
function ForwardScan(dwSpeed: double): HResult; stdcall;
function BackwardScan(dwSpeed: double): HResult; stdcall;
function MenuCall(MenuID: TDVD_Menu_ID): HResult; stdcall;
function Resume: HResult; stdcall;
function UpperButtonSelect: HResult; stdcall;
function LowerButtonSelect: HResult; stdcall;
function LeftButtonSelect: HResult; stdcall;
function RightButtonSelect: HResult; stdcall;
function ButtonActivate: HResult; stdcall;
function ButtonSelectAndActivate(uiButton: ULONG): HResult; stdcall;
function StillOff: HResult; stdcall;
function PauseOn: HResult; stdcall;
function PauseOff: HResult; stdcall;
function MenuLanguageSelect(Language: LCID): HResult; stdcall;
function AudioStreamChange(nAudio: ULONG): HResult; stdcall;
function SubpictureStreamChange(nSubPicture: ULONG; bDisplay: BOOL): HResult; stdcall;
function AngleChange(ulAngle: ULONG): HResult; stdcall;
function ParentalLevelSelect(ulParentalLevel: ULONG): HResult; stdcall;
function ParentalCountrySelect(wCountry: Word): HResult; stdcall;
function KaraokeAudioPresentationModeChange(ulMode: ULONG): HResult; stdcall;
function VideoModePreferrence(ulPreferredDisplayMode: ULONG): HResult; stdcall;
function SetRoot(pszPath: LPCWSTR): HResult; stdcall;
function MouseActivate(const point: TPoint): HResult; stdcall;
function MouseSelect(const point: TPoint): HResult; stdcall;
function ChapterPlayAutoStop(ulTitle, ulChapter, ulChaptersToPlay: ULONG): HResult; stdcall;
end;
IDvdInfo = interface(IUnknown)
['{A70EFE60-E2A3-11D0-A9BE-00AA0061BE93}']
function GetCurrentDomain(var pDomain: TDVD_Domain): HResult; stdcall;
function GetCurrentLocation(var pLocation: TDVD_Playback_Location): HResult; stdcall;
function GetTotalTitleTime(var pTotalTime: ULONG): HResult; stdcall;
function GetCurrentButton(var pnButtonsAvailable, pnCurrentButton: ULONG): HResult; stdcall;
function GetCurrentAngle(var pnAnglesAvailable, pnCurrentAngle: ULONG): HResult; stdcall;
function GetCurrentAu⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -