Class tcustomsercommchannel

Unit

msesercomm

Declaration

type tcustomsercommchannel = class(tmsecomponent, icommclient)

Description

Hierarchy

• TObject
• TPersistent
• tcomponent
• tmsecomponent
• tcustomsercommchannel

Overview

Fields

	fstate: sercommchannelstatesty;
	fexpected: integer;
	fsent: integer;
	fdata: string;
	fflags: commresponseflagsty;

Methods

	function internaltransmit(const adata: string; const aresponselength: integer; const atimeoutus: integer; const sync: boolean; const aeor: boolean): syserrorty;
	procedure checksercomm;
	procedure doresponse; virtual;
	procedure setcommserverintf(const aintf: icommserver);
	procedure dorxchange(const areader: tcommreader);
	constructor create(aowner: tcomponent); override;
	destructor destroy; override;
	procedure clear;
	function transmit(const adata: string; const aresponselength: integer; const atimeoutus: integer = -1): syserrorty; virtual; overload;
	function transmiteor(const adata: string; const aresponselength: integer = 0; const atimeoutus: integer = -1): syserrorty; virtual; overload;
	function transmit(const adata: string; const aresponselength: integer; out aresult: string; const atimeoutus: integer = -1): commresponseflagsty; virtual; overload;
	function transmiteor(const adata: string; out aresult: string; const aresponselength: integer = 0; const atimeoutus: integer = -1): commresponseflagsty; virtual; overload;

Properties

	property sercomm: tcustomcommcomp read fsercomm write setsercomm;
	property timeoutus: integer read ftimeoutus write ftimeoutus default 0;
	property onresponse: commresponseeventty read fonresponse write fonresponse;
	property eor: string read feor write feor;

Description

Fields

	fstate: sercommchannelstatesty;

	fexpected: integer;

	fsent: integer;

	fdata: string;

	fflags: commresponseflagsty;

Methods

	function internaltransmit(const adata: string; const aresponselength: integer; const atimeoutus: integer; const sync: boolean; const aeor: boolean): syserrorty;

	procedure checksercomm;

	procedure doresponse; virtual;

	procedure setcommserverintf(const aintf: icommserver);

	procedure dorxchange(const areader: tcommreader);

	constructor create(aowner: tcomponent); override;

	destructor destroy; override;

	procedure clear;

	function transmit(const adata: string; const aresponselength: integer; const atimeoutus: integer = -1): syserrorty; virtual; overload;

	function transmiteor(const adata: string; const aresponselength: integer = 0; const atimeoutus: integer = -1): syserrorty; virtual; overload;

	function transmit(const adata: string; const aresponselength: integer; out aresult: string; const atimeoutus: integer = -1): commresponseflagsty; virtual; overload;

	function transmiteor(const adata: string; out aresult: string; const aresponselength: integer = 0; const atimeoutus: integer = -1): commresponseflagsty; virtual; overload;

Properties

	property sercomm: tcustomcommcomp read fsercomm write setsercomm;

	property timeoutus: integer read ftimeoutus write ftimeoutus default 0;

	property onresponse: commresponseeventty read fonresponse write fonresponse;

	property eor: string read feor write feor;