Forum: Netzwerke
by friedt99,
7. Sep 2023
So Leute,
habe es hinbekommen (ChatGPT sei Dank). Es lag an der Tokenabfrage.
Mit ChatGPT habe ich folgende Funktion zur Tokenabfrage für eine "App-Registrierung" erstellt:
uses
System.Net.HttpClient, System.Net.URLClient, System.SysUtils, System.JSON, System.Classes, System.NetEncoding;
Forum: Netzwerke
by friedt99,
7. Sep 2023
So, ich habe nochmal nachgesehen.
Es wird nur der tatsächliche Token verwendet, nicht das komplette JSON,
das war nur eine Logausgabe von dem Teil, der den Token abfragt.
Habe es auch mit der hier erwähnten Variante von TIdSASLXOAuth versucht.
Eine TIdSASLXOAuth2 ist im Fork von Remy Lebeau enthalten, diesen Fork habe ich verwendet.
Als Scope verwendet die Bibliothek (sgcWebSockets)...
Forum: Netzwerke
by friedt99,
5. Sep 2023
Habe nochmal etwas gefunden und bin jetzt einen Schritt weiter.
procedure SendSMTP(ptToken:String);
Var lcSMTP:TIdSMTP;
lcMail:TIdMessage;
lcRec:TIdEMailAddressItem;
lcAuthSASL:TIdSASLListEntry;
lcProvider:TProviderInfo;
lcIdSSLIOHandlerSocketSMTP:TidSSLIOHandlerSocketOpenSSL;