| Class T_lpr (unit tcpip) |
@\\\0000000111*) (*@/// T_lpr = class(T_TcpIp) // RFC 1179
| Constructors |
constructor Create(Aowner:TComponent);| Functions |
procedure action;
procedure GetQueueStatus(detailed:boolean);
procedure SendPrintData;
procedure open_socket_out(var socket:TSocket; Socket_number:smallint;ip_address:longint);
procedure 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;| 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;