{ Time, RExec, LPR - the most useful UNIX services }(*@/// T_Time = class(T_TcpIp) // RFC 868 *)T_Time = class(T_TcpIp)protected f_time: TDateTime; f_timemode: T_TimeMode;public constructor Create(Aowner:TComponent); override; procedure action; override; property time: TDateTime read f_time;published property Hostname: string read f_hostname write f_hostname; property TimeMode: T_TimeMode read f_timemode write f_timemode default tzUTC; end;(*@\\\0000000103*)(*@/// T_RCommon = class(T_TcpIp) *)T_RCommon = class(T_TcpIp)protected procedure open_socket_out(var socket:TSocket; Socket_number:smallint;ip_address:longint); override;public procedure action; override; property stream: TStream read f_stream;published property Hostname: string read f_hostname write f_hostname; end;(*@\\\0000000103*)(*@/// T_RExec = class(T_RCommon) *)T_RExec = class(T_RCommon)protected f_user: string; f_pass: string; f_command: string; procedure login; override;public constructor Create(Aowner:TComponent); override;published property UserName: string read f_user write f_user; property Password: string read f_pass write f_pass; property Command: string read f_command write f_command; end;(*@\\\0000000113*)(*@/// T_Rsh = class(T_RCommon) *)T_Rsh = class(T_RCommon)protected f_user_r: string; f_user_l: string; f_command: string; procedure login; override;public constructor Create(Aowner:TComponent); override;published property LocalUser: string read f_user_l write f_user_l; property RemoteUser: string read f_user_r write f_user_r; property Command: string read f_command write f_command; end;(*@\\\0000000111*)(*@/// T_lpr = class(T_TcpIp) // RFC 1179 *)T_lpr = class(T_TcpIp)protected f_printtype: t_lpr_types; f_banner: boolean; f_count: integer; f_user: string; f_queue: string; f_user_mail: string; f_jobname: string; f_title: string; procedure response; procedure open_socket_out(var socket:TSocket; Socket_number:smallint;ip_address:longint); override;public constructor Create(Aowner:TComponent); override; property stream: TStream read f_stream write SetStream; procedure action; override; procedure SendPrintData; procedure GetQueueStatus(detailed:boolean);published property Hostname: string read f_hostname write f_hostname; property User: string read f_user write f_user; property PrintQueue: string read f_queue write f_queue; property MailTo: string read f_user_mail write f_user_mail; property JobName: string read f_jobname write f_jobname; property PrintType:t_lpr_types read f_printtype write f_printtype default lp_ascii; property CopyCount:integer read f_count write f_count default 1; property PrintBanner:boolean read f_banner write f_banner default false; property PrintTitle:string read f_title write f_title; end;(*@\\\0000000103*)
{ The Mail and News protocols }(*@/// T_SMTP = class(T_TcpIp) // RFC 821 *)T_SMTP = class(T_TcpIp)protected f_user, f_host: string; f_status_nr: integer; f_status_txt: string; f_receipts, f_body: tstringlist; procedure SetBody(Value: TStringList); procedure SetRecipients(Value: TStringList); procedure response;public constructor Create(Aowner:TComponent); override; destructor Destroy; override; procedure action; override; property Recipients: TStringlist read f_receipts write SetRecipients; property Message: TStringList read f_body write SetBody; property Sender: string read f_user write f_user;published property Hostname: string read f_hostname write f_hostname; property OnTrace; end;(*@\\\0000001001*)(*@/// T_Pop3 = class(T_TcpIp) // RFC 1725 *)T_Pop3 = class(T_TcpIp)protected f_user: string; f_pass: string; f_list: TList; f_mail: TStringList; procedure response;public property Mail: TStringlist read f_mail; constructor Create(Aowner:TComponent); override; destructor Destroy; override; procedure action; override; (* retrieval of first message *) procedure Login; override; procedure GetHeaders; procedure Logout; override; procedure GetMail(index: integer); procedure DeleteMail(index:integer);published property Hostname: string read f_hostname write f_hostname; property UserName: string read f_user write f_user; property Password: string read f_pass write f_pass; property OnTrace;end;(*@\\\0000001701*)(*@/// T_NNTP = class(T_TcpIp) // RFC 977 *)T_NNTP = class(T_TcpIp)protected f_news: TStringList; f_newsgroups: TStringList; f_status_nr: integer; f_status_txt: string; procedure response; procedure action; override; (* ??? *) procedure SetNews(value:TStringlist); procedure GetArticleInternally;public property News: TStringlist read f_news write SetNews; property NewsGroups: TStringlist read f_newsgroups; constructor Create(Aowner:TComponent); override; destructor Destroy; override; procedure Login; override; procedure Logout; override; (* To get an article from a URL like nntp://hostname/number *) procedure GetArticle(const group:string; index:integer); (* To get an article from a URL like news:msgid *) procedure GetArticleID(const msgid:string); procedure PostArticle; (* Methods more for a Newsreader *) procedure GetAllNewsgroups; procedure GetNewNewsgroups(since:TDateTime); procedure SetGroup(const group:string; var low,high,count: integer); procedure GetArticleNr(index:integer); procedure SetCurrentArticle(index:integer); procedure GetCurrentArticle; procedure GetNextArticle; procedure GetPreviousArticle;published property Hostname: string read f_hostname write f_hostname; property OnTrace;end;(*@\\\0000002301*)
{ Mail and News text components }(*@/// T_MailNews = class(TComponent) *)T_MailNews = class(TComponent)protected f_from, f_sender, f_subject: string; f_body: TStringlist; f_add_header: TStringlist; f_message: TStringlist; f_references: string; f_replyto: string; procedure SetBody(Value: TStringList); procedure SetHeader(Value: TStringList);public constructor Create(Aowner:TComponent); override; destructor Destroy; override; procedure action; VIRTUAL;published property Sender: string read f_sender write f_sender; property From: string read f_from write f_from; property Body: TStringList read f_body write SetBody; property Heade
上一页 [1] [2] [3] 下一页
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18