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

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

Delphi控件源码

开发平台：

Delphi

MediaTypeEditor.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.      *********************************************************************)
  23.      
  24. unit MediaTypeEditor;
  26. interface
  28. {$IFDEF VER150}
  29.   {$WARN UNSAFE_CODE OFF}
  30.   {$WARN UNSAFE_TYPE OFF}
  31.   {$WARN UNSAFE_CAST OFF}
  32. {$ENDIF}
  34. uses
  35.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  36.   Dialogs, DSUtil, StdCtrls, DirectShow9, Mask;
  38. type
  39.   TFormMediaType = class(TForm)
  40.     btOK: TButton;
  41.     btCancel: TButton;
  42.     cbMajorTypes: TComboBox;
  43.     cbSubTypes: TComboBox;
  44.     Label1: TLabel;
  45.     Label2: TLabel;
  46.     chkFixedSize: TCheckBox;
  47.     chkTempCompress: TCheckBox;
  48.     edSampleSize: TEdit;
  49.     Label3: TLabel;
  50.     cbFormatType: TComboBox;
  51.     Label4: TLabel;
  52.     Memo1: TMemo;
  53.     lblFormatSize: TLabel;
  54.     edFormatSize: TEdit;
  55.     procedure FormShow(Sender: TObject);
  56.     procedure cbMajorTypesChange(Sender: TObject);
  57.     procedure cbSubTypesChange(Sender: TObject);
  58.     procedure chkFixedSizeClick(Sender: TObject);
  59.     procedure chkTempCompressClick(Sender: TObject);
  60.     procedure btOKClick(Sender: TObject);
  61.     procedure cbFormatTypeChange(Sender: TObject);
  62.     procedure edSampleSizeChange(Sender: TObject);
  63.   public
  64.     MediaType: TMediaType;
  65.     procedure RefreshMediaType;
  66.     constructor create(AOwner: TComponent); override;
  67.     destructor Destroy; override;
  68.   end;
  70.   TGUIDDescription = record
  71.     name: string;
  72.     GUID: TGUID;
  73.   end;
  76. var
  77.   FormMediaType: TFormMediaType;
  79. const
  80.   MajorTypes : array[0..15] of TGUIDDescription =
  81.    ((name: '[Automatic]'; GUID: '{00000000-0000-0000-0000-000000000000}'),
  82.     (name: 'Video'         ; GUID: '{73646976-0000-0010-8000-00AA00389B71}'),
  83.     (name: 'Audio'         ; GUID: '{73647561-0000-0010-8000-00AA00389B71}'),
  84.     (name: 'AnalogAudio'   ; GUID: '{0482DEE1-7817-11CF-8A03-00AA006ECB65}'),
  85.     (name: 'AnalogVideo'   ; GUID: '{0482DDE1-7817-11CF-8A03-00AA006ECB65}'),
  86.     (name: 'AUXLine21Data' ; GUID: '{670AEA80-3A82-11D0-B79B-00AA003767A7}'),
  87.     (name: 'File'          ; GUID: '{656C6966-0000-0010-8000-00AA00389B71}'),
  88.     (name: 'Interleaved'   ; GUID: '{73766169-0000-0010-8000-00AA00389B71}'),
  89.     (name: 'LMRT'          ; GUID: '{74726c6d-0000-0010-8000-00aa00389b71}'),
  90.     (name: 'Midi'          ; GUID: '{7364696D-0000-0010-8000-00AA00389B71}'),
  91.     (name: 'MPEG2_PES'     ; GUID: '{e06d8020-db46-11cf-b4d1-00805f6cbbea}'),
  92.     (name: 'ScriptCommand' ; GUID: '{73636D64-0000-0010-8000-00AA00389B71}'),
  93.     (name: 'Stream'        ; GUID: '{E436EB83-524F-11CE-9F53-0020AF0BA770}'),
  94.     (name: 'Text'          ; GUID: '{73747874-0000-0010-8000-00AA00389B71}'),
  95.     (name: 'Timecode'      ; GUID: '{0482DEE3-7817-11CF-8A03-00AA006ECB65}'),
  96.     (name: 'URL_STREAM'    ; GUID: '{736c7275-0000-0010-8000-00aa00389b71}'));
  98.   SubTypes : array[0..97] of TGUIDDescription =
  99.    ((name: '[Automatic]'; GUID: '{00000000-0000-0000-0000-000000000000}'),
  100.     (name: 'MJPG'; GUID: '{47504A4D-0000-0010-8000-00AA00389B71}'),
  101.     (name: 'Avi'; GUID: '{E436EB88-524F-11CE-9F53-0020AF0BA770}'),
  102.     (name: 'Asf'; GUID: '{3DB80F90-9412-11D1-ADED-0000F8754B99}'),
  103.     (name: 'PCM'; GUID: '{00000001-0000-0010-8000-00AA00389B71}'),
  104.     (name: 'WAVE'; GUID: '{E436EB8B-524F-11CE-9F53-0020AF0BA770}'),
  105.     (name: 'AU'; GUID: '{E436EB8C-524F-11CE-9F53-0020AF0BA770}'),
  106.     (name: 'AIFF'; GUID: '{E436EB8D-524F-11CE-9F53-0020AF0BA770}'),
  107.     (name: 'DTS'; GUID: '{E06D8033-DB46-11CF-B4D1-00805F6CBBEA}'),
  108.     (name: 'DOLBY_AC3'; GUID: '{E06D802C-DB46-11CF-B4D1-00805F6CBBEA}'),
  109.     (name: 'RGB1'; GUID: '{E436EB78-524F-11CE-9F53-0020AF0BA770}'),
  110.     (name: 'RGB4'; GUID: '{E436EB79-524F-11CE-9F53-0020AF0BA770}'),
  111.     (name: 'RGB8'; GUID: '{E436EB7A-524F-11CE-9F53-0020AF0BA770}'),
  112.     (name: 'RGB565'; GUID: '{E436EB7B-524F-11CE-9F53-0020AF0BA770}'),
  113.     (name: 'RGB555'; GUID: '{E436EB7C-524F-11CE-9F53-0020AF0BA770}'),
  114.     (name: 'RGB24'; GUID: '{E436EB7D-524F-11CE-9F53-0020AF0BA770}'),
  115.     (name: 'RGB32'; GUID: '{E436EB7E-524F-11CE-9F53-0020AF0BA770}'),
  116.     (name: 'ARGB32'; GUID: '{773C9AC0-3274-11D0-B724-00AA006C1A01}'),
  117.     (name: 'YUYV'; GUID: '{56595559-0000-0010-8000-00AA00389B71}'),
  118.     (name: 'IYUV'; GUID: '{56555949-0000-0010-8000-00AA00389B71}'),
  119.     (name: 'YVU9'; GUID: '{39555659-0000-0010-8000-00AA00389B71}'),
  120.     (name: 'Y411'; GUID: '{31313459-0000-0010-8000-00AA00389B71}'),
  121.     (name: 'Y41P'; GUID: '{50313459-0000-0010-8000-00AA00389B71}'),
  122.     (name: 'YUY2'; GUID: '{32595559-0000-0010-8000-00AA00389B71}'),
  123.     (name: 'YVYU'; GUID: '{55595659-0000-0010-8000-00AA00389B71}'),
  124.     (name: 'UYVY'; GUID: '{59565955-0000-0010-8000-00AA00389B71}'),
  125.     (name: 'Y211'; GUID: '{31313259-0000-0010-8000-00AA00389B71}'),
  126.     (name: 'YV12'; GUID: '{32315659-0000-0010-8000-00AA00389B71}'),
  127.     (name: 'CLPL'; GUID: '{4C504C43-0000-0010-8000-00AA00389B71}'),
  128.     (name: 'CLJR'; GUID: '{524A4C43-0000-0010-8000-00AA00389B71}'),
  129.     (name: 'IF09'; GUID: '{39304649-0000-0010-8000-00AA00389B71}'),
  130.     (name: 'CPLA'; GUID: '{414C5043-0000-0010-8000-00AA00389B71}'),
  131.     (name: 'TVMJ'; GUID: '{4A4D5654-0000-0010-8000-00AA00389B71}'),
  132.     (name: 'WAKE'; GUID: '{454B4157-0000-0010-8000-00AA00389B71}'),
  133.     (name: 'CFCC'; GUID: '{43434643-0000-0010-8000-00AA00389B71}'),
  134.     (name: 'IJPG'; GUID: '{47504A49-0000-0010-8000-00AA00389B71}'),
  135.     (name: 'Plum'; GUID: '{6D756C50-0000-0010-8000-00AA00389B71}'),
  136.     (name: 'DVCS'; GUID: '{53435644-0000-0010-8000-00AA00389B71}'),
  137.     (name: 'DVSD'; GUID: '{44535644-0000-0010-8000-00AA00389B71}'),
  138.     (name: 'MDVF'; GUID: '{4656444D-0000-0010-8000-00AA00389B71}'),
  139.     (name: 'Overlay'; GUID: '{E436EB7F-524F-11CE-9F53-0020AF0BA770}'),
  140.     (name: 'MPEG1Packet'; GUID: '{E436EB80-524F-11CE-9F53-0020AF0BA770}'),
  141.     (name: 'MPEG1Payload'; GUID: '{E436EB81-524F-11CE-9F53-0020AF0BA770}'),
  142.     (name: 'MPEG1AudioPayload'; GUID: '{00000050-0000-0010-8000-00AA00389B71}'),
  143.     (name: 'MPEG1System'; GUID: '{E436EB84-524F-11CE-9F53-0020AF0BA770}'),
  144.     (name: 'MPEG1VideoCD'; GUID: '{E436EB85-524F-11CE-9F53-0020AF0BA770}'),
  145.     (name: 'MPEG1Video'; GUID: '{E436EB86-524F-11CE-9F53-0020AF0BA770}'),
  146.     (name: 'MPEG1Audio'; GUID: '{E436EB87-524F-11CE-9F53-0020AF0BA770}'),
  147.     (name: 'QTMovie'; GUID: '{E436EB89-524F-11CE-9F53-0020AF0BA770}'),
  148.     (name: 'QTRpza'; GUID: '{617A7072-0000-0010-8000-00AA00389B71}'),
  149.     (name: 'QTSmc'; GUID: '{20636D73-0000-0010-8000-00AA00389B71}'),
  150.     (name: 'QTRle'; GUID: '{20656C72-0000-0010-8000-00AA00389B71}'),
  151.     (name: 'QTJpeg'; GUID: '{6765706A-0000-0010-8000-00AA00389B71}'),
  152.     (name: 'PCMAudio_Obsolete'; GUID: '{E436EB8A-524F-11CE-9F53-0020AF0BA770}'),
  153.     (name: 'dvsd_'; GUID: '{64737664-0000-0010-8000-00AA00389B71}'),
  154.     (name: 'dvhd'; GUID: '{64687664-0000-0010-8000-00AA00389B71}'),
  155.     (name: 'dvsl'; GUID: '{6C737664-0000-0010-8000-00AA00389B71}'),
  156.     (name: 'Line21_BytePair'; GUID: '{6E8D4A22-310C-11D0-B79A-00AA003767A7}'),
  157.     (name: 'Line21_GOPPacket'; GUID: '{6E8D4A23-310C-11D0-B79A-00AA003767A7}'),
  158.     (name: 'Line21_VBIRawData'; GUID: '{6E8D4A24-310C-11D0-B79A-00AA003767A7}'),
  159.     (name: 'DRM_Audio'; GUID: '{00000009-0000-0010-8000-00AA00389B71}'),
  160.     (name: 'IEEE_FLOAT'; GUID: '{00000003-0000-0010-8000-00AA00389B71}'),
  161.     (name: 'DOLBY_AC3_SPDIF'; GUID: '{00000092-0000-0010-8000-00AA00389B71}'),
  162.     (name: 'RAW_SPORT'; GUID: '{00000240-0000-0010-8000-00AA00389B71}'),
  163.     (name: 'SPDIF_TAG_241h'; GUID: '{00000241-0000-0010-8000-00AA00389B71}'),
  164.     (name: 'DssVideo'; GUID: '{A0AF4F81-E163-11D0-BAD9-00609744111A}'),
  165.     (name: 'DssAudio'; GUID: '{A0AF4F82-E163-11D0-BAD9-00609744111A}'),
  166.     (name: 'VPVideo'; GUID: '{5A9B6A40-1A22-11D1-BAD9-00609744111A}'),
  167.     (name: 'VPVBI'; GUID: '{5A9B6A41-1A22-11D1-BAD9-00609744111A}'),
  168.     (name: 'AnalogVideo_NTSC_M'; GUID: '{0482DDE2-7817-11CF-8A03-00AA006ECB65}'),
  169.     (name: 'AnalogVideo_PAL_B'; GUID: '{0482DDE5-7817-11CF-8A03-00AA006ECB65}'),
  170.     (name: 'AnalogVideo_PAL_D'; GUID: '{0482DDE6-7817-11CF-8A03-00AA006ECB65}'),
  171.     (name: 'AnalogVideo_PAL_G'; GUID: '{0482DDE7-7817-11CF-8A03-00AA006ECB65}'),
  172.     (name: 'AnalogVideo_PAL_H'; GUID: '{0482DDE8-7817-11CF-8A03-00AA006ECB65}'),
  173.     (name: 'AnalogVideo_PAL_I'; GUID: '{0482DDE9-7817-11CF-8A03-00AA006ECB65}'),
  174.     (name: 'AnalogVideo_PAL_M'; GUID: '{0482DDEA-7817-11CF-8A03-00AA006ECB65}'),
  175.     (name: 'AnalogVideo_PAL_N'; GUID: '{0482DDEB-7817-11CF-8A03-00AA006ECB65}'),
  176.     (name: 'AnalogVideo_PAL_N_COMBO'; GUID: '{0482DDEC-7817-11CF-8A03-00AA006ECB65}'),
  177.     (name: 'AnalogVideo_SECAM_B'; GUID: '{0482DDF0-7817-11CF-8A03-00AA006ECB65}'),
  178.     (name: 'AnalogVideo_SECAM_D'; GUID: '{0482DDF1-7817-11CF-8A03-00AA006ECB65}'),
  179.     (name: 'AnalogVideo_SECAM_G'; GUID: '{0482DDF2-7817-11CF-8A03-00AA006ECB65}'),
  180.     (name: 'AnalogVideo_SECAM_H'; GUID: '{0482DDF3-7817-11CF-8A03-00AA006ECB65}'),
  181.     (name: 'AnalogVideo_SECAM_K'; GUID: '{0482DDF4-7817-11CF-8A03-00AA006ECB65}'),
  182.     (name: 'AnalogVideo_SECAM_K1'; GUID: '{0482DDF5-7817-11CF-8A03-00AA006ECB65}'),
  183.     (name: 'AnalogVideo_SECAM_L'; GUID: '{0482DDF6-7817-11CF-8A03-00AA006ECB65}'),
  184.     (name: 'MPEG2_VIDEO'; GUID: '{E06D8026-DB46-11CF-B4D1-00805F6CBBEA}'),
  185.     (name: 'MPEG2_PROGRAM'; GUID: '{E06D8022-DB46-11CF-B4D1-00805F6CBBEA}'),
  186.     (name: 'MPEG2_TRANSPORT'; GUID: '{E06D8023-DB46-11CF-B4D1-00805F6CBBEA}'),
  187.     (name: 'MPEG2_AUDIO'; GUID: '{E06D802B-DB46-11CF-B4D1-00805F6CBBEA}'),
  188.     (name: 'DVD_SUBPICTURE'; GUID: '{E06D802D-DB46-11CF-B4D1-00805F6CBBEA}'),
  189.     (name: 'DVD_LPCM_AUDIO'; GUID: '{E06D8032-DB46-11CF-B4D1-00805F6CBBEA}'),
  190.     (name: 'SDDS'; GUID: '{E06D8034-DB46-11CF-B4D1-00805F6CBBEA}'),
  191.     (name: 'DVD_NAVIGATION_PCI'; GUID: '{E06D802F-DB46-11CF-B4D1-00805F6CBBEA}'),
  192.     (name: 'DVD_NAVIGATION_DSI'; GUID: '{E06D8030-DB46-11CF-B4D1-00805F6CBBEA}'),
  193.     (name: 'DVD_NAVIGATION_PROVIDER'; GUID: '{E06D8031-DB46-11CF-B4D1-00805F6CBBEA}'),
  194.     (name: 'MP42'; GUID: '{3234504D-0000-0010-8000-00AA00389B71}'),
  195.     (name: 'DIVX'; GUID: '{58564944-0000-0010-8000-00AA00389B71}'),
  196.     (name: 'VOXWARE'; GUID: '{00000075-0000-0010-8000-00AA00389B71}'));
  198.   FormatTypes: array[0..4] of TGUIDDescription =
  199.    ((name: '[Automatic]';  GUID: '{00000000-0000-0000-0000-000000000000}'),
  200.     (name: 'None';         GUID: '{0F6417D6-C318-11D0-A43F-00A0C9223196}'),
  201.     (name: 'VideoInfo';    GUID: '{05589F80-C356-11CE-BF01-00AA0055595A}'),
  202.     (name: 'VideoInfo2';   GUID: '{F72A76A0-EB0A-11D0-ACE4-0000C0CC16BA}'),
  203.     (name: 'WaveFormatEx'; GUID: '{05589F81-C356-11CE-BF01-00AA0055595A}'));
  205. implementation
  206.  uses ActiveX;
  207. {$R *.dfm}
  209.   constructor TFormMediaType.create(AOwner: TComponent);
  210.   var i: byte;
  211.   begin
  212.     inherited Create(AOwner);
  213.     MediaType:= TMediaType.Create;
  214.     for i := 0 to 15 do cbMajorTypes.Items.Add(MajorTypes[i].name);
  215.     for i := 0 to 97 do cbSubTypes.Items.Add(SubTypes[i].name);
  216.     for i := 0 to 4  do cbFormatType.Items.Add(FormatTypes[i].name);
  217.   end;
  219.   destructor TFormMediaType.Destroy;
  220.   begin
  221.     MediaType.Free;
  223.     inherited Destroy;
  224.   end;
  226. //    majortype            : TGUID;
  227. //    subtype              : TGUID;
  228. //    bFixedSizeSamples    : BOOL;
  229. //    bTemporalCompression : BOOL;
  230. //    lSampleSize          : ULONG;
  231. //    formattype           : TGUID;
  232. //    pUnk                 : IUnknown;
  233. //    cbFormat             : ULONG;
  234. //    pbFormat             : Pointer;
  236.   procedure TFormMediaType.FormShow(Sender: TObject);
  237.   begin
  238.     RefreshMediaType;
  239.   end;
  241.   procedure TFormMediaType.RefreshMediaType;
  242.   var i: byte;
  243.   begin
  244.     for i := 0 to 15 do
  245.       if IsEqualGUID(MajorTypes[i].GUID, MediaType.MajorType) then
  246.       begin
  247.         cbMajorTypes.ItemIndex := i;
  248.         Break;
  249.       end;
  250.     for i := 0 to 97 do
  251.       if IsEqualGUID(SubTypes[i].GUID, MediaType.SubType) then
  252.       begin
  253.         cbSubTypes.ItemIndex := i;
  254.         Break;
  255.       end;
  256.      if cbMajorTypes.ItemIndex = -1 then cbMajorTypes.ItemIndex := 0;
  257.      if cbSubTypes.ItemIndex   = -1 then cbSubTypes.ItemIndex := 0;
  258.      chkFixedSize.Checked    := MediaType.IsFixedSize;
  259.      chkTempCompress.Checked := MediaType.IsTemporalCompressed;
  260.      edSampleSize.Text := inttostr(MediaType.GetSampleSize);
  262.     for i := 0 to 4 do
  263.       if IsEqualGUID(FormatTypes[i].GUID, MediaType.FormatType) then
  264.       begin
  265.         cbFormatType.ItemIndex := i;
  266.         Break;
  267.       end;
  268.     edFormatSize.Text := inttostr(MediaType.FormatLength);
  271.     memo1.Clear;  
  272.     memo1.lines.Add(GetMediaTypeDescription(MediaType.AMMediaType));
  274.   end;
  276.   procedure TFormMediaType.btOKClick(Sender: TObject);
  277.   begin
  278.     try
  279.       MediaType.SetSampleSize(StrToInt(edSampleSize.Text));
  280.     except
  281.       MessageBox(Handle,PChar('Invalid Sample Size.'), PChar('Error'), mb_ok);
  282.       exit;
  283.     end;
  284.     ModalResult := mrOK;
  285.   end;
  287.   procedure TFormMediaType.cbMajorTypesChange(Sender: TObject);
  288.   begin
  289.     MediaType.MajorType := MajorTypes[cbMajorTypes.ItemIndex].GUID;
  290.     RefreshMediaType;
  291.   end;
  293.   procedure TFormMediaType.cbSubTypesChange(Sender: TObject);
  294.   begin
  295.     MediaType.SubType := SubTypes[cbSubTypes.ItemIndex].GUID;
  296.     RefreshMediaType;
  297.   end;
  299.   procedure TFormMediaType.chkFixedSizeClick(Sender: TObject);
  300.   begin
  301.     MediaType.AMMediaType.bFixedSizeSamples := chkFixedSize.Checked;
  302.     RefreshMediaType;
  303.   end;
  305.   procedure TFormMediaType.chkTempCompressClick(Sender: TObject);
  306.   begin
  307.     MediaType.AMMediaType.bTemporalCompression := chkTempCompress.Checked;
  308.     RefreshMediaType;
  309.   end;
  312.   procedure TFormMediaType.cbFormatTypeChange(Sender: TObject);
  313.   begin
  314.     MediaType.FormatType := FormatTypes[cbFormatType.ItemIndex].GUID;
  315.     RefreshMediaType;
  316.   end;
  318.   procedure TFormMediaType.edSampleSizeChange(Sender: TObject);
  319.   begin
  320.     try
  321.       if edSampleSize.Text = '' then MediaType.SetSampleSize(0) else
  322.         MediaType.SetSampleSize(StrToInt(edSampleSize.Text));
  323.     finally
  324.       RefreshMediaType;
  325.     end;
  326.   end;
  328. end.