uniinterface_tapi.pas

很好用的串口通信工具软件。Comport目录下是用到的通信控件。

  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;

  TLineGetAddressStatus = function(Line : TLine;
                                   AddressID : DWORD;
                                   var AddressStatus : TLineAddressStatus)
                                   : 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;

 {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 tuLineMonitorMedia(Call : TCall; MediaModes : DWORD) : LongInt;

  function tuLineGenerateDigits(Call : TCall; DigitModes : DWORD;
                                Digits : PChar; Duration : DWORD): LongInt;

  function tuLineMonitorDigits(Call : TCall;
                               DigitModes : DWORD): LongInt;             

  function tuLineInitialize(var LineApp : TLineApp;
                            Instance : THandle;
                            Callback : TLineCallback;
                            AppName : PChar;
                            var NumDevs : DWORD) : LongInt;
    {-Initialize a line device}

  function tuLineShutdown(LineApp : TLineApp) : LongInt;
    {-Shutdown a line device}

  function tuLineNegotiateApiVersion(LineApp : TLineApp;
                                     DeviceID : LongInt;
                                     APILowVersion : LongInt;
                                     APIHighVersion : LongInt;
                                     var ApiVersion : LongInt;
                                     var LE : TLineExtensionID) : LongInt;
    {-Negotiate and return the API level to use}

  function tuLineGetDevCaps(LineApp : TLineApp;
                            DeviceID : DWORD;
                            ApiVersion : DWORD;
                            ExtVersion : DWORD;
                            LineDevCaps : PLineDevCaps) : LongInt;
    {-Return the capabilities of a line device}

  function tuLineOpen(LineApp : TLineApp;
                      DeviceID : DWORD;
                      var Line : TLine;
                      ApiVersion : DWORD;
                      ExtVersion : DWORD;
                      CallbackInstance : DWORD;
                      Privleges : DWORD;
                      MediaModes : DWORD;
                      CallParams : DWORD) : LongInt;
    {-Open a line device}

  function tuLineMakeCall(Line : TLine;
                          var Call : TCall;
                          DestAddress : PChar;
                          CountryCode : DWORD;
                          const CallParams : PLineCallParams) : LongInt;
    {-Make an outgoing call on a line device}

  function tuLineAccept(Call : TCall;                                 
                        UserUserInfo : PChar;
                        Size : DWORD) : LongInt;
    {-Accept an incoming call}

  function tuLineAnswer(Call : TCall;
                        UserUserInfo : PChar;
                        Size : DWORD) : LongInt;
    {-Answer an incoming call}

  function tuLineDeallocateCall(Call : TCall) : LongInt;
    {-Deallocate a call}

  function tuLineDrop(Call : TCall; UserInfo : PChar; Size : DWORD) : LongInt;
    {-Drop (abort) the call in progress}

  function tuLineClose(Line : TLine) : LongInt;
    {-Close a call}

  function tuLineGetCountry(CountryID : LongInt;
                            ApiVersion : LongInt;
                            LineCountryList : PLineCountryList) : LongInt;
    {-Return country information}

  function tuLineConfigDialog(DeviceID : DWORD;
                              Owner : HWND;
                              DeviceClass : PChar) : LongInt;
    {-Display the line configuration dialog}

  function tuLineConfigDialogEdit(DeviceID : DWORD;
                                  Owner : HWND;
                                  DeviceClass : PChar;
                                  const inDevConfig;
                                  Size : DWORD;
                                  var DevConfig : TVarString) : LongInt;
    {-Display the line configuration dialog to get config struct}

  function tuLineGetID(Line : TLine;
                       AddressID : DWORD;
                       Call : TCall;
                       Select : DWORD;
                       var DeviceID : TVarString;
                       DeviceClass : PChar) : LongInt;
    {-Return the line ID}

  function tuLineSetStatusMessages(Line : TLine;
                                   LineStates : DWORD;
                                   AddressStates : DWORD) : LongInt;
    {-Specify which status messages to generate}

  function tuLineGetStatusMessages(Line : TLine;
                                   var LineStates : DWORD;
                                   var AddressStates : DWORD) : LongInt;
    {-Get which status messages are generated}

  function tuLineGetAddressStatus(Line : TLine;
                                  AddressID : DWORD;
                                  var AddressStatus : TLineAddressStatus)
                                  : LongInt;
    {-Return the line address status}

  function tuLineGetDevConfig(DeviceID : DWORD;
                              var DeviceConfig : TVarString;
                              DeviceClass : PChar) : LongInt;
    {-Return the device configuration}

  function tuLineSetDevConfig(DeviceID : DWORD;
                              const DeviceConfig;
                              Size : DWORD;
                              DeviceClass : PChar) : LongInt;
    {-Set the device configuration}

  function tuLineGetCallInfo(Call : TCall; CallInfo : PCallInfo) : LongInt;
    {-Get information about the current call}

  function tuLineGetCallStatus(Call : TCall;
                               CallStatus : PCallStatus) : LongInt;
    {-Get information about the current call}

  function tuLineSetMediaMode(Call : TCall; MediaModes : DWORD) : LongInt;
    {-Set the new media mode to use}

  function tuLineSetCurrentLocation(Line : TLine;