ntfy 实现消息订阅和通知（无需注册、无需服务器，太好了）

news2025/2/28 0:06:47

一、下载 ntfy 的Delphi 库（打开ntfy for Delphi 的开源库地址）

二、创建发布消息程序

三、订阅（接收）消息程序

四、说明：

五、程序下载（包含库）：

ntfy 可让你在任何电脑上通过脚本，使用简单的 HTTP PUT 或 POST 请求，向手机或桌面发送推送通知。

ntfy 重要功能：

无需注册账号；
免费，至少目前是完全免费；
不需要自己建立服务器（当然也可建立个性化的自己的服务器）

ntfy支持：

Command line (curl)
ntfy CLI
HTTP
JavaScript
Go
Python
PHP
Delphi

本篇我们将介绍Delphi 中如何使用 ntfy。

ntfy for Delphi 的开源库地址：GitHub - hazzelnuts/ntfy-for-delphi at net-http

自建服务器开源链接（不是本文要讨论的）：GitHub - binwiederhier/ntfy: Send push notifications to your phone or desktop using PUT/POST

一、下载 ntfy 的Delphi 库（打开ntfy for Delphi 的开源库地址）

下载下来后，添加src为Delphi项目可以搜寻到的目录！

特别提醒：

GitHub上的库有两个分支需要注意，由于早期开发使用的是Indy，所以默认下载的是main分支，也就是Indy分支，这样就需要有运行时DLL支持（libeay32.dll和ssleay32.dll），如果选择het-http分支，就是用的时TNetHTTP，不是Indy，这样就不需要DLL支持，就可以使用在FMX上，支持移动端了。

当然要使用net-http这个分支了！

二、创建发布消息程序


uses
  Notify;

procedure TForm1.Button_NotifyClick(Sender: TObject);
begin
  Ntfy.Notification(
    New.Notification
      .Topic(Edit_Topic.Text)
      .Title(Edit_Title.Text)
      .MessageContent(Edit_MessageContent.Text)
  );

  Ntfy.Publish;
end;

三、订阅（接收）消息程序

uses
  Notify;

{$R *.fmx}

procedure TForm2.Button_SubScribleClick(Sender: TObject);
begin
  Ntfy.Subscribe(Edit_Topic.Text,
    procedure (AEvent: INotifyEvent)
    begin
      Memo1.Lines.Add(AEvent.MessageContent)
    end);
end;