开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > DirextX编程 > 查看源码
WHPlaySDK.~pas
资源名称：directshowsdk.rar　[点击查看]
上传用户：mjqmds
上传日期：2022-05-05
资源大小：2827k
文件大小：14k
源码类别：

DirextX编程

开发平台：

Delphi

WHPlaySDK.~pas：源码内容
  1. unit WHPlaySDK;
  3. interface
  5. uses windows, Messages, Classes, SysUtils, Forms;
  7. Const
  8.     WM_GRAPHNOTIFY=WM_USER+20;
  10.     IDC_EMBOSS=                      1002;
  11.     IDC_GREY=                        1003;
  12.     IDC_BLUR=                        1004;
  13.     IDC_POSTERIZE=                   1005;
  14.     IDC_XOR=                         1006;
  15.     IDC_DARKEN=                      1007;
  16.     IDC_BLUE=                        1008;
  17.     IDC_GREEN=                       1009;
  18.     IDC_RED=                         1010;
  19.     IDC_NONE=                        1011;
  20.     ProcAmpControl9_Brightness = $00000001;
  21.     ProcAmpControl9_Contrast   = $00000002;
  22.     ProcAmpControl9_Hue        = $00000004;
  23.     ProcAmpControl9_Saturation = $00000008;
  26.     EC_WMT_EVENT_BASE                   =$0251;
  27.     EC_SYSTEMBASE                       =$00;
  28.     EC_USER                             =$8000;
  29.     EC_COMPLETE                         =$01;
  30.     EC_USERABORT                        =$02;
  31.     EC_ERRORABORT                       =$03;
  32.     EC_TIME                             =$04;
  33.     EC_REPAINT                          =$05;
  34.     EC_STREAM_ERROR_STOPPED             =$06;
  35.     EC_STREAM_ERROR_STILLPLAYING        =$07;
  36.     EC_ERROR_STILLPLAYING               =$08;
  37.     EC_PALETTE_CHANGED                  =$09;
  38.     EC_VIDEO_SIZE_CHANGED               =$0A;
  39.     EC_QUALITY_CHANGE                   =$0B;
  40.     EC_SHUTTING_DOWN                    =$0C;
  41.     EC_CLOCK_CHANGED                    =$0D;
  42.     EC_PAUSED                           =$0E;
  43.     EC_OPENING_FILE                     =$10;
  44.     EC_BUFFERING_DATA                   =$11;
  45.     EC_FULLSCREEN_LOST                  =$12;
  46.     EC_ACTIVATE                         =$13;
  47.     EC_NEED_RESTART                     =$14;
  48.     EC_WINDOW_DESTROYED                 =$15;
  49.     EC_DISPLAY_CHANGED                  =$16;
  50.     EC_STARVATION                       =$17;
  51.     EC_OLE_EVENT                        =$18;
  52.     EC_NOTIFY_WINDOW                    =$19;
  53.     EC_STREAM_CONTROL_STOPPED           =$1A;
  54.     EC_STREAM_CONTROL_STARTED           =$1B;
  55.     EC_END_OF_SEGMENT                   =$1C;
  56.     EC_SEGMENT_STARTED                  =$1D;
  57.     EC_LENGTH_CHANGED                   =$1E;
  58.     EC_DEVICE_LOST                      =$1f;
  59.     EC_STEP_COMPLETE                    =$24;
  60.     EC_TIMECODE_AVAILABLE           =$30;
  61.     EC_EXTDEVICE_MODE_CHANGE        =$31;
  62.     EC_STATE_CHANGE                 =$32;
  63.     EC_GRAPH_CHANGED                =$50;
  64.     EC_CLOCK_UNSET                  =$51;
  65.     EC_VMR_RENDERDEVICE_SET         =$53;
  66.     VMR_RENDER_DEVICE_OVERLAY       =$01;
  67.     VMR_RENDER_DEVICE_VIDMEM        =$02;
  68.     VMR_RENDER_DEVICE_SYSMEM        =$04;
  69.     EC_VMR_SURFACE_FLIPPED          =$54;
  70.     EC_VMR_RECONNECTION_FAILED      =$55;
  71.     EC_PREPROCESS_COMPLETE          =$56;
  72.     EC_CODECAPI_EVENT               =$57;
  73.     EC_WMT_INDEX_EVENT              =EC_WMT_EVENT_BASE;
  74.     EC_WMT_EVENT                    =EC_WMT_EVENT_BASE+1;
  75.     EC_BUILT                        =$300;
  76.     EC_UNBUILT                      =$301;
  77. Type
  78.     PVMR9ProcAmpControl=^TVMR9ProcAmpControl;
  79.     TVMR9ProcAmpControl=record
  80.         dwSize:DWORD;
  81.         dwFlags:DWORD;
  82.         Brightness:Single;
  83.         Contrast:Single;
  84.         Hue:Single;
  85.         Saturation:Single;
  86.     end;
  88.     PVMR9NormalizedRect=^TVMR9NormalizedRect;
  89.     TVMR9NormalizedRect=record
  90.         left:Single;
  91.         top:Single;
  92.         right:Single;
  93.         bottom:Single;
  94.     end;
  96.     PMediaInfo=^TMediaInfo;
  97.     TMediaInfo=record
  98.         PlayMinites:Integer;
  99.         PlaySeconds:Integer;
  100.         PlayHours:Integer;
  101.     end;
  103.     TOnNotifyEvent=procedure (event:LongInt; Param:Pointer; var IsContinue:Boolean);stdcall;
  105.     TdllOpenUnLockFile=function (FileName:PChar):Integer;stdcall;
  106.     TdllOpenLockFile=function (FileName,Password:PChar):Integer;stdcall;
  107.     TdllCaptureToBmp=function (FileName:PChar):Integer;stdcall;
  108.     TdllPause=function ():Integer;stdcall;
  109.     TdllPlay=function ():Integer;stdcall;
  110.     TdllStop=function ():Integer;stdcall;
  111.     TdllSetPosition=function (nPos:UINT):Integer;stdcall;
  112.     TdllGetPostion=function():Integer;stdcall;
  113.     TdllFullscreen=function ():Integer;stdcall;
  114.     TdllRestoreFromFullScreen=function ():Integer;stdcall;
  115.     //TdllFindFilterByInterface=function (riid:REFIID, var ppFilter:^IBaseFilter):HRESULT;stdcall;
  116.     TdllShowVRPropertyPage=function ():Integer;stdcall;
  117.     TdllRegisterVideoHandle=function (vHandle:HWND):Integer;stdcall;
  118.     TdllRegisterMsgHandle=function (vHandle:HWND):Integer;stdcall;
  119.     TdllRegisterLockFilterGUID=function (g:TGUID):Integer;stdcall;
  120.     TdllCreateLockGraph=function (Password:PChar):Integer;stdcall;
  121.     TdllCreateUnLockGraph=function ():Integer;stdcall;
  122.     TdllDestroyGraph=function ():Integer;stdcall;
  123.     TdllDefaultOnGraphNotify=function (inWParam:WPARAM; inLParam:LPARAM; Param:Pointer; OnNotifyEvent:TOnNotifyEvent):LRESULT;stdcall;
  124.     TdllGetSize=function():Integer;stdcall;
  125.     TdllSwitchStepFrame=function :Boolean;stdcall;
  126.     TdllStepFrames=function(nFramesToStep:Integer):HRESULT;stdcall;
  127.     TdllStepOneFrame=function:HRESULT;stdcall;
  128.     TdllModifyRate=function(dRateAdjust:double):HRESULT;stdcall;
  129.     TdllSetRate=function(dRate:double):HRESULT;stdcall;
  130.     TdllToggleMute=function:HRESULT;stdcall;
  131.     TdllMuteAudio=function:HRESULT;stdcall;
  132.     TdllResumeAudio=function:HRESULT;stdcall;
  133.     TdllVolume=function(lVolume:longInt):HRESULT;stdcall;
  134.     TdllGetVolume=function:longint;stdcall;
  135.     TdllGetNoInitVolume=function:longint;stdcall;
  136.     TdllQuit=function ():Integer;stdcall;
  137.     TdllResetDisplay=function (VideoHandle:HWND):Integer;stdcall;
  138.     TdllConfig=function (Command:PChar; var Param1,Param2:LongInt):Integer;stdcall;
  139.     TdllAddLockGraph=function (SourceFile:PChar):Integer;stdcall;
  140.     TdllAddUnLockGraph=function (SourceFile:PChar):Integer;stdcall;
  141.     TdllSetAlpha=function (streamID:DWORD;alpha:Single):Integer;stdcall;
  142.     TdllGetAlpha=function (streamID:DWORD;var alpha:Single):Integer;stdcall;
  143.     TdllSetAmpControl=function (streamID:DWORD; amp:PVMR9ProcAmpControl):Integer;stdcall;
  144.     TdllGetAmpControl=function (streamID:DWORD; amp:PVMR9ProcAmpControl):Integer;stdcall;
  145.     TdllSetVideoRect=function (streamID:WORD; Rec:PVMR9NormalizedRect):Integer;stdcall;
  146.     TdllGetLockMediaInfo=function (FileName:PChar;Info:PMediaInfo):Integer;stdcall;
  147.     TdllGetNoLockMediaInfo=function (FileName:PChar;Info:PMediaInfo):Integer;stdcall;
  148.     TdllReadMediaPosition=function (var nSeconds,nMinutes:Integer):Integer;stdcall;
  149.     TdllGetEvent=function (var eventCode:LongInt):Boolean;stdcall;
  150.     TdllDisplayRatio=function (mode:Integer):Integer;stdcall;
  151.     TdllRepaint=function (hwnd:HWND; hdc:HDC):HRESULT;stdcall;
  152.     TdllDefaultProcessMsg=function (hwd:HWND; Msg:LongInt; wParam:WPARAM; lParam:LPARAM):LongInt;stdcall;
  153.     TdllGetVideoRect=function (pRec:PRect):Boolean;stdcall;
  154.     TdllEndPreview=procedure ();stdcall;
  155.     TdllBeginPreview=procedure (PreviewHandle:HWND; PreviewCount:Integer);stdcall;
  156.     TdllSetPreviewMedia=procedure (FileName:PChar; m_nLayer:Integer);stdcall;
  157.     TdllSetPreviewMediaRect=procedure (m_nLayer:Integer; var rec:TRect);stdcall;
  158.     TdllPreviewPlay=procedure ();stdcall;
  159.     TdllPreviewGetSM=procedure (var nSeconds,nMinutes:Integer);stdcall;
  160.     TdllPreviewGetPosition=function():Integer;stdcall;
  161.     TdllPreviewSetPosition=procedure (Pos:Integer);stdcall;
  162.     TdllPreviewSetAudio=procedure (nLayer,volume:Integer);stdcall;
  163.     TdllPreviewPause=procedure ();stdcall;
  165. Var
  166.     dllOpenUnLockFile:TdllOpenUnLockFile;
  167.     dllOpenLockFile:TdllOpenLockFile;
  168.     dllCaptureToBmp:TdllCaptureToBmp;
  169.     dllPause:TdllPause;
  170.     dllPlay:TdllPlay;
  171.     dllStop:TdllStop;
  172.     dllSetPosition:TdllSetPosition;
  173.     dllGetPostion:TdllGetPostion;
  174.     dllFullscreen:TdllFullscreen;
  175.     dllRestoreFromFullScreen:TdllRestoreFromFullScreen;
  176. //    dllFindFilterByInterface:TdllFindFilterByInterface;
  177.     dllShowVRPropertyPage:TdllShowVRPropertyPage;
  178.     dllRegisterVideoHandle:TdllRegisterVideoHandle;
  179.     dllRegisterMsgHandle:TdllRegisterMsgHandle;
  180.     dllRegisterLockFilterGUID:TdllRegisterLockFilterGUID;
  181.     dllCreateLockGraph:TdllCreateLockGraph;
  182.     dllCreateUnLockGraph:TdllCreateUnLockGraph;
  183.     dllDestroyGraph:TdllDestroyGraph;
  184.     dllDefaultOnGraphNotify:TdllDefaultOnGraphNotify;
  185.     dllGetSize:TdllGetSize;
  186.     dllSwitchStepFrame:TdllSwitchStepFrame;
  187.     dllStepFrames:TdllStepFrames;
  188.     dllStepOneFrame:TdllStepOneFrame;
  189.     dllModifyRate:TdllModifyRate;
  190.     dllSetRate:TdllSetRate;
  191.     dllToggleMute:TdllToggleMute;
  192.     dllMuteAudio:TdllMuteAudio;
  193.     dllResumeAudio:TdllResumeAudio;
  194.     dllVolume:TdllVolume;
  195.     dllGetVolume:TdllGetVolume;
  196.     dllGetNoInitVolume:TdllGetNoInitVolume;
  197.     dllQuit:TdllQuit;
  198.     dllResetDisplay:TdllResetDisplay;
  199.     dllConfig:TdllConfig;
  200.     dllAddLockGraph:TdllAddLockGraph;
  201.     dllSetAlpha:TdllSetAlpha;
  202.     dllAddUnLockGraph:TdllAddUnLockGraph;
  203.     dllSetAmpControl:TdllSetAmpControl;
  204.     dllGetAmpControl:TdllGetAmpControl;
  205.     dllSetVideoRect:TdllSetVideoRect;
  206.     dllGetAlpha:TdllGetAlpha;
  207.     dllGetLockMediaInfo:TdllGetLockMediaInfo;
  208.     dllGetNoLockMediaInfo:TdllGetNoLockMediaInfo;
  209.     dllReadMediaPosition:TdllReadMediaPosition;
  210.     dllGetEvent:TdllGetEvent;
  211.     dllDisplayRatio:TdllDisplayRatio;
  212.     dllRepaint:TdllRepaint;
  213.     dllDefaultProcessMsg:TdllDefaultProcessMsg;
  214.     dllGetVideoRect:TdllGetVideoRect;
  215.     dllEndPreview:TdllEndPreview;
  216.     dllBeginPreview:TdllBeginPreview;
  217.     dllSetPreviewMedia:TdllSetPreviewMedia;
  218.     dllSetPreviewMediaRect:TdllSetPreviewMediaRect;
  219.     dllPreviewPlay:TdllPreviewPlay;
  220.     dllPreviewGetSM:TdllPreviewGetSM;
  221.     dllPreviewGetPosition:TdllPreviewGetPosition;
  222.     dllPreviewSetPosition:TdllPreviewSetPosition;
  223.     dllPreviewSetAudio:TdllPreviewSetAudio;
  224.     dllPreviewPause:TdllPreviewPause;
  226. function IsLockFile(FileName:String):Boolean;
  228. implementation
  229. Var
  230.     Lib:THandle;
  232. function IsLockFile(FileName:String):Boolean;
  233. Var
  234.     Ext:String;
  235. begin
  236.     Result:=false;
  237.     Ext:=UpperCase(ExtractFileExt(FileName));
  238.     if Ext='.WHL' then
  239.     begin
  240.         Result:=true;
  241.     end;
  242. end;
  244. Initialization
  245.     Lib:=LoadLibrary(PChar(ExtractFilePath(Application.ExeName)+'WH_PLAYERSDK.dll'));
  246.     dllOpenUnLockFile:=GetProcAddress(Lib,'dllOpenUnLockFile');
  247.     dllOpenLockFile:=GetProcAddress(Lib,'dllOpenLockFile');
  248.     dllCaptureToBmp:=GetProcAddress(Lib,'dllCaptureToBmp');
  249.     dllPause:=GetProcAddress(Lib,'dllPause');
  250.     dllPlay:=GetProcAddress(Lib,'dllPlay');
  251.     dllStop:=GetProcAddress(Lib,'dllStop');
  252.     dllSetPosition:=GetProcAddress(Lib,'dllSetPosition');
  253.     dllGetPostion:=GetProcAddress(Lib,'dllGetPostion');
  254.     dllFullscreen:=GetProcAddress(Lib,'dllFullscreen');
  255.     dllRestoreFromFullScreen:=GetProcAddress(Lib,'dllRestoreFromFullScreen');
  256. //    dllFindFilterByInterface:=GetProcAddress(Lib,'dllFindFilterByInterface');
  257.     dllShowVRPropertyPage:=GetProcAddress(Lib,'dllShowVRPropertyPage');
  258.     dllRegisterVideoHandle:=GetProcAddress(Lib,'dllRegisterVideoHandle');
  259.     dllRegisterMsgHandle:=GetProcAddress(Lib,'dllRegisterMsgHandle');
  260.     dllRegisterLockFilterGUID:=GetProcAddress(Lib,'dllRegisterLockFilterGUID');
  261.     dllCreateLockGraph:=GetProcAddress(Lib,'dllCreateLockGraph');
  262.     dllCreateUnLockGraph:=GetProcAddress(Lib,'dllCreateUnLockGraph');
  263.     dllDestroyGraph:=GetProcAddress(Lib,'dllDestroyGraph');
  264.     dllDefaultOnGraphNotify:=GetProcAddress(Lib,'dllDefaultOnGraphNotify');
  265.     dllGetSize:=GetProcAddress(Lib,'dllGetSize');
  266.     dllSwitchStepFrame:=GetProcAddress(Lib,'dllSwitchStepFrame');
  267.     dllStepFrames:=GetProcAddress(Lib,'dllStepFrames');
  268.     dllStepOneFrame:=GetProcAddress(Lib,'dllStepOneFrame');
  269.     dllModifyRate:=GetProcAddress(Lib,'dllModifyRate');
  270.     dllSetRate:=GetProcAddress(Lib,'dllSetRate');
  271.     dllToggleMute:=GetProcAddress(Lib,'dllToggleMute');
  272.     dllMuteAudio:=GetProcAddress(Lib,'dllMuteAudio');
  273.     dllResumeAudio:=GetProcAddress(Lib,'dllResumeAudio');
  274.     dllVolume:=GetProcAddress(Lib,'dllVolume');
  275.     dllGetVolume:=GetProcAddress(Lib,'dllGetVolume');
  276.     dllGetNoInitVolume:=GetProcAddress(Lib,'dllGetNoInitVolume');
  277.     dllQuit:=GetProcAddress(Lib,'dllQuit');
  278.     dllResetDisplay:=GetProcAddress(Lib,'dllResetDisplay');
  279.     dllConfig:=GetProcAddress(Lib,'dllConfig');
  280.     dllAddLockGraph:=GetProcAddress(Lib,'dllAddLockGraph');
  281.     dllSetAlpha:=GetProcAddress(Lib,'dllSetAlpha');
  282.     dllAddUnLockGraph:=GetProcAddress(Lib,'dllAddUnLockGraph');
  283.     dllSetAmpControl:=GetProcAddress(Lib,'dllSetAmpControl');
  284.     dllGetAmpControl:=GetProcAddress(Lib,'dllGetAmpControl');
  285.     dllSetVideoRect:=GetProcAddress(Lib,'dllSetVideoRect');
  286.     dllGetAlpha:=GetProcAddress(Lib,'dllGetAlpha');
  287.     dllGetNoLockMediaInfo:=GetProcAddress(Lib,'dllGetNoLockMediaInfo');
  288.     dllGetLockMediaInfo:=GetProcAddress(Lib,'dllGetLockMediaInfo');
  289.     dllReadMediaPosition:=GetProcAddress(Lib,'dllReadMediaPosition');
  290.     dllGetEvent:=GetProcAddress(Lib,'dllGetEvent');
  291.     dllDisplayRatio:=GetProcAddress(Lib,'dllDisplayRatio');
  292.     dllRepaint:=GetProcAddress(Lib,'dllRepaint');
  293.     dllDefaultProcessMsg:=GetProcAddress(Lib,'dllDefaultProcessMsg');
  294.     dllGetVideoRect:=GetProcAddress(Lib,'dllGetVideoRect');
  295.     dllEndPreview:=GetProcAddress(Lib,'dllEndPreview');
  296.     dllBeginPreview:=GetProcAddress(Lib,'dllBeginPreview');
  297.     dllSetPreviewMedia:=GetProcAddress(Lib,'dllSetPreviewMedia');
  298.     dllSetPreviewMediaRect:=GetProcAddress(Lib,'dllSetPreviewMediaRect');
  299.     dllPreviewPlay:=GetProcAddress(Lib,'dllPreviewPlay');
  300.     dllPreviewGetSM:=GetProcAddress(Lib,'dllPreviewGetSM');
  301.     dllPreviewGetPosition:=GetProcAddress(Lib,'dllPreviewGetPosition');
  302.     dllPreviewSetPosition:=GetProcAddress(Lib,'dllPreviewSetPosition');
  303.     dllPreviewSetAudio:=GetProcAddress(Lib,'dllPreviewSetAudio');
  304.     dllPreviewPause:=GetProcAddress(Lib,'dllPreviewPause');
  306. Finalization
  307.     FreeLibrary(Lib);
  308. end.