TCP/IP 使网络连接驱向简单化_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

TCP/IP 使网络连接驱向简单化

作者：闵涛文章来源：闵涛的学习笔记点击数：2107 更新时间：2009/4/23 18:43:55

r: TStringList read f_add_header write SetHeader;
property Subject:string read f_subject write f_subject;
property References:string read f_references write f_references;
property ReplyTo:string read f_replyto write f_replyto;
end;
(*@\\\0000001001*)
(*@///   T_Mail = class(T_MailNews)       // RFC 822 *)
T_Mail = class(T_MailNews)
protected
f_smtp: T_SMTP;
f_receipts: TStringlist;
f_cc: TStringlist;
f_bcc: TStringlist;
f_disclose_receipts: boolean;
procedure SetRecipients(Value: TStringList);
procedure SetCC(Value: TStringList);
procedure SetBCC(Value: TStringList);
public
constructor Create(Aowner:TComponent); override;
destructor Destroy; override;
procedure action; override;
published
property SMTP: T_SMTP read f_smtp write f_smtp;
property Disclose_Receipts: boolean read f_disclose_receipts write f_disclose_receipts default false;
property Recipients: TStringlist read f_receipts write SetRecipients;
property CC: TStringlist read f_cc write SetCC;
property BCC: TStringlist read f_bcc write SetBCC;
end;
(*@\\\0000000601*)
(*@///   T_News = class(T_MailNews)       // RFC 850 *)
T_News = class(T_MailNews)
protected
f_nntp: T_NNTP;
f_newsgroups: TStringlist;
f_organization: string;
procedure SetNewsgroups(Value: TStringList);
public
constructor Create(Aowner:TComponent); override;
destructor Destroy; override;
procedure action; override;
published
property NNTP: T_NNTP read f_nntp write f_nntp;
property Newsgroups: TStringlist read f_newsgroups write SetNewsgroups;
property Organization: string read f_organization write f_organization;
end;
(*@\\\0000000C14*)
(*@///   T_Attachment = class(TObject) *)
T_Attachment = class(TObject)
protected
f_kind: string;
f_disposition: string;
f_data: TStream;
f_text: TStringList;
f_encoding: T_Encoding;
procedure SetText(value:TStringList);
procedure SetData(value:TStream);
public
constructor Create;
destructor Destroy; override;
property Kind: string read f_kind write f_kind;
property Disposition: string read f_disposition write f_disposition;
property Encoding: T_Encoding read f_encoding write f_encoding;
property Text:TStringlist read f_text write SetText;
property Data:TStream read f_data write SetData;
end;
(*@\\\0000000D01*)
(*@///   T_Mime = class(TComponent)      // RFC 1521 *)
T_Mime = class(TComponent)
protected
f_mail: T_MailNews;
boundary: string;
f_attachment: TList;
function GetNumberOfAttachments: integer;
public
constructor Create(Aowner:TComponent); override;
destructor Destroy; override;
function AttachFile(const filename:string):integer;
function AttachText(text: TStringList):integer;
procedure RemoveAllAttachments;
procedure action;
procedure SetMail(mail: TStringlist);
function GetAttachment(index: integer):T_Attachment;
procedure RemoveAttachment(index: integer);
property Attachment[index:integer]:T_Attachment read GetAttachment;
property NumberOfAttachments: integer read GetNumberOfAttachments;
published
property Mail: T_MailNews read f_mail write f_mail;
end;
(*@\\\0000000A01*)

const
uwm_socketevent = wm_user+$100; (* my magic message number *)

var
lpr_count: integer; (* the current job number *)

procedure Register;
(*@\\\0000003B03*)
(*@/// implementation *)
implementation

上一页 [1] [2] [3]