A copy of the DEVLINK.PAS file, used for Borland Delphi programs. Programs written using Borland Delphi must use DEVLINK.PAS, which links directly to the DEVLINK.DLL library.

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.