mscommlib_tlb.pas

重新编译制作的MSComm串口控件包

unit MSCommLib_TLB;

// ************************************************************************ //
// WARNING                                                                    
// -------                                                                    
// The types declared in this file were generated from data read from a       
// Type Library. If this type library is explicitly or indirectly (via        
// another type library referring to this type library) re-imported, or the   
// 'Refresh' command of the Type Library Editor activated while editing the   
// Type Library, the contents of this file will be regenerated and all        
// manual modifications will be lost.                                         
// ************************************************************************ //

// $Rev: 5081 $
// File generated on 2008-8-14 17:35:21 from Type Library described below.

// ************************************************************************  //
// Type Lib: C:\WINDOWS\system32\MSCOMM32.OCX (1)
// LIBID: {648A5603-2C6E-101B-82B6-000000000014}
// LCID: 0
// Helpfile: C:\WINDOWS\HELP\COMM98.CHM
// HelpString: Microsoft Comm Control 6.0
// DepndLst: 
//   (1) v2.0 stdole, (C:\WINDOWS\system32\STDOLE2.TLB)
// ************************************************************************ //
// *************************************************************************//
// NOTE:                                                                      
// Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties  
// which return objects that may need to be explicitly created via a function 
// call prior to any access via the property. These items have been disabled  
// in order to prevent accidental use from within the object inspector. You   
// may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively   
// removing them from the $IFDEF blocks. However, such items must still be    
// programmatically created via a method of the appropriate CoClass before    
// they can be used.                                                          
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}
{$VARPROPSETTER ON}
interface

uses Windows, ActiveX, Classes, Graphics, OleCtrls, OleServer, StdVCL, Variants;
  


// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:        
//   Type Libraries     : LIBID_xxxx                                      
//   CoClasses          : CLASS_xxxx                                      
//   DISPInterfaces     : DIID_xxxx                                       
//   Non-DISP interfaces: IID_xxxx                                        
// *********************************************************************//
const
  // TypeLibrary Major and minor versions
  MSCommLibMajorVersion = 1;
  MSCommLibMinorVersion = 1;

  LIBID_MSCommLib: TGUID = '{648A5603-2C6E-101B-82B6-000000000014}';

  IID_IMSComm: TGUID = '{E6E17E90-DF38-11CF-8E74-00A0C90F26F8}';
  DIID_DMSCommEvents: TGUID = '{648A5602-2C6E-101B-82B6-000000000014}';
  CLASS_MSComm: TGUID = '{648A5600-2C6E-101B-82B6-000000000014}';

// *********************************************************************//
// Declaration of Enumerations defined in Type Library                    
// *********************************************************************//
// Constants for enum HandshakingConstants
type
  HandshakingConstants = TOleEnum;
const
  NoHandshaking = $00000000;
  XonXoff = $00000001;
  RtsCts = $00000002;
  XonXoffAndRtsCts = $00000003;

// Constants for enum HandshakeConstants
type
  HandshakeConstants = TOleEnum;
const
  comNone = $00000000;
  comXOnXoff = $00000001;
  comRTS = $00000002;
  comRTSXOnXOff = $00000003;

// Constants for enum ErrorConstants
type
  ErrorConstants = TOleEnum;
const
  comInvalidPropertyValue = $0000017C;
  comGetNotSupported = $0000018A;
  comSetNotSupported = $0000017F;
  comPortInvalid = $00001F42;
  comPortAlreadyOpen = $00001F45;
  comPortOpen = $00001F40;
  comNoOpen = $00001F4C;
  comSetCommStateFailed = $00001F4F;
  comPortNotOpen = $00001F52;
  comReadError = $00001F54;
  comDCBError = $00001F55;
  comBreak = $000003E9;
  comCTSTO = $000003EA;
  comDSRTO = $000003EB;
  comFrame = $000003EC;
  comOverrun = $000003EE;
  comCDTO = $000003EF;
  comRxOver = $000003F0;
  comRxParity = $000003F1;
  comTxFull = $000003F2;
  comDCB = $000003F3;

// Constants for enum CommEventConstants
type
  CommEventConstants = TOleEnum;
const
  comEventBreak = $000003E9;
  comEventCTSTO = $000003EA;
  comEventDSRTO = $000003EB;
  comEventFrame = $000003EC;
  comEventOverrun = $000003EE;
  comEventCDTO = $000003EF;
  comEventRxOver = $000003F0;
  comEventRxParity = $000003F1;
  comEventTxFull = $000003F2;
  comEventDCB = $000003F3;

// Constants for enum OnCommConstants
type
  OnCommConstants = TOleEnum;
const
  comEvSend = $00000001;
  comEvReceive = $00000002;
  comEvCTS = $00000003;
  comEvDSR = $00000004;
  comEvCD = $00000005;
  comEvRing = $00000006;
  comEvEOF = $00000007;

// Constants for enum InputModeConstants
type
  InputModeConstants = TOleEnum;
const
  comInputModeText = $00000000;
  comInputModeBinary = $00000001;

type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  IMSComm = interface;
  IMSCommDisp = dispinterface;
  DMSCommEvents = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                       
// (NOTE: Here we map each CoClass to its Default Interface)              
// *********************************************************************//
  MSComm = IMSComm;


// *********************************************************************//
// Interface: IMSComm
// Flags:     (4560) Hidden Dual NonExtensible OleAutomation Dispatchable
// GUID:      {E6E17E90-DF38-11CF-8E74-00A0C90F26F8}
// *********************************************************************//
  IMSComm = interface(IDispatch)
    ['{E6E17E90-DF38-11CF-8E74-00A0C90F26F8}']
    procedure Set_CDHolding(pfCDHolding: WordBool); safecall;
    function Get_CDHolding: WordBool; safecall;
    procedure Set_CDTimeout(plCDTimeout: Integer); safecall;
    function Get_CDTimeout: Integer; safecall;
    procedure Set_CommID(plCommID: Integer); safecall;
    function Get_CommID: Integer; safecall;
    procedure Set_CommPort(psCommPort: Smallint); safecall;
    function Get_CommPort: Smallint; safecall;
    procedure Set__CommPort(psCommPort: Smallint); safecall;
    function Get__CommPort: Smallint; safecall;
    procedure Set_CTSHolding(pfCTSHolding: WordBool); safecall;
    function Get_CTSHolding: WordBool; safecall;
    procedure Set_CTSTimeout(plCTSTimeout: Integer); safecall;
    function Get_CTSTimeout: Integer; safecall;
    procedure Set_DSRHolding(pfDSRHolding: WordBool); safecall;
    function Get_DSRHolding: WordBool; safecall;
    procedure Set_DSRTimeout(plDSRTimeout: Integer); safecall;
    function Get_DSRTimeout: Integer; safecall;
    procedure Set_DTREnable(pfDTREnable: WordBool); safecall;
    function Get_DTREnable: WordBool; safecall;
    procedure Set_Handshaking(phandshake: HandshakeConstants); safecall;
    function Get_Handshaking: HandshakeConstants; safecall;
    procedure Set_InBufferSize(psInBufferSize: Smallint); safecall;
    function Get_InBufferSize: Smallint; safecall;
    procedure Set_InBufferCount(psInBufferCount: Smallint); safecall;
    function Get_InBufferCount: Smallint; safecall;
    procedure Set_Break(pfBreak: WordBool); safecall;
    function Get_Break: WordBool; safecall;
    procedure Set_InputLen(psInputLen: Smallint); safecall;
    function Get_InputLen: Smallint; safecall;
    procedure Set_Interval(plInterval: Integer); safecall;
    function Get_Interval: Integer; safecall;
    procedure Set_NullDiscard(pfNullDiscard: WordBool); safecall;
    function Get_NullDiscard: WordBool; safecall;
    procedure Set_OutBufferSize(psOutBufferSize: Smallint); safecall;
    function Get_OutBufferSize: Smallint; safecall;
    procedure Set_OutBufferCount(psOutBufferCount: Smallint); safecall;
    function Get_OutBufferCount: Smallint; safecall;
    procedure Set_ParityReplace(const pbstrParityReplace: WideString); safecall;
    function Get_ParityReplace: WideString; safecall;
    procedure Set_PortOpen(pfPortOpen: WordBool); safecall;
    function Get_PortOpen: WordBool; safecall;
    procedure Set_RThreshold(psRThreshold: Smallint); safecall;
    function Get_RThreshold: Smallint; safecall;
    procedure Set_RTSEnable(pfRTSEnable: WordBool); safecall;
    function Get_RTSEnable: WordBool; safecall;
    procedure Set_Settings(const pbstrSettings: WideString); safecall;
    function Get_Settings: WideString; safecall;
    procedure Set_SThreshold(psSThreshold: Smallint); safecall;
    function Get_SThreshold: Smallint; safecall;
    procedure Set_Output(pvarOutput: OleVariant); safecall;
    function Get_Output: OleVariant; safecall;
    procedure Set_Input(pvarInput: OleVariant); safecall;
    function Get_Input: OleVariant; safecall;
    procedure Set_CommEvent(psCommEvent: Smallint); safecall;
    function Get_CommEvent: Smallint; safecall;
    procedure Set_EOFEnable(pfEOFEnable: WordBool); safecall;
    function Get_EOFEnable: WordBool; safecall;
    procedure Set_InputMode(InputMode: InputModeConstants); safecall;
    function Get_InputMode: InputModeConstants; safecall;
    procedure AboutBox; stdcall;