rmaencod.pas

Delphi源码REAlRMSDK.rar

unit RmaEncod;

interface

uses
  PnResult, PnTypes, RmaFiles, RmaPckts;

//***************************************************************************
//
//  $Id: rmaencod.h,v 1.23 1999/02/10 00:17:53 glennh 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.
//
//
//  RealMedia Architecture Encoder Interfaces.
//
//

const
  IID_IRMAEncoder: TGUID = (D1:$00001601; D2:$901; D3:$11d1; D4:($8b, $6, $0, $a0, $24, $40, $6d, $59));
  {$EXTERNALSYM IID_IRMAEncoder}

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

    function InitEncoderResponseDone(result: PN_RESULT): HRESULT; stdcall;

    function GetFileHeader: HRESULT; stdcall;

    function GetStreamHeader(unStream: UINT16): HRESULT; stdcall;

    function StartPackets(unStream: UINT16): HRESULT; stdcall;

    function StopPackets(unStream: UINT16): HRESULT; stdcall;

  end;
  {$EXTERNALSYM IRMAEncoder}

const
  IID_IRMAEncoderResponse: TGUID = (D1:$00001600; D2:$901; D3:$11d1; D4:($8b, $6, $0, $a0, $24, $40, $6d, $59));
  {$EXTERNALSYM IID_IRMAEncoderResponse}

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

    function InitEncoderResponse(pHost: PChar; unPort: UINT16; pRequest: IRMARequest;
      pUsername, pPassword: PChar; pEncoder: IRMAEncoder): HRESULT; stdcall;

    function FileHeaderReady(result: PN_RESULT; pHeader: IRMAValues): HRESULT; stdcall;

    function StreamHeaderReady(result: PN_RESULT; pHeader: IRMAValues): HRESULT; stdcall;

    function PacketReady(result: PN_RESULT; pPacket: IRMAPacket): HRESULT; stdcall;

    function StreamDone(unStream: UINT16): HRESULT; stdcall;

    function Process: HRESULT; stdcall;

    function GetTime: UINT32; stdcall;

  end;
  {$EXTERNALSYM IRMAEncoderResponse}

const
  IID_IRMAEncoderCompletion: TGUID = (D1:$00001602; D2:$901; D3:$11d1; D4:($8b, $6, $0, $a0, $24, $40, $6d, $59));
  {$EXTERNALSYM IID_IRMAEncoderCompletion}

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

    function EncoderDone(result: PN_RESULT): HRESULT; stdcall;
  end;
  {$EXTERNALSYM IRMAEncoderCompletion}

const
  IID_IRMAConnectionlessControl: TGUID = (D1:$00001603; D2:$901; D3:$11d1; D4:($8b, $6, $0, $a0, $24, $40, $6d, $59));
  {$EXTERNALSYM IID_IRMAConnectionlessControl}

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

    function EnableConnectionlessControl: HRESULT; stdcall;

    function ConnectionCheckFailed(status: PN_RESULT): HRESULT; stdcall;

    function SetConnectionTimeout(uSeconds: UINT32): HRESULT; stdcall;

  end;
  {$EXTERNALSYM IRMAConnectionlessControl}

const
  IID_IRMAEncoderResponseCompletion: TGUID = (D1:$00001604; D2:$901; D3:$11d1; D4:($8b, $6, $0, $a0, $24, $40, $6d, $59));
  {$EXTERNALSYM IID_IRMAEncoderResponseCompletion}

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

    function EncoderResponseDone: HRESULT; stdcall;

  end;
  {$EXTERNALSYM IRMAEncoderResponseCompletion}

//
// The only 2 encoder transport types supported are:
// "x-pn-tng/udp"
// "x-pn-tng/tcp"
//

const
  IID_IRMATransportControl: TGUID = (D1:$00001605; D2:$901; D3:$11d1; D4:($8b, $6, $0, $a0, $24, $40, $6d, $59));
  {$EXTERNALSYM IID_IRMATransportControl}

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

    function SetTransportType(pTransportType: PChar): HRESULT; stdcall;

  end;
  {$EXTERNALSYM IRMATransportControl}

implementation

end.