rmapends.pas

Delphi源码REAlRMSDK.rar

unit RmaPends;

interface

uses
  PnTypes, RmaPckts;

//***************************************************************************
//
//  $Id: rmapends.h,v 1.10 1999/01/29 18:32:12 hboone Exp $
//
//  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.
//
//
//  Pending Status interfaces
//
//

//***************************************************************************
//
//  Interface:
//
//	IRMAPendingStatus
//
//  Purpose:
//
//	Interface to get the current pending status from an object
//
//  IRMAPendingStatus:
//
//	{00001100-0901-11d1-8B06-00A024406D59}
//

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

const
  RMA_STATUS_INITIALIZING = $01;
  {$EXTERNALSYM RMA_STATUS_INITIALIZING}
  RMA_STATUS_BUFFERING    = $02;
  {$EXTERNALSYM RMA_STATUS_BUFFERING}
  RMA_STATUS_CONTACTING   = $03;
  {$EXTERNALSYM RMA_STATUS_CONTACTING}
  RMA_STATUS_READY        = $04;
  {$EXTERNALSYM RMA_STATUS_READY}

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

    //
    // IRMAPendingStatus methods
    //

    //***********************************************************************
    //	Method:
    //	    IRMAPendingStatus::GetStatus
    //	Purpose:
    //	    Called by the user to get the current pending status from an object
    //
    function GetStatus(var uStatusCode: UINT16; out pStatusDesc: IRMABuffer; var ulPercentDone: UINT16): HRESULT; stdcall;

  end;
  {$EXTERNALSYM IRMAPendingStatus}

implementation

end.