標籤: line notify

Delphi 結合地牛Wake Up!使用line notify做地震速報

過年期間新竹的地震頻繁，因為有裝地牛Wake Up!這個電腦版的程式，所以可以第一時間預測得知地震的訊息以及地震震央、地震深度、地震震度等資料。

地牛Wake Up!地震速報警報

在它的設定裡面發現可以使用程式做連動，於是結合上次曾經Delphi拿Line Notify來當通知程式。

然後就可以收到像以下的地震即時訊息透過line了。

Delphi拿Line Notify來當通知

  • 取得個人的TOKEN

進到網站 https://notify-bot.line.me/zh_TW/ ，右上角有一個登入，登入後選個人頁面

往下拉可以看到一個發行存取權杖(TOKEN)，按發行權杖功能。按照步驟就可以取得權杖

複製權杖下來備用。

接下來在安裝ipwork的Delphi上，加入ipwhhtp的元件後，呼叫LINE NOTIFY的程式如下：

2021.06.12 更新 Delphi 版本 ipwork試用連結(官網)
https://www.nsoftware.com/download/download.aspx?sku=IPDF-A&type=demo

七行程式就可以了!

  ipwhttp1.Config(‘CodePage=65001’);

  ipwhttp1.Timeout := 10;

  ipwhttp1.ResetHeaders;

  ipwhttp1.OtherHeaders := ‘Authorization: Bearer +’這裡改成剛才的權杖＇;

  ipwhttp1.ContentType := ‘application/x-www-form-urlencoded;’;

  ipwhttp1.PostData:= ‘message=’+’這裡改成你要通知的內容＇;

  ipwhttp1.Post(‘https://notify-api.line.me/api/notify’);