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] | 
