Class tcustomcommcomp

Unit

msesercomm

Declaration

type tcustomcommcomp = class(tactcomponent, icommserver)

Description

Hierarchy

• TObject
• TPersistent
• tcomponent
• tmsecomponent
• tactcomponent
• tcustomcommcomp

Overview

Fields

	fhandle: integer;
	factive: boolean;
	factiveafterload: boolean;
	fcryptoio: tcryptoio;

Methods

	procedure setactive(const avalue: boolean); override;
	procedure doactivated; override;
	procedure dodeactivated; override;
	procedure internalconnect; virtual; abstract;
	procedure internaldisconnect; virtual;
	procedure closepipes(const sender: tcustomcommpipes); virtual; abstract;
	procedure writedata(const adata: string);
	function trywritedata(const adata: string): syserrorty; virtual; abstract;
	procedure connect;
	procedure disconnect;
	procedure checkinactive;
	procedure doafterconnect(const sender: tcustomcommpipes);
	procedure loaded; override;
	function gethalfduplex: boolean; virtual;
	constructor create(aowner: tcomponent); override;
	destructor destroy; override;
	function calctransmissiontime(const alength: integer): integer; virtual;

Properties

	property active: boolean read factive write setactive default false;
	property cryptoio: tcryptoio read fcryptoio write setcryptoio;
	property onbeforeconnect: commcompeventty read fonbeforeconnect write fonbeforeconnect;
	property onafterconnect: commcompeventty read fonafterconnect write fonafterconnect;
	property onbeforedisconnect: commcompeventty read fonbeforedisconnect write fonbeforedisconnect;
	property onafterdisconnect: commcompeventty read fonafterdisconnect write fonafterdisconnect;

Description

Fields

	fhandle: integer;

	factive: boolean;

	factiveafterload: boolean;

	fcryptoio: tcryptoio;

Methods

	procedure setactive(const avalue: boolean); override;

	procedure doactivated; override;

	procedure dodeactivated; override;

	procedure internalconnect; virtual; abstract;

	procedure internaldisconnect; virtual;

	procedure closepipes(const sender: tcustomcommpipes); virtual; abstract;

	procedure writedata(const adata: string);

	function trywritedata(const adata: string): syserrorty; virtual; abstract;

	procedure connect;

	procedure disconnect;

	procedure checkinactive;

	procedure doafterconnect(const sender: tcustomcommpipes);

	procedure loaded; override;

	function gethalfduplex: boolean; virtual;

	constructor create(aowner: tcomponent); override;

	destructor destroy; override;

	function calctransmissiontime(const alength: integer): integer; virtual;

Properties

	property active: boolean read factive write setactive default false;

	property cryptoio: tcryptoio read fcryptoio write setcryptoio;

	property onbeforeconnect: commcompeventty read fonbeforeconnect write fonbeforeconnect;

	property onafterconnect: commcompeventty read fonafterconnect write fonafterconnect;

	property onbeforedisconnect: commcompeventty read fonbeforedisconnect write fonbeforedisconnect;

	property onafterdisconnect: commcompeventty read fonafterdisconnect write fonafterdisconnect;