adtutil.pas

测试用例

         EndMark                 : Integer);
    1 : (Data                    : array[0..65520] of Byte);
  end;

  {More line call information}
  PCallStatus = ^TCallStatus;
  TCallStatus = record
    case Integer of
      0 : (TotalSize          : DWORD;
           NeededSize         : DWORD;
           UsedSize           : DWORD;
           CallState          : DWORD;
           CallStateMode      : DWORD;
           CallPrivilege      : DWORD;
           CallFeatures       : DWORD;
           DevSpecificSize    : DWORD;
           DevSpecificOffset  : DWORD;
           EndMark            : DWORD);
      1 : (Data               : array[0..65520] of Byte);
  end;

  {Structure for LineTranslateAddress results}                      
  PLineTranslateOutput = ^TLineTranslateOutput;
  TLineTranslateOutput = record
    case Integer of
      0 : (TotalSize                : DWORD;
           NeededSize               : DWORD;
           UsedSize                 : DWORD;
           DialableStringSize       : DWORD;
           DialableStringOffset     : DWORD;
           DisplayableStringSize    : DWORD;
           DisplayableStringOffset  : DWORD;
           CurrentCountry           : DWORD;
           DestCountry              : DWORD;
           TranslateResults         : DWORD;
           EndMark                  : DWORD);
      1 : (Data                     : array[0..65520] of Byte);
  end;

  {Structure for LineTranslateCaps }                                
  PLineTranslateCaps = ^TLineTranslateCaps;
  TLineTranslateCaps = record
    case Integer of
      0 : (TotalSize              : DWORD;
          NeededSize              : DWORD;
          UsedSize                : DWORD;
          NumLocations            : DWORD;
          LocationListSize        : DWORD;
          LocationListOffset      : DWORD;
          CurrentLocationID       : DWORD;
          NumCards                : DWORD;
          CardListSize            : DWORD;
          CardListOffset          : DWORD;
          CurrentPreferredCardID  : DWORD;
          EndMark                 : DWORD);
      1 : (Data                     : array[0..65520] of Byte);
  end;

  PLineMonitorTone = ^TLineMonitorTone;                             
  TLineMonitorTone = record
    AppSpecific  : DWORD;
    Duration     : DWORD;
    Frequency1   : DWORD;
    Frequency2   : DWORD;
    Frequency3   : DWORD;
  end;

  PLineGenerateTone = ^TLineGenerateTone;                           
  TLineGenerateTone = record
    Frequency   : DWORD;
    CadenceOn   : DWORD;
    CadenceOff  : DWORD;
    Volume      : DWORD;
  end;

  {Callback procedure type}
  TLineCallback = procedure(Device   : LongInt;                        
                            Message  : LongInt;                        
                            Instance : LongInt;                        
                            Param1   : LongInt;                        
                            Param2   : LongInt;                        
                            Param3   : LongInt)
                            stdcall;

  {Tapi function types}
  TLineInitialize = function(var LineApp : TLineApp;
                             Instance : THandle;
                             Callback : TLineCallback;
                             AppName : PChar;
                             var NumDevs : DWORD) : LongInt
                             stdcall;

  TLineShutdown = function(LineApp : TLineApp) : LongInt stdcall;

  TLineNegotiateApiVersion = function (LineApp : TLineApp;
                                      DeviceID : LongInt;
                                      APILowVersion : LongInt;
                                      APIHighVersion : LongInt;
                                      var ApiVersion : LongInt;
                                      var LE : TLineExtensionID) : LongInt
                                      stdcall;

  TLineGetDevCaps = function(LineApp : TLineApp;
                             DeviceID : DWORD;
                             ApiVersion : DWORD;
                             ExtVersion : DWORD;
                             LineDevCaps : PLineDevCaps) : LongInt
                             stdcall;

  TLineOpen = function(LineApp : TLineApp;
                       DeviceID : DWORD;
                       var Line : TLine;
                       ApiVersion : DWORD;
                       ExtVersion : DWORD;
                       CallbackInstance : DWORD;
                       Privleges : DWORD;
                       MediaModes : DWORD;
                       CallParams : DWORD) : LongInt
                       stdcall;

  TLineMakeCall = function(Line : TLine;
                           var Call : TCall;
                           DestAddress : PChar;
                           CountryCode : DWORD;
                           const CallParams : PLineCallParams) : LongInt
                           stdcall;

  TLineAccept = function(Call : TCall;
                         UserUserInfo : PChar;
                         Size : DWORD) : LongInt
                         stdcall;

  TLineAnswer = function(Call : TCall;
                         UserUserInfo : PChar;
                         Size : DWORD) : LongInt
                         stdcall;

  TLineDeallocateCall = function(Call : TCall) : LongInt
                                stdcall;

  TLineDrop = function(Call : TCall; UserInfo : PChar; Size : DWORD) : LongInt
                       stdcall;

  TLineClose = function(Line : TLine) : LongInt
                        stdcall;

  TLineGetCountry = function(CountryID : LongInt;
                            ApiVersion : LongInt;
                            LineCountryList : PLineCountryList) : LongInt
                            stdcall;

  TLineConfigDialog = function(DeviceID : DWORD;
                               Owner : HWND;
                               DeviceClass : PChar) : LongInt
                               stdcall;

  TLineConfigDialogEdit = function(DeviceID : DWORD;
                                   Owner : HWND;
                                   DeviceClass : PChar;
                                   const inDevConfig;
                                   Size : DWORD;
                                   var DevConfig : TVarString) : LongInt
                                   stdcall;

  TLineGetID = function(Line : TLine;
                        AddressID : DWORD;
                        Call : TCall;
                        Select : DWORD;
                        var DeviceID : TVarString;
                        DeviceClass : PChar) : LongInt
                        stdcall;

  TLineSetStatusMessages = function(Line : TLine;
                                    LineStates : DWORD;
                                    AddressStates : DWORD) : LongInt
                                    stdcall;

  TLineGetStatusMessages = function(Line : TLine;
                                    var LineStates : DWORD;
                                    var AddressStates : DWORD) : LongInt
                                    stdcall;

  TLineGetAddressCaps = function(LineApp : TLineApp;                     {!!.06}
                             DeviceID    : DWORD;
                             AddressId   : DWORD;
                             ApiVersion  : DWORD;
                             ExtVersion  : DWORD;
                             LineAddressCaps : PLineAddressCaps) : LongInt
                             stdcall;

  TLineGetAddressStatus = function(Line : TLine;
                                   AddressID : DWORD;
                                   var AddressStatus : TLineAddressStatus)
                                   : LongInt
                                   stdcall;

  TLineGetLineDevStatus = function(Line : TLine;                         {!!.02}
                                   var DevStatus : TLineDevStatus)
                                   : LongInt stdcall;

  TLineGetDevConfig = function (DeviceID : DWORD;
                                var DeviceConfig : TVarString;
                                DeviceClass : PChar) : LongInt
                                stdcall;

  TLineSetDevConfig = function (DeviceID : DWORD;
                                const DeviceConfig;
                                Size : DWORD;
                                DeviceClass : PChar) : LongInt
                                stdcall;

  TLineGetCallInfo = function(Call : TCall;
                              CallInfo : PCallInfo) : LongInt
                              stdcall;


  TLineGetCallStatus = function(Call : TCall;
                                CallStatus : PCallStatus) : LongInt
                                stdcall;

  TLineSetMediaMode = function(Call : TCall; MediaModes : DWORD) : LongInt
                                stdcall;

  TLineMonitorDigits = function(Call : TCall; DigitModes : DWORD): LongInt
                                 stdcall;

  TLineGenerateDigits = function(Call : TCall; DigitModes : DWORD;
                                 Digits : PChar; Duration : DWORD): LongInt
                                 stdcall;

  TLineMonitorMedia = function(Call : TCall; MediaModes : DWORD) : LongInt
                                stdcall;

  TLineHandoff = function(Call : TCall; FileName: PChar;
                          MediaMode : DWORD) : LongInt
                          stdcall;

  TLineSetCallParams = function(Call : TCall; BearerMode, MinRate,
                                MaxRate : DWORD;
                                DialParams : PLineDialParams) : LongInt
                                stdcall;          

  TLineTranslateAddress = function(Line : TLine; DeviceID : DWORD;        
                                   APIVersion : DWORD;
                                   AddressIn : PChar; Card : DWORD;
                                   TranslateOptions : DWORD;
                                   TranslateOutput : PLineTranslateOutput)
                                   : LongInt
                                   stdcall;

  TLineTranslateDialog = function(Line : TLine; DeviceID : DWORD;
                                  APIVersion : DWORD; HwndOwner : HWND;
                                  AddressIn : PChar) : LongInt
                                  stdcall;

  TLineSetCurrentLocation = function(Line : TLine;                       
                                     Location : DWORD) : LongInt
                                    stdcall;

  TLineSetTollList = function (Line : TLine; DeviceID : DWORD;
                               AddressIn : PChar;
                               TollListOption : DWORD) : LongInt
                               stdcall;

  TLineGetTranslateCaps = function(Line : TLine; APIVersion : DWORD;
                                   TranslateCaps : PLineTranslateCaps)
                                   : LongInt
                                   stdcall;

  TLineMonitorTones = function(Call : TCall; const LINEMONITORTONE;
                               NumEntries : DWORD): LongInt
                               stdcall;

  TLineGenerateTones = function(Call : TCall; ToneMode, Duration,         
                                NumTones : DWORD; const LINEGENERATETONE): LongInt
                                stdcall;

  TLineHold = function(Call:TCall) : LongInt                             {!!.06}
                           stdcall;

  TLineUnhold = function(Call:TCall) : LongInt                           {!!.06}
                           stdcall;

  TLineTransfer = function(Call:TCall; DestAddress:PChar;                {!!.06}
                           CountryCode:DWord) : LongInt                  {!!.06}
                           stdcall;                                      {!!.06}


 {TAPI functions exported by this unit}
  function tuLineGenerateTones(Call : TCall; ToneMode, Duration,          
                               NumTones : DWORD; const LINEGENERATETONE): LongInt;

  function tuLineMonitorTones(Call : TCall; const LINEMONITORTONE;
                              NumEntries : DWORD): LongInt;

  function tuLineSetCallParams(Call : TCall; BearerMode, MinRate,
                               MaxRate : DWORD;
                               DialParams : PLineDialParams) : LongInt;

  function tuLineHandoff(Call : TCall; FileName: PChar;
                          MediaMode : DWORD) : LongInt;

  function