rmaaconf.pas

Delphi源码REAlRMSDK.rar

unit RmaAConf;

interface

uses
  PnResult, PnTypes;

//***************************************************************************
//
//
//  Copyright (C) 1995-1999 RealNetworks, Inc. All rights reserved.
//
//  http://www.real.com/devzone
//
//  This program contains proprietary
//  information of Progressive Networks, Inc, and is licensed
//  subject to restrictions on use and distribution.
//
//
//  RealMedia Architecture AutoConfiguration interfaces
//
//

const
  RMA_TRANSPORT_MULTICAST = 0;
  {$EXTERNALSYM RMA_TRANSPORT_MULTICAST}
  RMA_TRANSPORT_UDP       = 1;
  {$EXTERNALSYM RMA_TRANSPORT_UDP}
  RMA_TRANSPORT_TCP       = 2;
  {$EXTERNALSYM RMA_TRANSPORT_TCP}
  RMA_TRANSPORT_HTTP      = 3;
  {$EXTERNALSYM RMA_TRANSPORT_HTTP}

//***************************************************************************
//
//  Interface:
//
//	IRMAAutoConfigResponse
//
//  Purpose:
//	Response interface for IRMAAutoConfig.
//
//  IID_IRMAAutoConfig:
//
//	{00002701-0901-11d1-8B06-00A024406D59}
//
//

const
  IID_IRMAAutoConfigResponse: TGUID = '{00002701-0901-11d1-8B06-00A024406D59}';
  {$EXTERNALSYM IID_IRMAAutoConfigResponse}

type
  IRMAAutoConfigResponse = interface (IUnknown)
  ['{00002701-0901-11d1-8B06-00A024406D59}']

    //***********************************************************************
    //	Method:
    //	    IRMAAutoConfigResponse::OnBegin
    //	Purpose:
    //      Notification for start of auto-configure process
    //
    //

    function OnBegin: HRESULT; stdcall;

    //***********************************************************************
    //	Method:
    //	    IRMAAutoConfigResponse::OnProgress
    //	Purpose:
    //      Notification for progress of auto-configure process
    //
    //

    function OnProgress(ulProgress, ulProtocolID: UINT32; pProtocolDescription: PChar): HRESULT; stdcall;

    //***********************************************************************
    //	Method:
    //	    IRMAAutoConfigResponse::OnComplete
    //	Purpose:
    //      Notification for completion of auto-configure process
    //
    //

    function OnComplete(PNAResult: PN_RESULT; ulPNAProtocolID: UINT32;
      RTSPResult: PN_RESULT; ulRTSPProtocolID: UINT32): HRESULT; stdcall;

  end;
  {$EXTERNALSYM IRMAAutoConfigResponse}

//***************************************************************************
//
//  Interface:
//
//	IRMAAutoConfig
//
//  Purpose:
//	This interface allows the auto-configuration of the protocol used by
//	the client core.
//
//  IID_IRMAAutoConfig:
//
//	{00002700-0901-11d1-8B06-00A024406D59}
//
//

const
  IID_IRMAAutoConfig: TGUID = '{00002700-0901-11d1-8B06-00A024406D59}';
  {$EXTERNALSYM IID_IRMAAutoConfig}

type
  IRMAAutoConfig = interface (IUnknown)
  ['{00002700-0901-11d1-8B06-00A024406D59}']

    //***********************************************************************
    //	Method:
    //	    IRMAAutoConfig::Init
    //	Purpose:
    //      Shutdown the configuration process.
    //
    //

    function Init(pResponse: IRMAAutoConfigResponse; pPNAURL, pRTSPURL: PChar): HRESULT; stdcall;

    //***********************************************************************
    //	Method:
    //	    IRMAAutoConfig::Close
    //	Purpose:
    //      Shutdown the configuration process.
    //
    //

    function Close: HRESULT; stdcall;

    //***********************************************************************
    //	Method:
    //	    IRMAAutoConfig::Abort
    //	Purpose:
    //      Abort the configuration process.
    //
    //

    function Abort: HRESULT; stdcall;

    //***********************************************************************
    //	Method:
    //	    IRMAAutoConfig::DoAutoConfig
    //	Purpose:
    //      Start the auto-configuration Process.
    //
    //

    function DoAutoConfig: HRESULT; stdcall;

  end;
  {$EXTERNALSYM IRMAAutoConfig}

implementation

end.