Appendices; Devlink.pas - Avaya IP Office CTI Link Programmer's Manual

Appendices

DEVLINK.PAS

This appendix contains a copy of the DEVLINK.PAS file, used for Borland Delphi programs.
unit DEVLINK;
{**************************************************************************}
{ Delphi unit for DevLink (c) 2001 Avaya Global SME Solutions
{ Contents:- }
{ IP Office DevLink DLL provides an interface for managing }
{ the IP Office product ranges from a Windows PC }
{**************************************************************************}
interface
uses
Windows;
const
DEVLINK_SUCCESS = 0;
DEVLINK_UNSPECIFIEDFAIL = 1;
DEVLINK_LICENCENOTFOUND = 2;
const
DEVLINK_COMMS_OPERATIONAL = 0;
DEVLINK_COMMS_NORESPONSE = 1;
DEVLINK_COMMS_REJECTED = 2;
DEVLINK_COMMS_MISSEDPACKETS = 3;
type
TCallLogEvent = procedure( pbxh : LongInt; info : PChar ); stdcall;
type
TCommsEvent = procedure( pbxh : LongInt;
Comms_status : DWORD;
Parm1 : DWORD ); stdcall;
function DLOpen(pbxh: LongInt;
pbx_address: PChar;
pbx_password: PChar;
reserved1: PChar;
reserved2: PChar;
cb: TCommsEvent): LongInt; stdcall;
function DLClose(pbxh: THandle): LongInt; stdcall;
function DLRegisterType2CallDeltas(pbxh: LongInt;
cb: TCallLogEvent): LongInt; stdcall;
implementation
function DLOpen; external 'DEVLINK.DLL';
function DLClose; external 'DEVLINK.DLL';
function DLRegisterType2CallDeltas; external 'DEVLINK.DLL';
end.
DevLink Programmer's Guide
IP Office CTI Link 40DHB0002UKAD Issue 11a (14th June 2005)
}
Page 23