mscommlib_tlb.pas

主要提供delphi 5与单片机通讯的源码及定义的通讯协议

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.                                         
// ************************************************************************ //

// PASTLWTR : $Revision:   1.88  $
// File generated on 2001-12-27 13:53:10 from Type Library described below.

// ************************************************************************ //
// Type Lib: C:\WINDOWS\SYSTEM\MSCOMM32.OCX (1)
// IID\LCID: {648A5603-2C6E-101B-82B6-000000000014}\0
// Helpfile: C:\WINDOWS\HELP\COMM98.CHM
// DepndLst: 
//   (1) v2.0 stdole, (C:\WINDOWS\SYSTEM\STDOLE2.TLB)
//   (2) v4.0 StdVCL, (C:\WINDOWS\SYSTEM\STDVCL40.DLL)
// ************************************************************************ //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
interface

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

// *********************************************************************//
// 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;
    property CDHolding: WordBool read Get_CDHolding write Set_CDHolding;
    property CDTimeout: Integer read Get_CDTimeout write Set_CDTimeout;