⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 main.pas

📁 这是一套全面的网络组件
💻 PAS
字号:
🔍 
unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, clMailMessage;

type
  TMainForm = class(TForm)
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    memText: TMemo;
    memHtml: TMemo;
    Label5: TLabel;
    lbAttachments: TListBox;
    btnAdd: TButton;
    Label6: TLabel;
    edtPickup: TEdit;
    btnClear: TButton;
    btnSend: TButton;
    btnNew: TButton;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    edtFrom: TEdit;
    edtToList: TEdit;
    edtSubject: TEdit;
    OpenDialog: TOpenDialog;
    clMailMessage: TclMailMessage;
    procedure btnAddClick(Sender: TObject);
    procedure btnClearClick(Sender: TObject);
    procedure btnNewClick(Sender: TObject);
    procedure btnSendClick(Sender: TObject);
  private
    function GenerateFileName(const APath: string): string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.btnAddClick(Sender: TObject);
begin
  if OpenDialog.Execute() then
  begin
    lbAttachments.Items.Add(OpenDialog.FileName);
  end;
end;

procedure TMainForm.btnClearClick(Sender: TObject);
begin
  lbAttachments.Items.Clear();
end;

procedure TMainForm.btnNewClick(Sender: TObject);
begin
  edtFrom.Text := '';
  edtToList.Text := '';
  edtSubject.Text := '';
  memText.Lines.Clear();
  memHtml.Lines.Clear();
  memHtml.Lines.Add('<html>');
  memHtml.Lines.Add('<body>');
  memHtml.Lines.Add('</body>');
  memHtml.Lines.Add('</html>');
  lbAttachments.Items.Clear();
end;

function TMainForm.GenerateFileName(const APath: string): string;
begin
  Result := APath;
  if (Result <> '') and (Result[Length(Result)] <> '\') then
  begin
    Result := Result + '\';
  end;
  Result := Result + IntToStr(Round(Now() * 10000000000)) + IntToStr(Random(1000)) + '.eml';
end;

procedure TMainForm.btnSendClick(Sender: TObject);
begin
  clMailMessage.BuildMessage(memText.Text, memHtml.Text, nil, lbAttachments.Items);
  clMailMessage.From := edtFrom.Text;
  StringToEmailList(edtToList.Text, clMailMessage.ToList);
  clMailMessage.Subject := edtSubject.Text;
  clMailMessage.MessageSource.SaveToFile(GenerateFileName(edtPickup.Text));
  ShowMessage('The message has been queued for sending by the Microsoft SMTP service.');
end;

end.

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -