Wie verwende ich die Pushover API?

[bartman]

Hallo Zusammen,

ich würde sehr gerne die Pushover API verwenden um aus meiner Anwendung Nachrichtigen an Mobile geräte zu versenden.

https://pushover.net/api

Nur leider habe ich noch nie mit HTTP POST gearbeitet.

Wie übergebe ich die geforderten Parameter richtig?

Schon mal danke für die Hilfe ;D

[CCRDude]

Steht ja eigentlich schon genau hier inklusive Beispiel.

Ich hab da mal spontan was zusammengeschrieben, da mich das Thema die Tage auch mal gejuckt hat (ich aber Pushover da noch nicht kannte), lade ich später hier hoch.

Nachtrag: eine Unit für die einfachsten Funktionen (User verifizieren, Nachricht senden, Liste der Töne empfangen) habe ich implementiert und inklusive einer Dunit-Testklasse angehängt. Viel Spaß damit, und bei Verbesserungen bitte Bescheid geben :)

[bartman]

Zitat:

Zitat von CCRDude (Beitrag 1211889)

... lade ich später hier hoch.

:thumb: Das wäre super. Danke

[CCRDude]

Okay, noch ein paar Kommentare zum Code oben:

• Du musst eine Anwending registrieren und das Token in der Test-Datei ergänzen (siehe TODO-Kommentar).
• Du musst einen UserKey in der Testdatei angeben (siehe TODO-Kommentar).
• Der User braucht mindestens ein registriertes Gerät, damit SendMessage funktioniert (Validate erinnert aber auch daran).
• Callbacks sind nicht implementiert (machen auch eher für Webanwendungen Sinn).
• Basic rate limiting ist auch nicht implementiert.

[bartman]

Hallo CCRDude,

wirklich vielen Dank. Werde mir das jetzt mal anschauen ob ich klar komme ;-)

Danke

[bartman]

Ich bin es nochmal,

leider habe ich ein Problem. Ich bekomme in der TPushoverAPI.Communicate das die Function UUTF8ToString nicht deklariert ist und in der TPushoverAPISounds.PostActionProcess (Zeile: Result := inherited;) bekomme ich den Hinweis auf den Fehler E2008 Inkomatible Typen.

Ich verwende D2007, vielleicht liegt es daran?

[CCRDude]

Liegt beides an Delphi 2007, genau. Wie oben drüber steht, hatte ich es mit XE geschrieben und nur damit getestet.

Habe den Anhang oben gegen eine neuere Version ersetzt, die

• Die Konvertierung weglässt,
• An inherited noch den Funktionsnamen anhängt,
• Alternativ uLKJSON oder DBKJSON (nur neuere Delphi) verwendet.
• Receipts können jetzt übrigens auch geprüft werden.

Auf meinem D2007 kompiliert das jetzt und schickt ne Testnachricht raus.