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

 

目录

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

二、创建发布消息程序

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

 四、说明：

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

---

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

ntfy 重要功能：

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

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;

 四、说明：

1. 以上运行的两个程序，一个是发布消息的，一个是接收消息的；
2. 无需自己建立服务器，无需注册账号，直接使用；
3. 由于使用TNetHTTP，所以支持FMX跨平台，无需DLL支持；
4. 除了发送消息功能外，还有很多其他的功能，需要自己查看官网资料；

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

序号	下载链接
1	Notify库
2	Demo执行程序及源程序

注意增加Notify库的src目录到程序的搜索目录。