目录
一、下载 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;
四、说明:
- 以上运行的两个程序,一个是发布消息的,一个是接收消息的;
- 无需自己建立服务器,无需注册账号,直接使用;
- 由于使用TNetHTTP,所以支持FMX跨平台,无需DLL支持;
- 除了发送消息功能外,还有很多其他的功能,需要自己查看官网资料;
五、程序下载(包含库):
序号 | 下载链接 |
1 | Notify库 |
2 | Demo执行程序及源程序 |
注意增加Notify库的src目录到程序的搜索目录。