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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
DSUtil.pas
资源名称：qqdelphiprog.rar　[点击查看]
上传用户：hylc_2004
上传日期：2014-01-23
资源大小：46800k
文件大小：200k
源码类别：

Delphi控件源码

开发平台：

Delphi

DSUtil.pas：源码内容
  2.     (*********************************************************************
  3.      *  DSPack 2.3.3                                                     *
  4.      *                                                                   *
  5.      *  home page : http://www.progdigy.com                              *
  6.      *  email     : hgourvest@progdigy.com                               *
  7.      *   Thanks to Michael Andersen. (DSVideoWindowEx)                   *
  8.      *                                                                   *
  9.      *  date      : 21-02-2003                                           *
  10.      *                                                                   *
  11.      *  The contents of this file are used with permission, subject to   *
  12.      *  the Mozilla Public License Version 1.1 (the "License"); you may  *
  13.      *  not use this file except in compliance with the License. You may *
  14.      *  obtain a copy of the License at                                  *
  15.      *  http://www.mozilla.org/MPL/MPL-1.1.html                          *
  16.      *                                                                   *
  17.      *  Software distributed under the License is distributed on an      *
  18.      *  "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or   *
  19.      *  implied. See the License for the specific language governing     *
  20.      *  rights and limitations under the License.                        *
  21.      *                                                                   *
  22.      *  Contributor(s)                                                   *
  23.      *    Peter J. Haas     <DSPack@pjh2.de>                             *
  24.      *    Andriy Nevhasymyy <a.n@email.com>                              *
  25.      *    Milenko Mitrovic  <dcoder@dsp-worx.de>                         *
  26.      *    Michael Andersen  <michael@mechdata.dk>                        *
  27.      *    Martin Offenwanger <coder@dsplayer.de>                         *
  28.      *                                                                   *
  29.      *********************************************************************)
  31. {
  32.   @abstract(Methods & usefull Class for Direct Show programming.)
  33.   @author(Henri Gourvest: hgourvest@progdigy.com)
  34.   @created(Mar 14, 2002)
  35.   @lastmod(Oct 24, 2003)
  36. }
  38. unit DSUtil;
  39. {$B-}  // needed at least for TSysDevEnum.FilterIndexOfFriendlyName
  40. {$I jedi.inc}
  41. {$IFDEF COMPILER7_UP}
  42.   {$WARN UNSAFE_CODE OFF}
  43.   {$WARN UNSAFE_TYPE OFF}
  44.   {$WARN UNSAFE_CAST OFF}
  45. {$ENDIF}
  47. interface
  49. uses
  50.   {$IFDEF VER140} Variants, {$ENDIF}
  51.   {$IFDEF VER150} Variants, {$ENDIF}
  52.   Windows, Controls, SysUtils, ActiveX, Classes, MMSystem, DirectShow9, WMF9,
  53.   DirectDraw;
  55. const
  56.   IID_IPropertyBag          : TGUID = '{55272A00-42CB-11CE-8135-00AA004BB851}';
  57.   IID_ISpecifyPropertyPages : TGUID = '{B196B28B-BAB4-101A-B69C-00AA00341D07}';
  58.   IID_IPersistStream        : TGUID = '{00000109-0000-0000-C000-000000000046}';
  59.   IID_IMoniker              : TGUID = '{0000000F-0000-0000-C000-000000000046}';
  61.   // MS Mepg4 DMO
  62.   MEDIASUBTYPE_MP42         : TGUID = '{3234504D-0000-0010-8000-00AA00389B71}';
  63.   // DIVX
  64.   MEDIASUBTYPE_DIVX         : TGUID = '{58564944-0000-0010-8000-00AA00389B71}';
  65.   // VoxWare MetaSound
  66.   MEDIASUBTYPE_VOXWARE      : TGUID = '{00000075-0000-0010-8000-00AA00389B71}';
  68.   MiliSecPerDay : Cardinal = 86400000;
  69.   MAX_TIME : Int64 = $7FFFFFFFFFFFFFFF;
  71.   bits555: array[0..2] of DWord = ($007C00, $0003E0, $00001F);
  72.   bits565: array[0..2] of DWord = ($00F800, $0007E0, $00001F);
  73.   bits888: array[0..2] of DWord = ($FF0000, $00FF00, $0000FF);
  75. ////////////////////////////////////////////////////////////////////////////////
  76. // DIVX ressources translated from latest OpenDivx DirectX Codec
  78.   // divx
  79.   CLSID_DIVX    : TGUID = '{78766964-0000-0010-8000-00aa00389b71}';
  80.   // DIVX
  81.   CLSID_DivX_U  : TGUID = '{58564944-0000-0010-8000-00aa00389b71}';
  82.   // dvx1
  83.   CLSID_DivX_   : TGUID = '{31787664-0000-0010-8000-00aa00389b71}';
  84.   // DVX1
  85.   CLSID_DivX__U : TGUID = '{31585644-0000-0010-8000-00aa00389b71}';
  86.   // dx50
  87.   CLSID_dx50    : TGUID = '{30357864-0000-0010-8000-00aa00389b71}';
  88.   // DX50
  89.   CLSID_DX50_   : TGUID = '{30355844-0000-0010-8000-00aa00389b71}';
  90.   // div6
  91.   CLSID_div6    : TGUID = '{36766964-0000-0010-8000-00aa00389b71}';
  92.   // DIV6
  93.   CLSID_DIV6_   : TGUID = '{36564944-0000-0010-8000-00aa00389b71}';
  94.   // div5
  95.   CLSID_div5    : TGUID = '{35766964-0000-0010-8000-00aa00389b71}';
  96.   // DIV5
  97.   CLSID_DIV5_   : TGUID = '{35564944-0000-0010-8000-00aa00389b71}';
  98.   // div4
  99.   CLSID_div4    : TGUID = '{34766964-0000-0010-8000-00aa00389b71}';
  100.   // DIV4
  101.   CLSID_DIV4_   : TGUID = '{34564944-0000-0010-8000-00aa00389b71}';
  102.   // div3
  103.   CLSID_div3    : TGUID = '{33766964-0000-0010-8000-00aa00389b71}';
  104.   // DIV3
  105.   CLSID_DIV3_   : TGUID = '{33564944-0000-0010-8000-00aa00389b71}';
  107.   CLSID_DIVXCodec           : TGUID = '{78766964-0000-0010-8000-00aa00389b71}';
  108.   IID_IIDivXFilterInterface : TGUID = '{D132EE97-3E38-4030-8B17-59163B30A1F5}';
  109.   CLSID_DivXPropertiesPage  : TGUID = '{310e42a0-f913-11d4-887c-006008dc5c26}';
  111. type
  112. {$IFDEF VER130}
  113.   PPointer = ^Pointer;
  114. {$ENDIF}
  116.   { Interface to control the Divx Decoder filter.
  117.     TODO: discover the last function ... }
  118.   IDivXFilterInterface = interface(IUnknown)
  119. ['{D132EE97-3E38-4030-8B17-59163B30A1F5}']
  120.     { OpenDivx }
  121.     // current postprocessing level 0..100
  122.     function get_PPLevel(out PPLevel: integer): HRESULT; stdcall;
  123.     // new postprocessing level 0..100
  124.     function put_PPLevel(PPLevel: integer): HRESULT; stdcall;
  125.     // Put the default postprocessing = 0
  126.     function put_DefaultPPLevel: HRESULT; stdcall;
  127.     { DIVX }
  128.     function put_MaxDelayAllowed(maxdelayallowed: integer): HRESULT; stdcall;
  129.     function put_Brightness(brightness: integer): HRESULT; stdcall;
  130.     function put_Contrast(contrast: integer): HRESULT; stdcall;
  131.     function put_Saturation(saturation: integer): HRESULT; stdcall;
  132.     function get_MaxDelayAllowed(out maxdelayallowed: integer): HRESULT; stdcall;
  133.     function get_Brightness(out brightness: integer): HRESULT; stdcall;
  134.     function get_Contrast(out contrast: integer): HRESULT; stdcall;
  135.     function get_Saturation(out saturation: integer): HRESULT; stdcall;
  136.     function put_AspectRatio(x, y: integer): HRESULT; stdcall;
  137.     function get_AspectRatio(out x, y: integer): HRESULT; stdcall;
  138.   end;
  140. ////////////////////////////////////////////////////////////////////////////////
  141. // Ogg Vorbis
  143. type
  144.   TVORBISFORMAT = record
  145.     nChannels:        WORD;
  146.     nSamplesPerSec:   Longword;
  147.     nMinBitsPerSec:   Longword;
  148.     nAvgBitsPerSec:   Longword;
  149.     nMaxBitsPerSec:   Longword;
  150.     fQuality:         Double;
  151.   end;
  153. const
  155.   // f07e245f-5a1f-4d1e-8bff-dc31d84a55ab
  156.   CLSID_OggSplitter: TGUID = '{f07e245f-5a1f-4d1e-8bff-dc31d84a55ab}';
  158.   // {078C3DAA-9E58-4d42-9E1C-7C8EE79539C5}
  159.   CLSID_OggSplitPropPage: TGUID = '{078C3DAA-9E58-4d42-9E1C-7C8EE79539C5}';
  161.   // 8cae96b7-85b1-4605-b23c-17ff5262b296
  162.   CLSID_OggMux: TGUID = '{8cae96b7-85b1-4605-b23c-17ff5262b296}';
  164.   // {AB97AFC3-D08E-4e2d-98E0-AEE6D4634BA4}
  165.   CLSID_OggMuxPropPage: TGUID = '{AB97AFC3-D08E-4e2d-98E0-AEE6D4634BA4}';
  167.   // {889EF574-0656-4B52-9091-072E52BB1B80}
  168.   CLSID_VorbisEnc: TGUID = '{889EF574-0656-4B52-9091-072E52BB1B80}';
  170.   // {c5379125-fd36-4277-a7cd-fab469ef3a2f}
  171.   CLSID_VorbisEncPropPage: TGUID = '{c5379125-fd36-4277-a7cd-fab469ef3a2f}';
  173.   // 02391f44-2767-4e6a-a484-9b47b506f3a4
  174.   CLSID_VorbisDec: TGUID = '{02391f44-2767-4e6a-a484-9b47b506f3a4}';
  176.   // 77983549-ffda-4a88-b48f-b924e8d1f01c
  177.   CLSID_OggDSAboutPage: TGUID = '{77983549-ffda-4a88-b48f-b924e8d1f01c}';
  179.   // {D2855FA9-61A7-4db0-B979-71F297C17A04}
  180.   MEDIASUBTYPE_Ogg: TGUID = '{D2855FA9-61A7-4db0-B979-71F297C17A04}';
  182.   // cddca2d5-6d75-4f98-840e-737bedd5c63b
  183.   MEDIASUBTYPE_Vorbis: TGUID = '{cddca2d5-6d75-4f98-840e-737bedd5c63b}';
  185.   // 6bddfa7e-9f22-46a9-ab5e-884eff294d9f
  186.   FORMAT_VorbisFormat: TGUID = '{6bddfa7e-9f22-46a9-ab5e-884eff294d9f}';
  189. ////////////////////////////////////////////////////////////////////////////////
  190. // WMF9 Utils
  191. type
  192.   TWMPofiles8 = (
  193.     wmp_V80_255VideoPDA,
  194.     wmp_V80_150VideoPDA,
  195.     wmp_V80_28856VideoMBR,
  196.     wmp_V80_100768VideoMBR,
  197.     wmp_V80_288100VideoMBR,
  198.     wmp_V80_288Video,
  199.     wmp_V80_56Video,
  200.     wmp_V80_100Video,
  201.     wmp_V80_256Video,
  202.     wmp_V80_384Video,
  203.     wmp_V80_768Video,
  204.     wmp_V80_700NTSCVideo,
  205.     wmp_V80_1400NTSCVideo,
  206.     wmp_V80_384PALVideo,
  207.     wmp_V80_700PALVideo,
  208.     wmp_V80_288MonoAudio,
  209.     wmp_V80_288StereoAudio,
  210.     wmp_V80_32StereoAudio,
  211.     wmp_V80_48StereoAudio,
  212.     wmp_V80_64StereoAudio,
  213.     wmp_V80_96StereoAudio,
  214.     wmp_V80_128StereoAudio,
  215.     wmp_V80_288VideoOnly,
  216.     wmp_V80_56VideoOnly,
  217.     wmp_V80_FAIRVBRVideo,
  218.     wmp_V80_HIGHVBRVideo,
  219.     wmp_V80_BESTVBRVideo
  220.   );
  222. const
  223.    WMProfiles8 : array[TWMPofiles8] of TGUID =
  224.     ('{FEEDBCDF-3FAC-4c93-AC0D-47941EC72C0B}',
  225.      '{AEE16DFA-2C14-4a2f-AD3F-A3034031784F}',
  226.      '{D66920C4-C21F-4ec8-A0B4-95CF2BD57FC4}',
  227.      '{5BDB5A0E-979E-47d3-9596-73B386392A55}',
  228.      '{D8722C69-2419-4b36-B4E0-6E17B60564E5}',
  229.      '{3DF678D9-1352-4186-BBF8-74F0C19B6AE2}',
  230.      '{254E8A96-2612-405c-8039-F0BF725CED7D}',
  231.      '{A2E300B4-C2D4-4fc0-B5DD-ECBD948DC0DF}',
  232.      '{BBC75500-33D2-4466-B86B-122B201CC9AE}',
  233.      '{29B00C2B-09A9-48bd-AD09-CDAE117D1DA7}',
  234.      '{74D01102-E71A-4820-8F0D-13D2EC1E4872}',
  235.      '{C8C2985F-E5D9-4538-9E23-9B21BF78F745}',
  236.      '{931D1BEE-617A-4bcd-9905-CCD0786683EE}',
  237.      '{9227C692-AE62-4f72-A7EA-736062D0E21E}',
  238.      '{EC298949-639B-45e2-96FD-4AB32D5919C2}',
  239.      '{7EA3126D-E1BA-4716-89AF-F65CEE0C0C67}',
  240.      '{7E4CAB5C-35DC-45bb-A7C0-19B28070D0CC}',
  241.      '{60907F9F-B352-47e5-B210-0EF1F47E9F9D}',
  242.      '{5EE06BE5-492B-480a-8A8F-12F373ECF9D4}',
  243.      '{09BB5BC4-3176-457f-8DD6-3CD919123E2D}',
  244.      '{1FC81930-61F2-436f-9D33-349F2A1C0F10}',
  245.      '{407B9450-8BDC-4ee5-88B8-6F527BD941F2}',
  246.      '{8C45B4C7-4AEB-4f78-A5EC-88420B9DADEF}',
  247.      '{6E2A6955-81DF-4943-BA50-68A986A708F6}',
  248.      '{3510A862-5850-4886-835F-D78EC6A64042}',
  249.      '{0F10D9D3-3B04-4fb0-A3D3-88D4AC854ACC}',
  250.      '{048439BA-309C-440e-9CB4-3DCCA3756423}');
  253.   function ProfileFromGUID(const GUID: TGUID): TWMPofiles8;
  254. ////////////////////////////////////////////////////////////////////////////////
  256.   { Frees an object reference and replaces the reference with Nil. (Delphi4 compatibility)}
  257.   procedure FreeAndNil(var Obj);
  259.   { Enable Graphedit to connect with a filter graph.<br>
  260.     The application must register the filter graph instance in the Running Object
  261.     Table (ROT). The ROT is a globally accessible look-up table that keeps track
  262.     of running objects. Objects are registered in the ROT by moniker. To connect
  263.     to the graph, GraphEdit searches the ROT for monikers whose display name matches
  264.     a particular format: !FilterGraph X pid Y.<br>
  265.     <b>Graph:</b> a graph interface (IGraphBuilder, IFilterGraph, IFilterGraph2).<br>
  266.     <b>ID:</b> return the ROT identifier.}
  267.   function AddGraphToRot(Graph: IFilterGraph; out ID: integer): HRESULT;
  269.   { Disable Graphedit to connect with your filter graph.<br>
  270.     <b>ID:</b> identifier provided by the @link(AddGraphToRot) method.}
  271.   function RemoveGraphFromRot(ID: integer): HRESULT;
  273.   { deprecated, convert a Time code event to TDVD_TimeCode record. }
  274.   function IntToTimeCode(x : longint): TDVDTimeCode;
  276.   { Return a string explaining a filter graph event. }
  277.   function  GetEventCodeDef(code: longint): string;
  279.   { General purpose function to delete a heap allocated TAM_MEDIA_TYPE structure
  280.     which is useful when calling IEnumMediaTypes.Next as the interface
  281.     implementation allocates the structures which you must later delete
  282.     the format block may also be a pointer to an interface to release. }
  283.   procedure DeleteMediaType(pmt: PAMMediaType);
  285.   { The CreateMediaType function allocates a new AM_MEDIA_TYPE structure,
  286.     including the format block. This also comes in useful when using the
  287.     IEnumMediaTypes interface so that you can copy a media type, you can do
  288.     nearly the same by creating a TMediaType class but as soon as it goes out
  289.     of scope the destructor will delete the memory it allocated
  290.     (this takes a copy of the memory). }
  291.   function  CreateMediaType(pSrc: PAMMediaType): PAMMediaType;
  293.   { The CopyMediaType function copies an AM_MEDIA_TYPE structure into another
  294.     structure, including the format block. This function allocates the memory
  295.     for the format block. If the pmtTarget parameter already contains an allocated
  296.     format block, a memory leak will occur. To avoid a memory leak, call
  297.     FreeMediaType before calling this function. }
  298.   procedure CopyMediaType(pmtTarget: PAMMediaType; pmtSource: PAMMediaType);
  300.   { The FreeMediaType function frees the format block in an AM_MEDIA_TYPE structure.
  301.     Use this function to free just the format block. To delete the AM_MEDIA_TYPE
  302.     structure, call DeleteMediaType. }
  303.   procedure FreeMediaType(mt: PAMMediaType);
  305.   { The CreateAudioMediaType function initializes a media type from a TWAVEFORMATEX structure.
  306.     If the bSetFormat parameter is TRUE, the method allocates the memory for the format
  307.     block. If the pmt parameter already contains an allocated format block, a memory
  308.     leak will occur. To avoid a memory leak, call FreeMediaType before calling this function.
  309.     After the method returns, call FreeMediaType again to free the format block. }
  310.   function CreateAudioMediaType(pwfx: PWaveFormatEx; pmt: PAMMediaType; bSetFormat: boolean): HRESULT;
  312.   { The FOURCCMap function provides conversion between GUID media subtypes and
  313.     old-style FOURCC 32-bit media tags. In the original Microsoft