⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 commp.hpp

📁 TOxygenSMS控件允许你发送接受文本和图片消息
💻 HPP
字号:
🔍 
// Borland C++ Builder
// Copyright (c) 1995, 1999 by Borland International
// All rights reserved

// (DO NOT EDIT: machine generated header) 'CommP.pas' rev: 5.00

#ifndef CommPHPP
#define CommPHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <SysUtils.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Commp
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TBaudRate { br110, br300, br600, br1200, br2400, br4800, br9600, br14400, br19200, br38400, br56000, 
	br57600, br115200 };
#pragma option pop

#pragma option push -b-
enum TPortType { COM1, COM2, COM3, COM4, COM5, COM6, COM7, COM8 };
#pragma option pop

#pragma option push -b-
enum TStopBits { sbOneStopBit, sbOne5StopBits, sbTwoStopBits };
#pragma option pop

#pragma option push -b-
enum TParity { prNone, prOdd, prEven, prMark, prSpace };
#pragma option pop

#pragma option push -b-
enum TFlowControl { fcNone, fcRtsCts, fcXonXoff };
#pragma option pop

#pragma option push -b-
enum TEvent { evRxChar, evTxEmpty, evRxFlag, evRing, evBreak, evCTS, evDSR, evError, evRLSD };
#pragma option pop

typedef Set<TEvent, evRxChar, evRLSD>  TEvents;

typedef void __fastcall (__closure *TRxCharEvent)(System::TObject* Sender, int InQue);

class DELPHICLASS TComThread;
class DELPHICLASS TCustComPort;
class PASCALIMPLEMENTATION TCustComPort : public Classes::TComponent 
{
	typedef Classes::TComponent inherited;
	
private:
	unsigned ComHandle;
	TComThread* EventThread;
	bool FConnected;
	TBaudRate FBaudRate;
	TPortType FPortType;
	TParity FParity;
	TStopBits FStopBits;
	TFlowControl FFlowControl;
	Byte FDataBits;
	TEvents FEvents;
	bool FEnableDTR;
	int FWriteBufSize;
	int FReadBufSize;
	TRxCharEvent FOnRxChar;
	Classes::TNotifyEvent FOnTxEmpty;
	Classes::TNotifyEvent FOnBreak;
	Classes::TNotifyEvent FOnRing;
	Classes::TNotifyEvent FOnCTS;
	Classes::TNotifyEvent FOnDSR;
	Classes::TNotifyEvent FOnRLSD;
	Classes::TNotifyEvent FOnError;
	Classes::TNotifyEvent FOnRxFlag;
	Classes::TNotifyEvent FOnOpen;
	Classes::TNotifyEvent FOnClose;
	bool fDTR;
	bool fRTS;
	void __fastcall SetDataBits(Byte Value);
	AnsiString __fastcall ComString();
	void __fastcall DoOnRxChar(void);
	void __fastcall DoOnTxEmpty(void);
	void __fastcall DoOnBreak(void);
	void __fastcall DoOnRing(void);
	void __fastcall DoOnRxFlag(void);
	void __fastcall DoOnCTS(void);
	void __fastcall DoOnDSR(void);
	void __fastcall DoOnError(void);
	void __fastcall DoOnRLSD(void);
	void __fastcall SetpDTR(bool Value);
	void __fastcall SetpRTS(bool Value);
	
protected:
	void __fastcall CreateHandle(void);
	void __fastcall DestroyHandle(void);
	
public:
	void __fastcall SetupState(void);
	void __fastcall SetupDTR(void);
	void __fastcall SetupRTS(void);
	void __fastcall ClearDTR(void);
	void __fastcall ClearRTS(void);
	__property bool Connected = {read=FConnected, nodefault};
	bool __fastcall ValidHandle(void);
	void __fastcall Open(void);
	void __fastcall Close(void);
	int __fastcall InQue(void);
	int __fastcall OutQue(void);
	bool __fastcall ActiveCTS(void);
	int __fastcall Write(void *Buffer, int Count);
	int __fastcall WriteString(AnsiString Str);
	int __fastcall Read(void *Buffer, int Count);
	int __fastcall ReadString(AnsiString &Str, int Count);
	void __fastcall PurgeIn(void);
	void __fastcall PurgeOut(void);
	unsigned __fastcall GetComHandle(void);
	__fastcall virtual TCustComPort(Classes::TComponent* AOwner);
	__fastcall virtual ~TCustComPort(void);
	
__published:
	__property TBaudRate BaudRate = {read=FBaudRate, write=FBaudRate, nodefault};
	__property TPortType Port = {read=FPortType, write=FPortType, nodefault};
	__property TParity Parity = {read=FParity, write=FParity, nodefault};
	__property TStopBits StopBits = {read=FStopBits, write=FStopBits, nodefault};
	__property TFlowControl FlowControl = {read=FFlowControl, write=FFlowControl, nodefault};
	__property Byte DataBits = {read=FDataBits, write=SetDataBits, nodefault};
	__property TEvents Events = {read=FEvents, write=FEvents, nodefault};
	__property bool EnableDTR = {read=FEnableDTR, write=FEnableDTR, nodefault};
	__property int WriteBufSize = {read=FWriteBufSize, write=FWriteBufSize, nodefault};
	__property int ReadBufSize = {read=FReadBufSize, write=FReadBufSize, nodefault};
	__property TRxCharEvent OnRxChar = {read=FOnRxChar, write=FOnRxChar};
	__property Classes::TNotifyEvent OnTxEmpty = {read=FOnTxEmpty, write=FOnTxEmpty};
	__property Classes::TNotifyEvent OnBreak = {read=FOnBreak, write=FOnBreak};
	__property Classes::TNotifyEvent OnRing = {read=FOnRing, write=FOnRing};
	__property Classes::TNotifyEvent OnCTS = {read=FOnCTS, write=FOnCTS};
	__property Classes::TNotifyEvent OnDSR = {read=FOnDSR, write=FOnDSR};
	__property Classes::TNotifyEvent OnRLSD = {read=FOnRLSD, write=FOnRLSD};
	__property Classes::TNotifyEvent OnRxFlag = {read=FOnRxFlag, write=FOnRxFlag};
	__property Classes::TNotifyEvent OnError = {read=FOnError, write=FOnError};
	__property Classes::TNotifyEvent OnOpen = {read=FOnOpen, write=FOnOpen};
	__property Classes::TNotifyEvent OnClose = {read=FOnClose, write=FOnClose};
	__property bool DTR = {read=fDTR, write=SetpDTR, nodefault};
	__property bool RTS = {read=fRTS, write=SetpRTS, nodefault};
};


class PASCALIMPLEMENTATION TComThread : public Classes::TThread 
{
	typedef Classes::TThread inherited;
	
private:
	TCustComPort* Owner;
	unsigned Mask;
	unsigned StopEvent;
	
protected:
	virtual void __fastcall Execute(void);
	void __fastcall DoEvents(void);
	void __fastcall Stop(void);
	
public:
	__fastcall TComThread(TCustComPort* AOwner);
	__fastcall virtual ~TComThread(void);
};


class DELPHICLASS EComHandle;
class PASCALIMPLEMENTATION EComHandle : public Sysutils::Exception 
{
	typedef Sysutils::Exception inherited;
	
public:
	#pragma option push -w-inl
	/* Exception.Create */ inline __fastcall EComHandle(const AnsiString Msg) : Sysutils::Exception(Msg
		) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmt */ inline __fastcall EComHandle(const AnsiString Msg, const System::TVarRec 
		* Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateRes */ inline __fastcall EComHandle(int Ident)/* overload */ : Sysutils::Exception(
		Ident) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmt */ inline __fastcall EComHandle(int Ident, const System::TVarRec * Args, 
		const int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateHelp */ inline __fastcall EComHandle(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(
		Msg, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmtHelp */ inline __fastcall EComHandle(const AnsiString Msg, const System::TVarRec 
		* Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
		) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResHelp */ inline __fastcall EComHandle(int Ident, int AHelpContext)/* overload */
		 : Sysutils::Exception(Ident, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmtHelp */ inline __fastcall EComHandle(System::PResStringRec ResStringRec, const 
		System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(
		ResStringRec, Args, Args_Size, AHelpContext) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~EComHandle(void) { }
	#pragma option pop
	
};


class DELPHICLASS EComState;
class PASCALIMPLEMENTATION EComState : public Sysutils::Exception 
{
	typedef Sysutils::Exception inherited;
	
public:
	#pragma option push -w-inl
	/* Exception.Create */ inline __fastcall EComState(const AnsiString Msg) : Sysutils::Exception(Msg)
		 { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmt */ inline __fastcall EComState(const AnsiString Msg, const System::TVarRec * 
		Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateRes */ inline __fastcall EComState(int Ident)/* overload */ : Sysutils::Exception(
		Ident) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmt */ inline __fastcall EComState(int Ident, const System::TVarRec * Args, const 
		int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateHelp */ inline __fastcall EComState(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(
		Msg, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmtHelp */ inline __fastcall EComState(const AnsiString Msg, const System::TVarRec 
		* Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
		) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResHelp */ inline __fastcall EComState(int Ident, int AHelpContext)/* overload */
		 : Sysutils::Exception(Ident, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmtHelp */ inline __fastcall EComState(System::PResStringRec ResStringRec, const 
		System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(
		ResStringRec, Args, Args_Size, AHelpContext) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~EComState(void) { }
	#pragma option pop
	
};


class DELPHICLASS EComWrite;
class PASCALIMPLEMENTATION EComWrite : public Sysutils::Exception 
{
	typedef Sysutils::Exception inherited;
	
public:
	#pragma option push -w-inl
	/* Exception.Create */ inline __fastcall EComWrite(const AnsiString Msg) : Sysutils::Exception(Msg)
		 { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmt */ inline __fastcall EComWrite(const AnsiString Msg, const System::TVarRec * 
		Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateRes */ inline __fastcall EComWrite(int Ident)/* overload */ : Sysutils::Exception(
		Ident) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmt */ inline __fastcall EComWrite(int Ident, const System::TVarRec * Args, const 
		int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateHelp */ inline __fastcall EComWrite(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(
		Msg, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmtHelp */ inline __fastcall EComWrite(const AnsiString Msg, const System::TVarRec 
		* Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
		) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResHelp */ inline __fastcall EComWrite(int Ident, int AHelpContext)/* overload */
		 : Sysutils::Exception(Ident, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmtHelp */ inline __fastcall EComWrite(System::PResStringRec ResStringRec, const 
		System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(
		ResStringRec, Args, Args_Size, AHelpContext) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~EComWrite(void) { }
	#pragma option pop
	
};


class DELPHICLASS EComRead;
class PASCALIMPLEMENTATION EComRead : public Sysutils::Exception 
{
	typedef Sysutils::Exception inherited;
	
public:
	#pragma option push -w-inl
	/* Exception.Create */ inline __fastcall EComRead(const AnsiString Msg) : Sysutils::Exception(Msg) { }
		
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmt */ inline __fastcall EComRead(const AnsiString Msg, const System::TVarRec * 
		Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateRes */ inline __fastcall EComRead(int Ident)/* overload */ : Sysutils::Exception(
		Ident) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmt */ inline __fastcall EComRead(int Ident, const System::TVarRec * Args, const 
		int Args_Size)/* overload */ : Sysutils::Exception(Ident, Args, Args_Size) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateHelp */ inline __fastcall EComRead(const AnsiString Msg, int AHelpContext) : Sysutils::Exception(
		Msg, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateFmtHelp */ inline __fastcall EComRead(const AnsiString Msg, const System::TVarRec 
		* Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
		) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResHelp */ inline __fastcall EComRead(int Ident, int AHelpContext)/* overload */
		 : Sysutils::Exception(Ident, AHelpContext) { }
	#pragma option pop
	#pragma option push -w-inl
	/* Exception.CreateResFmtHelp */ inline __fastcall EComRead(System::PResStringRec ResStringRec, const 
		System::TVarRec * Args, const int Args_Size, int AHelpContext)/* overload */ : Sysutils::Exception(
		ResStringRec, Args, Args_Size, AHelpContext) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Destroy */ inline __fastcall virtual ~EComRead(void) { }
	#pragma option pop
	
};


//-- var, const, procedure ---------------------------------------------------
static const Shortint dcb_Binary = 0x1;
static const Shortint dcb_Parity = 0x2;
static const Shortint dcb_OutxCtsFlow = 0x4;
static const Shortint dcb_OutxDsrFlow = 0x8;
static const Shortint dcb_DtrControl = 0x30;
static const Shortint dcb_DsrSensivity = 0x40;
static const Byte dcb_TXContinueOnXOff = 0x80;
static const Word dcb_OutX = 0x100;
static const Word dcb_InX = 0x200;
static const Word dcb_ErrorChar = 0x400;
static const Word dcb_Null = 0x800;
static const Word dcb_RtsControl = 0x3000;
static const Word dcb_AbortOnError = 0x4000;
extern PACKAGE void __fastcall Register(void);

}	/* namespace Commp */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Commp;
#endif
#pragma option pop	// -w-
#pragma option pop	// -Vx

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// CommP

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -