⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 wmf9.pas

📁 絮语2007视频聊天软件源程序.仅供参考
💻 PAS
📖 第 1 页 / 共 5 页
字号:
//*****************************************************************************

const
  IID_IWMSInternalAdminNetSource  : TGUID = '{8BB23E5F-D127-4afb-8D02-AE5B66D54C78}';
  {$EXTERNALSYM IID_IWMSInternalAdminNetSource}
  IID_IWMSInternalAdminNetSource2 : TGUID = '{E74D58C3-CF77-4b51-AF17-744687C43EAE}';
  {$EXTERNALSYM IID_IWMSInternalAdminNetSource2}
  IID_IWMSInternalAdminNetSource3 : TGUID = '{6b63d08e-4590-44af-9eb3-57ff1e73bf80}';
  {$EXTERNALSYM IID_IWMSInternalAdminNetSource3}

type
  NETSOURCE_URLCREDPOLICY_SETTINGS = (
    NETSOURCE_URLCREDPOLICY_SETTING_SILENTLOGONOK,
    NETSOURCE_URLCREDPOLICY_SETTING_MUSTPROMPTUSER,
    NETSOURCE_URLCREDPOLICY_SETTING_ANONYMOUSONLY
  );
  {$EXTERNALSYM NETSOURCE_URLCREDPOLICY_SETTINGS}
 TNetSourceURLCredpolicySettings = NETSOURCE_URLCREDPOLICY_SETTINGS;

////////////////////////////////////////////////////////////////////////////////////////////////////
//
// This interface is used by WMP 7 and MPXP
//

  {$HPPEMIT 'typedef System::DelphiInterface<IWMSInternalAdminNetSource> _di_IWMSInternalAdminNetSource;'}
  {$EXTERNALSYM IWMSInternalAdminNetSource}
  IWMSInternalAdminNetSource = interface(IUnknown)
  ['{8BB23E5F-D127-4afb-8D02-AE5B66D54C78}']
  (*** IWMSInternalAdminNetSource methods ***)
    function Initialize(pSharedNamespace,
                       pNamespaceNode: IUnknown;
                       pNetSourceCreator: INSNetSourceCreator;
                       fEmbeddedInServer: BOOL): HRESULT; stdcall;

    function GetNetSourceCreator(out ppNetSourceCreator: INSNetSourceCreator): HRESULT; stdcall;

    // Authentication
    function SetCredentials(bstrRealm, bstrName, bstrPassword: WideString; fPersist, fConfirmedGood: BOOL): HRESULT; stdcall;
    function GetCredentials(bstrRealm: WideString; out pbstrName, pbstrPassword: WideString; out pfConfirmedGood: BOOL): HRESULT; stdcall;
    function DeleteCredentials(bstrRealm: WideString): HRESULT; stdcall;
    function GetCredentialFlags(out lpdwFlags: LongWord): HRESULT; stdcall;
    function SetCredentialFlags(dwFlags: LongWord): HRESULT; stdcall;

    // Proxy
    function FindProxyForURL(bstrProtocol, bstrHost: WideString;
                             out pfProxyEnabled: BOOL;
                             out pbstrProxyServer: WideString;
                             out pdwProxyPort: LongWord;
                             var pdwProxyContext: LongWord): HRESULT; stdcall;

    function RegisterProxyFailure(hrParam: HRESULT; dwProxyContext: LongWord): HRESULT; stdcall;
    function ShutdownProxyContext(dwProxyContext: LongWord): HRESULT; stdcall;
    function IsUsingIE(dwProxyContext: LongWord; out pfIsUsingIE: BOOL): HRESULT; stdcall;
  end;


////////////////////////////////////////////////////////////////////////////////////////////////////
//
// This interface is used by WMP 7 and MPXP
//

  {$HPPEMIT 'typedef System::DelphiInterface<IWMSInternalAdminNetSource2> _di_IWMSInternalAdminNetSource2;'}
  {$EXTERNALSYM IWMSInternalAdminNetSource2}
  IWMSInternalAdminNetSource2 = interface(IUnknown)
  ['{E74D58C3-CF77-4b51-AF17-744687C43EAE}']
  (*** IWMSInternalAdminNetSource2 methods ***)
    // Authentication
    function SetCredentialsEx(bstrRealm      : WideString;
                              bstrUrl        : WideString;
                              fProxy         : BOOL;
                              bstrName       : WideString;
                              bstrPassword   : WideString;
                              fPersist       : BOOL;
                              fConfirmedGood : BOOL): HRESULT; stdcall;

    function GetCredentialsEx(bstrRealm           : WideString;
                              bstrUrl             : WideString;
                              fProxy              : BOOL;
                              out pdwUrlPolicy    : TNetSourceURLCredpolicySettings;
                              out pbstrName       : WideString;
                              out pbstrPassword   : WideString;
                              out pfConfirmedGood : BOOL): HRESULT; stdcall;

    function DeleteCredentialsEx(bstrRealm, bstrUrl: WideString; fProxy: BOOL): HRESULT; stdcall;

    function FindProxyForURLEx(bstrProtocol         : WideString;
                               bstrHost             : WideString;
                               bstrUrl              : WideString;
                               out pfProxyEnabled   : BOOL;
                               out pbstrProxyServer : WideString;
                               out pdwProxyPort     : LongWord;
                               var pdwProxyContext  : LongWord): HRESULT; stdcall;

  end;

  {$HPPEMIT 'typedef System::DelphiInterface<IWMSInternalAdminNetSource3> _di_IWMSInternalAdminNetSource3;'}
  {$EXTERNALSYM IWMSInternalAdminNetSource3}
  IWMSInternalAdminNetSource3 = interface(IWMSInternalAdminNetSource2)
  ['{6b63d08e-4590-44af-9eb3-57ff1e73bf80}']
  (*** IWMSInternalAdminNetSource3 methods ***)
    function GetNetSourceCreator2(out ppNetSourceCreator: IUnknown): HRESULT; stdcall;

    // Proxy
    function FindProxyForURLEx2(bstrProtocol         : WideString;
                                bstrHost             : WideString;
                                bstrUrl              : WideString;
                                out pfProxyEnabled   : BOOL;
                                out pbstrProxyServer : WideString;
                                out pdwProxyPort     : LongWord;
                                var pqwProxyContext  : Int64): HRESULT; stdcall;

    function RegisterProxyFailure2(hrParam: HRESULT; qwProxyContext: Int64): HRESULT; stdcall;
    function ShutdownProxyContext2(qwProxyContext: Int64): HRESULT; stdcall;
    function IsUsingIE2(qwProxyContext: Int64; out pfIsUsingIE: BOOL): HRESULT; stdcall;

    // Authentication
    function SetCredentialsEx2(bstrRealm                : WideString;
                               bstrUrl                  : WideString;
                               fProxy                   : BOOL;
                               bstrName                 : WideString;
                               bstrPassword             : WideString;
                               fPersist                 : BOOL;
                               fConfirmedGood           : BOOL;
                               fClearTextAuthentication : BOOL): HRESULT; stdcall;

    function GetCredentialsEx2(bstrRealm                : WideString;
                               bstrUrl                  : WideString;
                               fProxy                   : BOOL;
                               fClearTextAuthentication : BOOL;
                               out pdwUrlPolicy         : TNetSourceURLCredpolicySettings;
                               out pbstrName            : WideString;
                               out pbstrPassword        : WideString;
                               out pfConfirmedGood      : BOOL): HRESULT; stdcall;
  end;

//*@@@+++@@@@******************************************************************
//
// Microsoft Windows Media
// Copyright (C) Microsoft Corporation. All rights reserved.
//
//*@@@---@@@@******************************************************************
//

///////////////////////////////////////////////////////////////////////////////
//
// Enumerations and constants used by the SDK.
//
///////////////////////////////////////////////////////////////////////////////


//////////////////////////////////////////////////////////////////////////////
//
// Imports, typedefs and forward declarations
//

///////////////////////////////////////////////////////////////////////////////
//
// Attributes
//
///////////////////////////////////////////////////////////////////////////////

////////////////////////////////////////////////////////////////
//
// These are the special case attributes that give information
// about the Windows Media file.
//
const
  g_dwWMSpecialAttributes       = LongWord(20);
  {$EXTERNALSYM g_dwWMSpecialAttributes}
  g_wszWMDuration               = WideString('Duration');
  {$EXTERNALSYM g_wszWMDuration}
  g_wszWMBitrate                = WideString('Bitrate');
  {$EXTERNALSYM g_wszWMBitrate}
  g_wszWMSeekable               = WideString('Seekable');
  {$EXTERNALSYM g_wszWMSeekable}
  g_wszWMStridable              = WideString('Stridable');
  {$EXTERNALSYM g_wszWMStridable}
  g_wszWMBroadcast              = WideString('Broadcast');
  {$EXTERNALSYM g_wszWMBroadcast}
  g_wszWMProtected              = WideString('Is_Protected');
  {$EXTERNALSYM g_wszWMProtected}
  g_wszWMTrusted                = WideString('Is_Trusted');
  {$EXTERNALSYM g_wszWMTrusted}
  g_wszWMSignature_Name         = WideString('Signature_Name');
  {$EXTERNALSYM g_wszWMSignature_Name}
  g_wszWMHasAudio               = WideString('HasAudio');
  {$EXTERNALSYM g_wszWMHasAudio}
  g_wszWMHasImage               = WideString('HasImage');
  {$EXTERNALSYM g_wszWMHasImage}
  g_wszWMHasScript              = WideString('HasScript');
  {$EXTERNALSYM g_wszWMHasScript}
  g_wszWMHasVideo               = WideString('HasVideo');
  {$EXTERNALSYM g_wszWMHasVideo}
  g_wszWMCurrentBitrate         = WideString('CurrentBitrate');
  {$EXTERNALSYM g_wszWMCurrentBitrate}
  g_wszWMOptimalBitrate         = WideString('OptimalBitrate');
  {$EXTERNALSYM g_wszWMOptimalBitrate}
  g_wszWMHasAttachedImages      = WideString('HasAttachedImages');
  {$EXTERNALSYM g_wszWMHasAttachedImages}
  g_wszWMSkipBackward           = WideString('Can_Skip_Backward');
  {$EXTERNALSYM g_wszWMSkipBackward}
  g_wszWMSkipForward            = WideString('Can_Skip_Forward');
  {$EXTERNALSYM g_wszWMSkipForward}
  g_wszWMNumberOfFrames         = WideString('NumberOfFrames');
  {$EXTERNALSYM g_wszWMNumberOfFrames}
  g_wszWMFileSize               = WideString('FileSize');
  {$EXTERNALSYM g_wszWMFileSize}
  g_wszWMHasArbitraryDataStream = WideString('HasArbitraryDataStream');
  {$EXTERNALSYM g_wszWMHasArbitraryDataStream}
  g_wszWMHasFileTransferStream  = WideString('HasFileTransferStream');
  {$EXTERNALSYM g_wszWMHasFileTransferStream}
  g_wszWMContainerFormat        = WideString('WM/ContainerFormat');
  {$EXTERNALSYM g_wszWMContainerFormat}

////////////////////////////////////////////////////////////////
//
// The content description object supports 5 basic attributes.
//

  g_dwWMContentAttributes = LongWord(5);
  {$EXTERNALSYM g_dwWMContentAttributes}
  g_wszWMTitle        = WideString('Title');
  {$EXTERNALSYM g_wszWMTitle}
  g_wszWMAuthor       = WideString('Author');
  {$EXTERNALSYM g_wszWMAuthor}
  g_wszWMDescription  = WideString('Description');
  {$EXTERNALSYM g_wszWMDescription}
  g_wszWMRating       = WideString('Rating');
  {$EXTERNALSYM g_wszWMRating}
  g_wszWMCopyright    = WideString('Copyright');
  {$EXTERNALSYM g_wszWMCopyright}

////////////////////////////////////////////////////////////////
//
// These attributes are used to configure and query DRM settings in the reader and writer.
//

  g_wszWMUse_DRM                   = WideString('Use_DRM');
  {$EXTERNALSYM g_wszWMUse_DRM}
  g_wszWMDRM_Flags                 = WideString('DRM_Flags');
  {$EXTERNALSYM g_wszWMDRM_Flags}
  g_wszWMDRM_Level                 = WideString('DRM_Level');
  {$EXTERNALSYM g_wszWMDRM_Level}
  g_wszWMUse_Advanced_DRM          = WideString('Use_Advanced_DRM');
  {$EXTERNALSYM g_wszWMUse_Advanced_DRM}
  g_wszWMDRM_KeySeed               = WideString('DRM_KeySeed');
  {$EXTERNALSYM g_wszWMDRM_KeySeed}
  g_wszWMDRM_KeyID                 = WideString('DRM_KeyID');
  {$EXTERNALSYM g_wszWMDRM_KeyID}
  g_wszWMDRM_ContentID             = WideString('DRM_ContentID');
  {$EXTERNALSYM g_wszWMDRM_ContentID}
  g_wszWMDRM_IndividualizedVersion = WideString('DRM_IndividualizedVersion');
  {$EXTERNALSYM g_wszWMDRM_IndividualizedVersion}
  g_wszWMDRM_LicenseAcqURL         = WideString('DRM_LicenseAcqURL');
  {$EXTERNALSYM g_wszWMDRM_LicenseAcqURL}
  g_wszWMDRM_V1LicenseAcqURL       = WideString('DRM_V1LicenseAcqURL');
  {$EXTERNALSYM g_wszWMDRM_V1LicenseAcqURL}
  g_wszWMDRM_HeaderSignPrivKey     = WideString('DRM_HeaderSignPrivKey');
  {$EXTERNALSYM g_wszWMDRM_HeaderSignPrivKey}
  g_wszWMDRM_LASignaturePrivKey    = WideString('DRM_LASignaturePrivKey');
  {$EXTERNALSYM g_wszWMDRM_LASignaturePrivKey}
  g_wszWMDRM_LASignatureCert       = WideString('DRM_LASignatureCert');
  {$EXTERNALSYM g_wszWMDRM_LASignatureCert}
  g_wszWMDRM_LASignatureLicSrvCert = WideString('DRM_LASignatureLicSrvCert');
  {$EXTERNALSYM g_wszWMDRM_LASignatureLicSrvCert}
  g_wszWMDRM_LASignatureRootCert   = WideString('DRM_LASignatureRootCert');
  {$EXTERNALSYM g_wszWMDRM_LASignatureRootCert}

////////////////////////////////////////////////////////////////
//
// These are the additional attributes defined in the WM attribute
// namespace that give information about the content.
//

  g_wszWMAlbumTitle    = WideString('WM/AlbumTitle');
  {$EXTERNALSYM g_wszWMAlbumTitle}
  g_wszWMTrack         = WideString('WM/Track');
  {$EXTERNALSYM g_wszWMTrack}
  g_wszWMPromotionURL  = WideString('WM/PromotionURL');
  {$EXTERNALSYM g_wszWMPromotionURL}
  g_wszWMAlbumCoverURL = WideString('WM/AlbumCoverURL');
  {$EXTERNALSYM g_wszWMAlbumCoverURL}
  g_wszWMGenre         = WideString('WM/Genre');
  {$EXTERNALSYM g_wszWMGenre}
  g_wszWMYear          = WideString('WM/Year');
  {$EXTERNALSYM g_wszWMYear}
  g_wszWMGenreID       = WideString('WM/GenreID');
  {$EXTERNALSYM g_wszWMGenreID}
  g_wszWMMCDI          = WideString('WM/MCDI');
  {$EXTERNALSYM g_wszWMMCDI}
  g_wszWMComposer      = WideString('WM/Composer');
  {$EXTERNALSYM g_wszWMComposer}
  g_wszWMLyrics        = WideString('WM/Lyrics');
  {$EXTERNALSYM g_wszWMLyrics}
  g_wszWMTrackNumber   = WideString('WM/TrackNumber');
  {$EXTERNALSYM g_wszWMTrackNumber}
  g_wszWMToolName      = WideString('WM/ToolName');
  {$EXTERNALSYM g_wszWMToolName}

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -