Wago Telegram Nachricht via fbHTTPs_Get klappt nicht

[Schampoo Programmer]

Zuviel Werbung?
-> Hier kostenlos registrieren

Moin Zusammen,

jetzt auch nochmal der Hilfeaufruf an Alle.

Ich versuche mich gerade daran Telegram Nachrichten via fbHTTPs_Get zu versenden.
Nutzen tue ich eine PFC100 mit e!Cockpit.

Einen Telegramm Bot habe ich bereits erstellt und der arbeitet auch schon fleißig. Nur kommen noch keine Nachrichten der PFC an.

Das Programm sieht wie folgt aus:

PROGRAM PLC_PRG
VAR
// Telegramm Daten
TelegramToken: STRING:= '182xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxDPws';
TelegramChatID: STRING:= '48xxxxx01';

// Nachricht
Message: STRING:= 'Test1234';

// fbHTTPs_Get
SendTelegram: fbHTTPs_Get;

URI: STRING(1023);
Timeout: TIME:= T#5S;

Trigger: BOOL; // Trigger zum los senden der Telegramm Nachricht

Busy: BOOL;
Error: BOOL;
Status: WagoSysErrorBase.FbResult;
StatusMessage: STRING;

END_VAR

URI:= 'https://api.telegram.org/bot182xxxx...endMessage?chat_id=48xxxxxx01&text=Test1234';

// Übergeben der Daten
SendTelegram(xTrigger := Trigger);
SendTelegram.sURI:=URI;
SendTelegram.eAuthentication:=0;
SendTelegram.tTimeout:=Timeout;

// Absenden der Nachricht
Trigger;

// Status Informationen
SendTelegram.xBusy;
SendTelegram.xError;
SendTelegram.oStatus.sDescription;

Wenn ich den Baustein trigger bekomme ich immer einen Fehler mit der Meldung "Protocol not supported" zurück.
1. Woran liegt das?
2. Habe ich den Baustein richtig parametriert?
3. Muss ich in der HW-Config der PFC noch irgendetwas ändern?

Habe die URI erstmal hard codiert und den Trigger stoße ich manuell an. Die Variablen unten dienen nur der Übersichtlichkeit beim Testen.

Währe um jeden Tipp sehr Dankbar!

Gruß
Ole

 

[Tobsucht]

Hallo Ole,

prinzipiell mache ich es auch so. Nur bei mir funktioniert es

VAR
    oBot                : WagoAppHTTP.FbHTTPs_Get :=(
        eAuthentication    := WagoAppHTTP.eAuthentication.None,
        tTimeout        := T#3S );
    oSslOptions            : WagoTypesCurl.typSSL_Options :=(
        xVerifyPeer        := FALSE,
        xVerifyHost        := FALSE );
    aRecvBuffer            : ARRAY [0..1999] OF BYTE;
    sRequest            : STRING(1023);
...
    xSendRequest        : BOOL;
...
END_VAR

oBot(
    sURI            := sRequest,
    pRxBuffer        := ADR(aRecvBuffer),
    udiRxBufferSize    := SIZEOF(aRecvBuffer),
    typSSL_Options    := oSslOptions,
    xTrigger        := xSendRequest );

sClientState := oBot.oStatus.GetDescription();

...
sRequest := concat5('https://api.telegram.org/bot', sToken, '/sendMessage?chat_id=', oSending.sChatID, '&text=' );
sRequest := fCONCAT(sRequest, oSending.sMessage);
xSendRequest := TRUE;

Ich habe beim Überfliegen keine großen Unterschiede festestellen können.

Grüße

 

[Schampoo Programmer]

Zuviel Werbung?
-> Hier kostenlos registrieren

Moin,
ich bin noch eine Antwort schuldig.
Es klappt jetzt.
Danke für den Support.
Gruß Ole