Class T_lpr (unit tcpip)

Inherits from

T_TcpIp

@\\\0000000111*) (*@/// T_lpr = class(T_TcpIp) // RFC 1179

Constructors


constructor Create(Aowner:TComponent);

@\\\0000000401*) (*@\\\0000000201*) (*@/// class T_lpr(t_tcpip) *) (*@/// constructor t_lpr.


Functions

procedure action;

@\\\0000000501*) (*@/// procedure t_lpr.

procedure GetQueueStatus(detailed:boolean);

@\\\0000001001*) (*@/// procedure t_lpr.

procedure SendPrintData;

@\\\0000000501*) (*@/// procedure t_lpr.

procedure open_socket_out(var socket:TSocket; Socket_number:smallint;ip_address:longint);

@\\\000000060E*) (*@/// procedure t_lpr.

procedure response;

@\\\0000001503*) (*@/// procedure t_lpr.

Properties

property CopyCount : integer


property Hostname : string


property JobName : string


property MailTo : string


property PrintBanner : boolean


property PrintQueue : string


property PrintTitle : string


property PrintType : t_lpr_types


property User : string


property stream : TStream


Events

Variables

f_banner : boolean;


f_count : integer;


f_jobname : string;


f_printtype : t_lpr_types;


f_queue : string;


f_title : string;


f_user : string;


f_user_mail : string;



Constructors


constructor Create(Aowner:TComponent);

@\\\0000000401*) (*@\\\0000000201*) (*@/// class T_lpr(t_tcpip) *) (*@/// constructor t_lpr.Create(Aowner:TComponent);


Functions


procedure action;

@\\\0000000501*) (*@/// procedure t_lpr.action;


procedure GetQueueStatus(detailed:boolean);

@\\\0000001001*) (*@/// procedure t_lpr.GetQueueStatus(detailed:boolean);


procedure SendPrintData;

@\\\0000000501*) (*@/// procedure t_lpr.SendPrintData;


procedure open_socket_out(var socket:TSocket; Socket_number:smallint;ip_address:longint);

@\\\000000060E*) (*@/// procedure t_lpr.open_socket_out(var socket:TSocket; Socket_number:smallint;ip_address:longint);


procedure response;

@\\\0000001503*) (*@/// procedure t_lpr.response;


Properties


property CopyCount : integer


property Hostname : string


property JobName : string


property MailTo : string


property PrintBanner : boolean


property PrintQueue : string


property PrintTitle : string


property PrintType : t_lpr_types


property User : string


property stream : TStream


Events


Variables


f_banner : boolean;


f_count : integer;


f_jobname : string;


f_printtype : t_lpr_types;


f_queue : string;


f_title : string;


f_user : string;


f_user_mail : string;