用 Delphi 实现一个基本的网页邮件抓取和发送功能

news2024/11/13 9:16:26

如何用 Delphi 实现一个基本的网页邮件抓取和发送功能。以下示例仅作为概念验证，实际应用中需要考虑更多的细节和技术问题。

在这里插入图片描述

示例：从简单网页抓取邮件并发送

1. 环境准备

假设你已经安装了 Delphi，并且安装了 Indy 组件库。Indy 是一个用于 Internet 编程的强大组件集，它支持多种协议，包括 HTTP 和 SMTP。

2. 创建一个新的 VCL Forms 应用程序

打开 Delphi，创建一个新的 VCL Forms 应用程序，并添加必要的组件，如 TButton 和 TMemo。

3. 添加 Indy 组件

将 Indy 组件库中的 IdHTTP 和 IdSMTP 添加到你的项目中。

4. 编写代码

在 Form1 中添加以下代码：

unit Form1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdHTTP, IdSMTP, IdMessage, IdGlobal;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure ExtractEmails(const AText: string): TArray<string>;
var
  Match: TRegExMatch;
begin
  Result := [];
  if TRegEx.IsMatch(AText, '\b[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,}\b', [reIgnoreCase]) then
  begin
    for Match in TRegEx Matches AText do
    begin
      SetLength(Result, Length(Result) + 1);
      Result[High(Result)] := Match.Value;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Emails: TArray<string>;
  HTTP: TIdHTTP;
  SMTP: TIdSMTP;
  Message: TIdMessage;
  Response: string;
begin
  // 创建 HTTP 对象
  HTTP := TIdHTTP.Create(nil);
  try
    // 发送 GET 请求并获取响应
    Response := HTTP.Get('http://example.com'); // 替换为目标 URL

    // 提取邮件地址
    Emails := ExtractEmails(Response);

    // 输出邮件地址
    Memo1.Lines.Text := Emails.ToString();

    // 创建 SMTP 对象
    SMTP := TIdSMTP.Create(nil);
    try
      // 设置 SMTP 服务器
      SMTP.Host := 'smtp.example.com'; // 替换为实际 SMTP 服务器地址
      SMTP.Port := 587; // 或其他端口
      SMTP.Username := 'yourusername'; // 替换为用户名
      SMTP.Password := 'yourpassword'; // 替换为密码
      SMTP.ConnectTimeout := 30000; // 连接超时时间
      SMTP.ReadTimeout := 30000; // 读取超时时间

      // 创建消息对象
      Message := TIdMessage.Create(SMTP);
      try
        // 设置邮件属性
        Message.From.Address := 'youremail@example.com'; // 替换为发件人地址
        Message.To.Address := Emails[0]; // 假设只发送给第一个邮件地址
        Message.Subject := 'Test Email';
        Message.Body.Text := 'This is a test email.';

        // 发送邮件
        SMTP.Send(Message);
      finally
        Message.Free;
      end;
    finally
      SMTP.Free;
    end;
  finally
    HTTP.Free;
  end;
end;

end.

说明

ExtractEmails 函数：此函数用于从文本中提取所有有效的电子邮件地址。它使用正则表达式来匹配电子邮件模式。
Button1Click 事件：
- 使用 Indy 组件 TIdHTTP 发送 HTTP GET 请求，并获取响应。
- 使用 ExtractEmails 函数从响应中提取电子邮件地址。
- 将邮件地址输出到 Memo 控件中。
- 使用 TIdSMTP 组件设置 SMTP 服务器参数，并通过 TIdMessage 发送邮件。