📄 vaxsipuseragentocxlib_tlb.pas
字号:
unit VAXSIPUSERAGENTOCXLib_TLB;
// ************************************************************************ //
// WARNING
// -------
// The types declared in this file were generated from data read from a
// Type Library. If this type library is explicitly or indirectly (via
// another type library referring to this type library) re-imported, or the
// 'Refresh' command of the Type Library Editor activated while editing the
// Type Library, the contents of this file will be regenerated and all
// manual modifications will be lost.
// ************************************************************************ //
// PASTLWTR : 1.2
// File generated on 12/11/2007 10:52:42 PM from Type Library described below.
// ************************************************************************ //
// Type Lib: C:\Delphi\SampleCode-2\Delphi\VaxSIPUserAgentOCX.ocx (1)
// LIBID: {148188FB-A6D9-48BC-AE37-65786376CD8E}
// LCID: 0
// Helpfile: C:\Delphi\SampleCode-2\Delphi\VaxSIPUserAgentOCX.hlp
// HelpString: VaxSIPUserAgentOCX ActiveX Control module
// DepndLst:
// (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface
uses Windows, ActiveX, Classes, Graphics, OleCtrls, OleServer, StdVCL, Variants;
// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:
// Type Libraries : LIBID_xxxx
// CoClasses : CLASS_xxxx
// DISPInterfaces : DIID_xxxx
// Non-DISP interfaces: IID_xxxx
// *********************************************************************//
const
// TypeLibrary Major and minor versions
VAXSIPUSERAGENTOCXLibMajorVersion = 1;
VAXSIPUSERAGENTOCXLibMinorVersion = 0;
LIBID_VAXSIPUSERAGENTOCXLib: TGUID = '{148188FB-A6D9-48BC-AE37-65786376CD8E}';
DIID__DVaxSIPUserAgentOCX: TGUID = '{9858F01E-3474-40B6-996B-7867195B6A6C}';
DIID__DVaxSIPUserAgentOCXEvents: TGUID = '{747FAA95-5D00-4EA1-9F1F-035D2A88FDA4}';
CLASS_VaxSIPUserAgentOCX: TGUID = '{2935849A-3F6A-4DF8-8395-CF9AB3BE1835}';
type
// *********************************************************************//
// Forward declaration of types defined in TypeLibrary
// *********************************************************************//
_DVaxSIPUserAgentOCX = dispinterface;
_DVaxSIPUserAgentOCXEvents = dispinterface;
// *********************************************************************//
// Declaration of CoClasses defined in Type Library
// (NOTE: Here we map each CoClass to its Default Interface)
// *********************************************************************//
VaxSIPUserAgentOCX = _DVaxSIPUserAgentOCX;
// *********************************************************************//
// DispIntf: _DVaxSIPUserAgentOCX
// Flags: (4112) Hidden Dispatchable
// GUID: {9858F01E-3474-40B6-996B-7867195B6A6C}
// *********************************************************************//
_DVaxSIPUserAgentOCX = dispinterface
['{9858F01E-3474-40B6-996B-7867195B6A6C}']
procedure UnInitialize; dispid 1;
function SetLicenceKey(const LicenceKey: WideString): WordBool; dispid 2;
function GetVaxObjectError: Integer; dispid 3;
function CloseLine(LineNo: Integer): WordBool; dispid 4;
function Connect(LineNo: Integer; const ToURI: WideString; InputDeviceId: Integer;
OutputDeviceId: Integer): WordBool; dispid 5;
function Disconnect(LineNo: Integer): WordBool; dispid 6;
function AcceptCall(LineNo: Integer; const CallId: WideString; InputDeviceId: Integer;
OutputDeviceId: Integer): WordBool; dispid 7;
function RejectCall(const CallId: WideString): WordBool; dispid 8;
function TransferCall(LineNo: Integer; const ToURI: WideString): WordBool; dispid 9;
function HoldLine(LineNo: Integer): WordBool; dispid 10;
function UnHoldLine(LineNo: Integer): WordBool; dispid 11;
function RegisterToProxy(Expire: Integer): WordBool; dispid 12;
function UnRegisterToProxy: WordBool; dispid 13;
function IsLineOpen(LineNo: Integer): WordBool; dispid 14;
function IsLineHold(LineNo: Integer): WordBool; dispid 15;
function IsLineBusy(LineNo: Integer): WordBool; dispid 16;
function EnableKeepAlive(Seconds: Integer): WordBool; dispid 17;
procedure DisableKeepAlive; dispid 18;
procedure DeselectAllVoiceCodec; dispid 19;
procedure SelectAllVoiceCodec; dispid 20;
function SelectVoiceCodec(CodecNo: Integer): WordBool; dispid 21;
function DeselectVoiceCodec(CodecNo: Integer): WordBool; dispid 22;
function GetMyIP: WideString; dispid 23;
function DigitDTMF(LineNo: Integer; const Digit: WideString): WordBool; dispid 24;
function MuteMic(Mute: WordBool): WordBool; dispid 25;
function MuteSpk(Mute: WordBool): WordBool; dispid 26;
function GetMicVolume: Integer; dispid 27;
function SetMicVolume(Volume: Integer): WordBool; dispid 28;
function GetSpkVolume: Integer; dispid 29;
function SetSpkVolume(Volume: Integer): WordBool; dispid 30;
function EnableMicBoost: WordBool; dispid 31;
function DisableMicBoost: WordBool; dispid 32;
function IsMicBoostEnable: WordBool; dispid 33;
function EnableAGC(Level: Integer): WordBool; dispid 34;
function DisableAGC: WordBool; dispid 35;
function EnableEchoNoiseCancellation: WordBool; dispid 36;
function DisableEchoNoiseCancellation: WordBool; dispid 37;
function IsRecording(LineNo: Integer): WordBool; dispid 38;
function StopRecording(LineNo: Integer): WordBool; dispid 39;
function ResetRecording(LineNo: Integer): WordBool; dispid 40;
function SaveRecordingToWaveFile(LineNo: Integer; const FileName: WideString): WordBool; dispid 41;
function IsWaveFilePlaying(LineNo: Integer): WordBool; dispid 42;
function PlayWaveOpen(LineNo: Integer; const FileName: WideString): WordBool; dispid 43;
function PlayWaveSkipTo(LineNo: Integer; Seconds: Integer): WordBool; dispid 44;
function PlayWaveTotalTime(LineNo: Integer): Integer; dispid 45;
function PlayWavePause(LineNo: Integer): WordBool; dispid 46;
function PlayWaveStart(LineNo: Integer; Listen: WordBool): WordBool; dispid 47;
function PlayWaveStop(LineNo: Integer): WordBool; dispid 48;
function PlayWavePosition(LineNo: Integer): Integer; dispid 49;
procedure EnableDonotDisturb; dispid 50;
procedure DisableDonotDisturb; dispid 51;
function SetTOS(LineNo: Integer; Value: Integer): WordBool; dispid 52;
function GetTOS(LineNo: Integer): Integer; dispid 53;
function EnableForceInbandDTMF(LineNo: Integer): WordBool; dispid 54;
function DisableForceInbandDTMF(LineNo: Integer): WordBool; dispid 55;
function SetDTMFVolume(Volume: Integer): WordBool; dispid 56;
function GetDTMFVolume: Integer; dispid 57;
function Initialize(BindToListenIP: WordBool; const ListenIP: WideString; ListenPort: Integer;
const FromURI: WideString; const SIPOutBoundProxy: WideString;
const SIPProxy: WideString; const LoginId: WideString;
const LoginPwd: WideString; UseSoundDevice: WordBool; TotalLine: Integer): WordBool; dispid 58;
function StartRecording(LineNo: Integer; RecordVoice: Integer; RecordCompress: WordBool): WordBool; dispid 59;
function GetMicSoundLevel: Integer; dispid 60;
function GetSpkSoundLevel: Integer; dispid 61;
function GetOutboundCodec(LineNo: Integer): Integer; dispid 62;
function GetInboundCodec(LineNo: Integer): Integer; dispid 63;
function OpenLine(LineNo: Integer; BindToRTPRxIP: WordBool; const RTPRxIP: WideString;
RTPRxPort: Integer): WordBool; dispid 64;
function GetAudioInDevTotal: Integer; dispid 65;
function GetAudioOutDevTotal: Integer; dispid 66;
function GetAudioOutDevName(DeviceId: Integer): WideString; dispid 67;
function GetAudioInDevName(DeviceId: Integer): WideString; dispid 68;
function GetVersionSDK: WideString; dispid 69;
function GetVersionFile: WideString; dispid 70;
function JoinTwoLine(LineNoA: Integer; LineNoB: Integer): WordBool; dispid 71;
end;
// *********************************************************************//
// DispIntf: _DVaxSIPUserAgentOCXEvents
// Flags: (4096) Dispatchable
// GUID: {747FAA95-5D00-4EA1-9F1F-035D2A88FDA4}
// *********************************************************************//
_DVaxSIPUserAgentOCXEvents = dispinterface
['{747FAA95-5D00-4EA1-9F1F-035D2A88FDA4}']
procedure OnIncomingDiagnostic(const MsgSIP: WideString; const FromIP: WideString;
FromPort: Integer); dispid 1;
procedure OnOutgoingDiagnostic(const MsgSIP: WideString; const ToIP: WideString; ToPort: Integer); dispid 2;
procedure OnDTMFDigit(LineNo: Integer; const Digit: WideString); dispid 3;
procedure OnPlayWaveDone(LineNo: Integer); dispid 4;
procedure OnMsgNOTIFY(const Msg: WideString); dispid 5;
procedure OnTryingToUnRegister; dispid 6;
procedure OnFailToUnRegister; dispid 7;
procedure OnSuccessToUnRegister; dispid 8;
procedure OnTryingToRegister; dispid 9;
procedure OnFailToRegister; dispid 10;
procedure OnSuccessToRegister; dispid 11;
procedure OnFailToConnect(LineNo: Integer); dispid 12;
procedure OnConnecting(LineNo: Integer); dispid 13;
procedure OnIncomingCallRingingStart(const CallId: WideString); dispid 14;
procedure OnIncomingCallRingingStop(const CallId: WideString); dispid 15;
procedure OnDisconnectCall(LineNo: Integer); dispid 16;
procedure OnCallTransferAccepted(LineNo: Integer); dispid 17;
procedure OnProvisionalResponse(LineNo: Integer; StatusCode: Integer;
const ReasonPhrase: WideString); dispid 18;
procedure OnRedirectionResponse(LineNo: Integer; StatusCode: Integer;
const ReasonPhrase: WideString; const Contact: WideString); dispid 19;
procedure OnRequestFailureResponse(LineNo: Integer; StatusCode: Integer;
const ReasonPhrase: WideString); dispid 20;
procedure OnServerFailureResponse(LineNo: Integer; StatusCode: Integer;
const ReasonPhrase: WideString); dispid 21;
procedure OnGeneralFailureResponse(LineNo: Integer; StatusCode: Integer;
const ReasonPhrase: WideString); dispid 22;
procedure OnSuccessToConnect(LineNo: Integer; const ToRTPIP: WideString; ToRTPPort: Integer); dispid 23;
procedure OnIncomingCall(const CallId: WideString; const DisplayName: WideString;
const UserName: WideString; const FromURI: WideString;
const ToURI: WideString); dispid 24;
procedure OnVoiceMailMsg(IsMsgWaiting: WordBool; NewMsgCount: Integer; OldMsgCount: Integer;
NewUrgentMsgCount: Integer; OldUrgentMsgCount: Integer;
const MsgAccount: WideString); dispid 25;
procedure OnTryingToReRegister; dispid 26;
procedure OnFailToReRegister; dispid 27;
procedure OnSuccessToReRegister; dispid 28;
end;
// *********************************************************************//
// OLE Control Proxy class declaration
// Control Name : TVaxSIPUserAgentOCX
// Help String : VaxSIPUserAgentOCX Control
// Default Interface: _DVaxSIPUserAgentOCX
// Def. Intf. DISP? : Yes
// Event Interface: _DVaxSIPUserAgentOCXEvents
// TypeFlags : (34) CanCreate Control
// *********************************************************************//
TVaxSIPUserAgentOCXOnIncomingDiagnostic = procedure(ASender: TObject; const MsgSIP: WideString;
const FromIP: WideString;
FromPort: Integer) of object;
TVaxSIPUserAgentOCXOnOutgoingDiagnostic = procedure(ASender: TObject; const MsgSIP: WideString;
const ToIP: WideString;
ToPort: Integer) of object;
TVaxSIPUserAgentOCXOnDTMFDigit = procedure(ASender: TObject; LineNo: Integer;
const Digit: WideString) of object;
TVaxSIPUserAgentOCXOnPlayWaveDone = procedure(ASender: TObject; LineNo: Integer) of object;
TVaxSIPUserAgentOCXOnMsgNOTIFY = procedure(ASender: TObject; const Msg: WideString) of object;
TVaxSIPUserAgentOCXOnFailToConnect = procedure(ASender: TObject; LineNo: Integer) of object;
TVaxSIPUserAgentOCXOnConnecting = procedure(ASender: TObject; LineNo: Integer) of object;
TVaxSIPUserAgentOCXOnIncomingCallRingingStart = procedure(ASender: TObject; const CallId: WideString) of object;
TVaxSIPUserAgentOCXOnIncomingCallRingingStop = procedure(ASender: TObject; const CallId: WideString) of object;
TVaxSIPUserAgentOCXOnDisconnectCall = procedure(ASender: TObject; LineNo: Integer) of object;
TVaxSIPUserAgentOCXOnCallTransferAccepted = procedure(ASender: TObject; LineNo: Integer) of object;
TVaxSIPUserAgentOCXOnProvisionalResponse = procedure(ASender: TObject; LineNo: Integer;
StatusCode: Integer;
const ReasonPhrase: WideString) of object;
TVaxSIPUserAgentOCXOnRedirectionResponse = procedure(ASender: TObject; LineNo: Integer;
StatusCode: Integer;
const ReasonPhrase: WideString;
const Contact: WideString) of object;
TVaxSIPUserAgentOCXOnRequestFailureResponse = procedure(ASender: TObject; LineNo: Integer;
StatusCode: Integer;
const ReasonPhrase: WideString) of object;
TVaxSIPUserAgentOCXOnServerFailureResponse = procedure(ASender: TObject; LineNo: Integer;
StatusCode: Integer;
const ReasonPhrase: WideString) of object;
TVaxSIPUserAgentOCXOnGeneralFailureResponse = procedure(ASender: TObject; LineNo: Integer;
StatusCode: Integer;
const ReasonPhrase: WideString) of object;
TVaxSIPUserAgentOCXOnSuccessToConnect = procedure(ASender: TObject; LineNo: Integer;
const ToRTPIP: WideString;
ToRTPPort: Integer) of object;
TVaxSIPUserAgentOCXOnIncomingCall = procedure(ASender: TObject; const CallId: WideString;
const DisplayName: WideString;
const UserName: WideString;
const FromURI: WideString;
const ToURI: WideString) of object;
TVaxSIPUserAgentOCXOnVoiceMailMsg = procedure(ASender: TObject; IsMsgWaiting: WordBool;
NewMsgCount: Integer;
OldMsgCount: Integer;
NewUrgentMsgCount: Integer;
OldUrgentMsgCount: Integer;
const MsgAccount: WideString) of object;
TVaxSIPUserAgentOCX = class(TOleControl)
private
FOnIncomingDiagnostic: TVaxSIPUserAgentOCXOnIncomingDiagnostic;
FOnOutgoingDiagnostic: TVaxSIPUserAgentOCXOnOutgoingDiagnostic;
FOnDTMFDigit: TVaxSIPUserAgentOCXOnDTMFDigit;
FOnPlayWaveDone: TVaxSIPUserAgentOCXOnPlayWaveDone;
FOnMsgNOTIFY: TVaxSIPUserAgentOCXOnMsgNOTIFY;
FOnTryingToUnRegister: TNotifyEvent;
FOnFailToUnRegister: TNotifyEvent;
FOnSuccessToUnRegister: TNotifyEvent;
FOnTryingToRegister: TNotifyEvent;
FOnFailToRegister: TNotifyEvent;
FOnSuccessToRegister: TNotifyEvent;
FOnFailToConnect: TVaxSIPUserAgentOCXOnFailToConnect;
FOnConnecting: TVaxSIPUserAgentOCXOnConnecting;
FOnIncomingCallRingingStart: TVaxSIPUserAgentOCXOnIncomingCallRingingStart;
FOnIncomingCallRingingStop: TVaxSIPUserAgentOCXOnIncomingCallRingingStop;
FOnDisconnectCall: TVaxSIPUserAgentOCXOnDisconnectCall;
FOnCallTransferAccepted: TVaxSIPUserAgentOCXOnCallTransferAccepted;
FOnProvisionalResponse: TVaxSIPUserAgentOCXOnProvisionalResponse;
FOnRedirectionResponse: TVaxSIPUserAgentOCXOnRedirectionResponse;
FOnRequestFailureResponse: TVaxSIPUserAgentOCXOnRequestFailureResponse;
FOnServerFailureResponse: TVaxSIPUserAgentOCXOnServerFailureResponse;
FOnGeneralFailureResponse: TVaxSIPUserAgentOCXOnGeneralFailureResponse;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -