Unit TAPILine

* TTAPILine component version 1.0 * (c)1998 Jury Kornienko * j.kornienko@pf.lv * * * See for updates in * http://www.pf.lv * * TAPI.pas - Translated by Alexander Staubo * * Source code provided under some conditions: * * - if you use significant parts of the code, please credit me * - do not release a new version of this component without * significant enhancements *

Classes

TAboutTAPILineProperty -
TformDialing -
TTAPILine - Public declarations

Functions

LineCallbackProc - TAPI v1.
Register - Register the component with the Delphi IDE
ZeroMem - This routine is necessary, because we want to take modem name Let's go!

Types

Constants

EVENT_TIMEOUT
HiVer
LINENAMEEMPTY
LINENOTUSEABLE_ALLOCATED
LINENOTUSEABLE_ERROR
LINENOTUSEABLE_INUSE
LINENOTUSEABLE_NOCOMMDATAMODEM
LINENOTUSEABLE_NODATAMODEM
LINENOTUSEABLE_NOMAKECALL
LINENOTUSEABLE_NOVOICE
LINEUNAVAIL
LINEUNNAMED
LoVer
NEW_LINE
TL_TIMEOUT

Variables

formDialing
thisTAPILine


Functions


procedure LineCallbackProc (hDevice, dwMessage, dwInstance, dwParam1, dwParam2, dwParam3 : DWORD);

TAPI v1.4

procedure Register;

Register the component with the Delphi IDE

procedure ZeroMem (p: PChar);

This routine is necessary, because we want to take modem name Let's go!

Types


Constants

EVENT_TIMEOUT = 300

Lowest API version accepted (1.4

HiVer = $00020000

LINENAMEEMPTY = 'Line Name is Empty'

LINENOTUSEABLE_ALLOCATED = 5

LINENOTUSEABLE_ERROR = 1

Reasons why a line device might not be usable by TapiComm.

LINENOTUSEABLE_INUSE = 6

LINENOTUSEABLE_NOCOMMDATAMODEM = 7

LINENOTUSEABLE_NODATAMODEM = 3

LINENOTUSEABLE_NOMAKECALL = 4

LINENOTUSEABLE_NOVOICE = 2

LINEUNAVAIL = 'Line Unavailable'

LINEUNNAMED = 'Line Unnamed'

LoVer = $00010004

Highest API version wanted (2.0

NEW_LINE = Chr (13)+Chr (10)

TL_TIMEOUT = 20000


Variables

formDialing : TformDialing

thisTAPILine : TTAPILine