-
Forum: Netzwerke
Delphi
by ScharfeMietze,
23. Okt 2019
Ich habe ja keinen Zugriff auf die Webhook Server "Clienten"
Daher muss der Server damit umgehen können.
als Beispiel
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, System.Win.ScktComp;
type
-
Forum: Netzwerke
Delphi
by ScharfeMietze,
22. Okt 2019
Tya wass soll ich sagen, ich habe damit genau das gleiche Problem, das die Daten nicht ankommen.
der Server
procedure TWebModule2.WebModule2webhookAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
var
LsList: TStringList;
begin
if Request.MethodType=mtPost then
begin
-
Forum: Netzwerke
Delphi
by ScharfeMietze,
22. Okt 2019
Ich bin dran. Beim ersten versuch hat es den Server zum absturz gebracht. Beim 2 Versuch scheint der Server Den Inhalt zu bekommen aber die Showmessage bleibt leer. Ich bin aber dran. Vielen Dank für deine Mühe. Wobei die Clientseite nur zum testen des Servers da sein sollte. An sich muss der Server einfach viel annehmen, da ich in der Regel keinen Zugriff auf den Server Habe der die Hooks...
-
Forum: Netzwerke
Delphi
by ScharfeMietze,
22. Okt 2019
das gleiche
-
Forum: Netzwerke
Delphi
by ScharfeMietze,
22. Okt 2019
Noch mal auf Anfang.
Es gibt im web diverse Webhooks, Telegramm, Tradingview, Discord usw.
Diese Server senden einfach Daten via Post Message. In der Post Message kann von Text bis Json enthalten sein.
Der Server soll einfach den Content speichern ... Das ist alles.
Wichtig für den Server ist.. ssl und ipv6/ipv4 muss er können. Zugriff nur über freigegebene IP.
Ich hab das z.B über...
-
Forum: Netzwerke
Delphi
by ScharfeMietze,
22. Okt 2019
Im Server sieht es nun so aus
function TServerMethods1.updateWebhook(Value: TJSONObject): TJSONObject;
begin
Result := Value;
fConnect.Memo1.Lines.Add('Webhook update' + Value.ToJSON);
end;
function TServerMethods1.Webhook(Value: TJSONObject): TJSONObject;
begin
-
Forum: Netzwerke
Delphi
by ScharfeMietze,
22. Okt 2019
Beim Rest Server bin ich gelandet weil der Rest auch immer irgendwo haperte. Bei nachinstallierten Komponenten wurde ipv6 nicht unterstüzt. Bei Indy ist das ssl gerne mal ein Problem mit dem IdHTTPServer konnte ich mir die die daten ausgeben lassen,scheitert bisher aber bei der Homeserver Https url... usw... Und der Restserver lief auf Anhieb klaglos
Wenn es irgendwo ein schönes Examlpe gibt...
-
Forum: Netzwerke
Delphi
by ScharfeMietze,
22. Okt 2019
RPRec: TRPRec wird leider nicht erkannt:(
Mit dem Rest habe ich offensichtlich ein Problem.
zB.
https://alpt.kxmwm3epa9wmpje7.myfritz.net/datasnap/rest/TServerMethods1/Webhook/xbelibigedaten funktioniert via url
Webhook update Key =xbelibigedaten
die serverseite dazu ist
function TServerMethods1.Webhook(Key: string; Data: string): string;
begin
Result := Data;
-
Forum: Netzwerke
Delphi
by ScharfeMietze,
21. Okt 2019
Nach weiterem Suchen habe ich hier das gefunden. http://docwiki.embarcadero.com/RADStudio/Rio/en/DataSnap_REST_Messaging_Protocol
Then your request should look like this:
POST /datasnap/rest/TServerMethods1/EchoAttribute/Attr1 HTTP/1.1
....*additional headers*...
Accept: application/json
Content-Type: text/plain;charset=UTF-8
{"Attr1":"ValueToReturn"}
-
Forum: Netzwerke
Delphi
by ScharfeMietze,
21. Okt 2019
Auf dem Server ist noch nichts dergleichen. Es ist der reine Standard.
Ich weiß auch vorher nicht was für Daten vom Webhook gesendet werden. (Das ist teilweise nicht mal json sondern z.B nur normaler Text.) Der Server muss es auch im Anschluss nur speichern. Die Auswertung machen andere Tools die dann auf das gespeicherte zugreifen.
Die Ausgangssituation ist das Werbedienste wie z.B....
-
Forum: Netzwerke
Delphi
by ScharfeMietze,
21. Okt 2019
Ps: Ich lasse den Server auch gerade mal etwas laufen. Wer möchte kann es gerne testen unter
https://alpt.kxmwm3epa9wmpje7.myfritz.net/
https://alpt.kxmwm3epa9wmpje7.myfritz.net/datasnap/rest/TServerMethods1/ReverseString/A%20B%20C/
oder
https://alpt.kxmwm3epa9wmpje7.myfritz.net/datasnap/rest/TServerMethods1/Webhook/C%20B%20A/
Über den Browser wenn ich es in Chrome eingebe läuft es....
-
Forum: Netzwerke
Delphi
by ScharfeMietze,
21. Okt 2019
Ist der Delphi hauseigene TNetHTTPClient und Request mit unveränderten Einstellungen. Tut in der Regel klaglos seinen Dienst.
-
Forum: Netzwerke
Delphi
by ScharfeMietze,
21. Okt 2019
Ja keines...
die funktion sieht so aus (nachdem ich sie geschrieben habe
function TServerMethods1.updateWebhook(Value: string): string;
begin
Result := Value;
fConnect.Memo1.Lines.Add('Webhook update' + Result);
end;
nach dem Post kommt siehe Bild
-
Forum: Netzwerke
Delphi
by ScharfeMietze,
21. Okt 2019
LsList.Add('{"Hasta":"Lavista Baby "}'); habe ich geprüft es ist ein Valides Json.
Im Server werden die json daten noch gar nicht verarbeitet .. da ich sie ja bisher am Server nicht auftauchen..
Der server gibt ja eine leere meldung (ohne fehler zurück)
-
Forum: Netzwerke
Delphi
by ScharfeMietze,
21. Okt 2019
Könntest du das für blonde noch einmal aufarbeiten? Ich weiß du willst mir was sagen, aber es klickt noch nicht.
-
Forum: Netzwerke
Delphi
by ScharfeMietze,
21. Okt 2019
update...
auf der Clentseite habe ich nun Json eingefügt.
procedure TfClient.btn1Click(Sender: TObject);
const
Url = 'https://alpt.kxmwm3epa9wmpje7.myfritz.net/datasnap/rest/TServerMethods1/Webhook';
var
LsList: TStringList;
LsStream: TStringStream;
begin
-
Forum: Netzwerke
Delphi
by ScharfeMietze,
21. Okt 2019
kleines update
von mir wurde nun in ServerMethods1
function TServerMethods1.updateWebhook(Value: string): string;
begin
Result := Value;
fConnect.Memo1.Lines.Add('Webhook ' + Result);
end;
die function eingebaut. neue fehlermeldung ist nun von der Clientseite
-
Forum: Netzwerke
Delphi
by ScharfeMietze,
21. Okt 2019
Ich bin zwar weiter aber nicht am Ziel
auf der Clientseite sieht es so aus
procedure TfClient.btn1Click(Sender: TObject);
const
Url = 'https://alpt.kxmwm3epa9wmpje7.myfritz.net/datasnap/rest/TServerMethods1/Webhook';
var
LsList: TStringList;
LsStream: TStringStream;
begin
LsList := TStringlist.Create;
-
Forum: Netzwerke
Delphi
by ScharfeMietze,
21. Okt 2019
Okay gefunden habe ich es und habe es hinzugefügt. Stimmt der ansatz so wie im bild?
Gibt es irgendwo Beispiele in die ich mich einlesen kann um den Code zu schreiben? Weil Google gibt nicht wirklich was dazu her *seuftz*
Aber dickes DANKE! Da bin ich schon mal einen kleinen Schritt weiter
-
Forum: Netzwerke
Delphi
by ScharfeMietze,
20. Okt 2019
Genau das ist ja die Frage. Wie muss ich den Server einstellen, damit er post empfängt und wie verarbeite ich diese. Ich dachte das ein Server der mit get umgehen kann auch post Daten verarbeiten kann. Falls nein Was muss ich am Server tun damit er Post Daten empfangen kann?
als beispiel von Telegramm
The short version
You'll need a server that:
Supports IPv4, IPv6 is currently not...
-
Forum: Netzwerke
Delphi
by ScharfeMietze,
20. Okt 2019
Mein Problem ist das ich normal nicht viel mit Servern zu tun habe. Ich rate mit der Syntax nur rum. Leider finde ich trotz tagelanger suche nicht wirklich was brauchbares. Ein Beispiel für einen einfachen Server in dem Postdata empfangen und verarbeitet werden würden mir schon reichen. Ich dachte das wäre auch mit einem Restserver einfach zu lösen... zumal es ja über einfache Browserzeile...
-
Forum: Netzwerke
Delphi
by ScharfeMietze,
20. Okt 2019
Mir wäre auch wirklich erstmal geholfen wie ich post Daten an den Server schicke. Und oder falls ich den Server konfigurieren muss ... wie ich das tun sollte.
Ich könnte auch einen Soap Server nehmen. Hauptsache ich kann irgendwie Post Daten verarbeiten.
-
Forum: Netzwerke
Delphi
by ScharfeMietze,
19. Okt 2019
https://www.tradingview.com/blog/de/webhooks-for-alerts-now-available-14054/ Ich habe nur was dort drin steht ...
-
Forum: Netzwerke
Delphi
by ScharfeMietze,
19. Okt 2019
Mache ich es z.B. so
Lurl = 'https://xxxxx.myfritz.net/datasnap/';
var
LsStream,Lstream1: TStringStream;
LsList: TStringList;
begin
LsList:= TStringList.Create;
LsStream := TStringStream.Create();
try
-
Forum: Netzwerke
Delphi
by ScharfeMietze,
19. Okt 2019
Es muss theoretisch kein Rest Server sein. Ich brauch halt eine einfache Lösung um diese webhooks zu empfangen.
da der DSHTTPWebDispatcher1 installiert ist, dachte ich ich das wäre damit möglich.